concrete PredicationDan of Predication = CatDan ** PredicationI with
  (Syntax = SyntaxDan),
  (Lang = LangDan) ;