concrete PhraseNor of Phrase = CatNor ** PhraseScand with
  (ResScand = ResNor) ;