let mk_fct_post_id kf b k p =
  mk_predicate_id (Property.PKEnsures(b,k),kf,Kglobal,p)