concrete NamesDan of Noun = CatDan ** NamesScand with
  (ResScand = ResDan) ;