concrete PredicationGer of Predication = CatGer ** PredicationI with
  (Lang = LangGer) ;