concrete PredicationFin of Predication = CatFin ** PredicationI with
  (Lang = LangFin) ;