From 8a1550e2db6e95004eda1beec57200e214e91c72 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 3 Jun 2002 10:09:53 +0000
Subject: Protection des tactiques contre l'utilisation sans le bon contexte de
 thories

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2745 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/field/field.ml4 | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'contrib/field')

diff --git a/contrib/field/field.ml4 b/contrib/field/field.ml4
index 137d125287..7dc6d961fa 100644
--- a/contrib/field/field.ml4
+++ b/contrib/field/field.ml4
@@ -128,6 +128,7 @@ END
 
 (* Guesses the type and calls Field_Gen with the right theory *)
 let field g =
+  Library.check_required_module ["Coq";"field";"Field"];
   let evc = project g
   and env = pf_env g in
   let ist = { evc=evc; env=env; lfun=[]; lmatch=[];
@@ -161,6 +162,7 @@ let guess_theory env evc = function
 
 (* Guesses the type and calls Field_Term with the right theory *)
 let field_term l g =
+  Library.check_required_module ["Coq";"field";"Field"];
   let env = (pf_env g)
   and evc = (project g) in
   let th = valueIn (VConstr (guess_theory env evc l))
-- 
cgit v1.2.3