concrete SymbolFre of Symbol = CatFre ** SymbolRomance with
  (ResRomance = ResFre) ;