concrete TensedSwe of Tensed = CatSwe, TenseX ** TensedScand with
  (DiffScand = DiffSwe) ;