--# -path=.:../romance:../common:../abstract:../common:prelude

concrete CatFre of Cat = CommonX - [Temp,TTAnt,Tense,TPres,TPast,TFut,TCond] 
  ** CatRomance with
  (ResRomance = ResFre) ;