let subst_vars_in_pred prop_in_data var_subst p =
  let quantif_do_exp do_exp qqvar = 
    assert (var_subst qqvar = None); do_exp
  in
  let do_exp = change_vars_in_exp prop_in_data var_subst in
    change_exp_in_pred do_exp quantif_do_exp p