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