aux false false l
;;
-module Founif (B : Orderings.Blob) = struct
+module FoUnif (B : Terms.Blob) = struct
module Subst = FoSubst
module U = FoUtils.Utils(B)
subst
;;
+(* Sets of variables in s and t are assumed to be disjoint *)
let alpha_eq s t =
let rec equiv subst s t =
let s = match s with Terms.Var i -> Subst.lookup i subst | _ -> s