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