2 ||M|| This file is part of HELM, an Hypertextual, Electronic
3 ||A|| Library of Mathematics, developed at the Computer Science
4 ||T|| Department, University of Bologna, Italy.
6 ||T|| HELM is free software; you can redistribute it and/or
7 ||A|| modify it under the terms of the GNU General Public License
8 \ / version 2 or (at your option) any later version.
9 \ / This software is distributed as is, NO WARRANTY.
10 V_______________________________________________________________ *)
12 (* $Id: nCic.ml 9058 2008-10-13 17:42:30Z tassi $ *)
14 exception UnificationFailure of string Lazy.t;;
16 module Founif (B : Terms.Blob) :
20 Terms.varlist -> (* global varlist for both terms t1 and t2 *)
21 Terms.varlist -> (* locked variables: if equal to FV(t2) we match t1 with t2*)
24 B.t Terms.substitution * Terms.varlist
28 Terms.varlist -> 'a Terms.foterm -> 'a Terms.foterm ->
29 'a Terms.substitution * Terms.varlist
32 Terms.varlist -> Terms.varlist -> 'a Terms.foterm -> 'a Terms.foterm ->
33 'a Terms.substitution * Terms.varlist