concrete TensedFre of Tensed = CatFre, TenseX ** TensedRomance with
  (ResRomance = ResFre) ;