concrete PredicationFre of Predication = CatFre ** PredicationI with
  (Lang = LangFre) ;