concrete PredicationCat of Predication = CatCat ** PredicationI with
  (Syntax = SyntaxCat),
  (Lang = LangCat) ;