let val_purify (s : t_subst) (t : term ) : term * t_subst = 
  match purify s t with
    | (Var(n), ss) -> (valeur n ss, ss)
    | r -> r