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