concrete AdjectivePor of Adjective = CatPor ** AdjectiveRomance with
  (ResRomance = ResPor) ;