let mk_preserve_id   kf s ca = mk_prop PKPreserved (mk_annot_id kf s ca)