concrete TensedSwe of Tensed = CatSwe, TenseX ** TensedScand with
  (ResScand = ResSwe) ;