diff options
| author | herbelin | 2000-11-28 16:32:08 +0000 |
|---|---|---|
| committer | herbelin | 2000-11-28 16:32:08 +0000 |
| commit | 7da58295173715d6de518516e2653dac90dd2d5c (patch) | |
| tree | 2cba748ef7c3c437fb527fe15214d02b2f546e14 /tactics | |
| 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')
| -rw-r--r-- | tactics/equality.ml | 3 | ||||
| -rw-r--r-- | tactics/tactics.ml | 4 |
2 files changed, 4 insertions, 3 deletions
diff --git a/tactics/equality.ml b/tactics/equality.ml index 83af309491..2e8ce398ee 100644 --- a/tactics/equality.ml +++ b/tactics/equality.ml @@ -670,7 +670,8 @@ let existS_pattern = put_pat mmk "(existS ?1 ?2 ?3 ?4)" let existT_pattern = put_pat mmk "(existT ?1 ?2 ?3 ?4)" let constant dir s = - Declare.global_absolute_reference (make_path dir (id_of_string s) CCI) + Declare.global_absolute_reference + (make_path ("Init"::dir) (id_of_string s) CCI) let build_sigma_set () = { proj1 = constant ["Specif"] "projS1"; diff --git a/tactics/tactics.ml b/tactics/tactics.ml index cf9946b8e9..b1eb7b6efd 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 = |