concrete UntensedFre of Untensed = CatFre ** UntensedRomance with
  (DiffRomance = DiffFre) ;