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

concrete CatFre of Cat = CatRomance with
  (ResRomance = ResFre) ;