concrete AdjectiveDan of Adjective = CatDan ** AdjectiveScand with
  (ResScand = ResDan) ;