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

concrete CatIta of Cat = CommonX ** CatRomance with
  (ResRomance = ResIta) ;