concrete SymbolSpa of Symbol = CatSpa ** SymbolRomance with
  (ResRomance = ResSpa) ;