concrete NounGus of Noun = 
  CatGus ** NounBantu with (Structural = StructuralGus), (ResBantu = ResGus);