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