let
mk_inv_hyp_id kf s ca = mk_prop
PKPropLoop
(mk_annot_id kf s ca)