From c0d3aade079394ec1e457c807ba0e104be6f6128 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 1 Sep 2006 11:07:49 +0000
Subject: Export de check_evars vers command.ml

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9105 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 pretyping/pretyping.ml  | 2 ++
 pretyping/pretyping.mli | 1 +
 2 files changed, 3 insertions(+)

diff --git a/pretyping/pretyping.ml b/pretyping/pretyping.ml
index 8b41b9c9b5..738a951470 100644
--- a/pretyping/pretyping.ml
+++ b/pretyping/pretyping.ml
@@ -114,6 +114,8 @@ sig
 
   val understand_judgment_tcc : evar_defs ref -> env -> rawconstr -> unsafe_judgment
 
+  val check_evars : env -> evar_map -> evar_defs ref -> constr -> unit
+
   (*i*)
   (* Internal of Pretyping...
    * Unused outside, but useful for debugging
diff --git a/pretyping/pretyping.mli b/pretyping/pretyping.mli
index ca1a1ded4c..06b290b1da 100644
--- a/pretyping/pretyping.mli
+++ b/pretyping/pretyping.mli
@@ -78,6 +78,7 @@ sig
   (* Idem but do not fail on unresolved evars *)
   val understand_judgment_tcc : evar_defs ref -> env -> rawconstr -> unsafe_judgment
 
+  val check_evars : env -> evar_map -> evar_defs ref -> constr -> unit
        
   (*i*)
   (* Internal of Pretyping...
-- 
cgit v1.2.3