diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-11-28 16:32:08 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-11-28 16:32:08 +0000 |
commit | 7da58295173715d6de518516e2653dac90dd2d5c (patch) | |
tree | 2cba748ef7c3c437fb527fe15214d02b2f546e14 /tactics/tactics.ml | |
parent | 14b236a0bcc5071c5048d87768437df0b30e387a (diff) |
Prise en compte du repertoire dans le section path; utilisation de dirpath pour les noms de modules
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1005 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/tactics.ml')
-rw-r--r-- | tactics/tactics.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index cf9946b8e..b1eb7b6ef 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -1527,8 +1527,8 @@ let contradiction_on_hyp id gl = let constant dir s = Declare.global_absolute_reference (make_path dir (id_of_string s) CCI) -let coq_False = lazy (constant ["Logic"] "False") -let coq_not = lazy (constant ["Logic"] "not") +let coq_False = lazy (constant ["Init";"Logic"] "False") +let coq_not = lazy (constant ["Init";"Logic"] "not") (* Absurd *) let absurd c gls = |