let
mk_stmt_post_id kf s b k p =
mk_predicate_id (
Property
.
PKEnsures
(b,k),kf,
Kstmt
s,p)