let
mk_stmt_post_id kf s b p =
mk_prop
PKProp
(
Property
.ip_of_ensures kf (
Kstmt
s) b p)