concrete TensedFre of Tensed = CatFre, TenseX ** TensedRomance with
  (DiffRomance = DiffFre) ;