diff options
| author |  filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-01-31 19:02:36 +0000 |
|---|---|---|
| committer | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-01-31 19:02:36 +0000 |
| commit | 61bf07f5a58260db287696def58dba1aeac84a81 (patch) | |
| tree | 8619ac1f822b853913c376ca47c2ca21a033bc0e /contrib | |
| parent | c1db8eb695a04d172130959ff38eef61d3ca9653 (diff) | |
Mise en place de la possibilite d'unfolder des variables locales et des constantes qualifiees
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1301 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib')
| -rw-r--r-- | contrib/omega/coq_omega.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/contrib/omega/coq_omega.ml b/contrib/omega/coq_omega.ml index c874e135a..518b98006 100644 --- a/contrib/omega/coq_omega.ml +++ b/contrib/omega/coq_omega.ml @@ -365,7 +365,9 @@ let coq_or = lazy (constant ["Init";"Logic"] "or") let coq_ex = lazy (constant ["Init";"Logic"] "ex") (* Section paths for unfold *) -let make_coq_path dir s = make_path ("Coq"::dir) (id_of_string s) CCI +open Closure +let make_coq_path dir s = + EvalConstRef (make_path ("Coq"::dir) (id_of_string s) CCI) let sp_Zs = make_coq_path ["Zarith";"zarith_aux"] "Zs" let sp_Zminus = make_coq_path ["Zarith";"zarith_aux"] "Zminus" let sp_Zle = make_coq_path ["Zarith";"zarith_aux"] "Zle" |