concrete PhraseGus of Phrase = CatGus ** PhraseBantu with
 (ResBantu = ResGus);