concrete PhraseNno of Phrase = CatNno ** PhraseScand with
  (ResScand = ResNno) ;