let new_var_if_not_std : term * t_subst -> term * t_subst = function | (Atm(0) as e, s) | (Xor(_) as e, s) -> add_newvalue s e | c -> c