Imported Upstream version 8.2~beta3+dfsgupstream/8.2.beta3+dfsg

1 files changed, 8 insertions, 7 deletions

diff --git a/contrib/subtac/eterm.mli b/contrib/subtac/eterm.mli
index 76994c06..007e327c 100644
--- a/contrib/subtac/eterm.mli
+++ b/contrib/subtac/eterm.mli
@@ -6,8 +6,8 @@
 (*         *       GNU Lesser General Public License Version 2.1        *)
 (************************************************************************)
 
-(*i $Id: eterm.mli 9976 2007-07-12 11:58:30Z msozeau $ i*)
-
+(*i $Id: eterm.mli 10889 2008-05-06 14:05:20Z msozeau $ i*)
+open Environ
 open Tacmach
 open Term
 open Evd
@@ -18,10 +18,11 @@ val mkMetas : int -> constr list
 
 (* val eterm_term : evar_map -> constr -> types option -> constr * types option * (identifier * types) list *)
 
-(* id, named context length, evars, number of
-   function prototypes to try to clear from evars contexts, object and optional type *)
-val eterm_obligations : identifier -> int -> evar_defs -> evar_map -> int -> constr -> types option -> 
-  (identifier * types * bool * Intset.t) array * constr
-    (* Obl. name, type as product, opacity (true = opaque) and dependencies as indexes into the array *)
+(* env, id, evars, number of
+   function prototypes to try to clear from evars contexts, object and type *)
+val eterm_obligations : env -> identifier -> evar_defs -> evar_map -> int -> constr -> types -> 
+  (identifier * types * loc * bool * Intset.t) array * constr * types
+    (* Obl. name, type as product, location of the original evar, 
+       opacity (true = opaque) and dependencies as indexes into the array *)
 
 val etermtac : open_constr -> tactic