let add_prop_inv_establish config acc kind s ca p = let id = WpPropId.mk_establish_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