diff options
author | 2002-06-03 10:09:53 +0000 | |
---|---|---|
committer | 2002-06-03 10:09:53 +0000 | |
commit | 8a1550e2db6e95004eda1beec57200e214e91c72 (patch) | |
tree | a4a5f1b8ffbb49bda42a0c767044eea87223ba94 /contrib/field/field.ml4 | |
parent | d03d9d2993b4e9e67c3d21f0e4515256917906e1 (diff) |
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
Diffstat (limited to 'contrib/field/field.ml4')
-rw-r--r-- | contrib/field/field.ml4 | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/contrib/field/field.ml4 b/contrib/field/field.ml4 index 137d12528..7dc6d961f 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)) |