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