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