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