let
mk_fct_post_id kf b p =
mk_prop
PKProp
(
Property
.ip_of_ensures kf
Kglobal
b p)