concrete PredicationNor of Predication = CatNor ** PredicationI with
  (Lang = LangNor) ;