concrete NounNor of Noun = CatNor ** NounScand with
  (ResScand = ResNor) ;