sig val unif : (Term.term * Term.term) list -> Subs.subs val mgu : Term.term -> Term.term -> Subs.subs end