let add_prop_inv_fixpoint config acc kind s ca p = let id = WpPropId.mk_inv_hyp_id config.kf s ca in match kind_to_select config kind id with None -> acc | Some kind -> WpStrategy.add_prop_loop_inv acc kind s id p