let subst_in_pred x exp p = let var_subst v = if Var.equal v x then Some exp else None in subst_vars_in_pred var_subst p