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