diff options
| author | barras | 2001-11-29 09:21:25 +0000 |
|---|---|---|
| committer | barras | 2001-11-29 09:21:25 +0000 |
| commit | 86952ac8ad1dba395cb4724ac0b4f54774448944 (patch) | |
| tree | 11936786a1a4c5e394c6adba3c5fa737470628d0 /contrib/extraction | |
| parent | b92811d26a108c12803edd63eb390e9dd05b5652 (diff) | |
nouvel algo de conversion plus uniforme
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2246 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/extraction')
| -rw-r--r-- | contrib/extraction/extract_env.ml | 1 | ||||
| -rw-r--r-- | contrib/extraction/extraction.ml | 2 |
2 files changed, 2 insertions, 1 deletions
diff --git a/contrib/extraction/extract_env.ml b/contrib/extraction/extract_env.ml index 2fd9979868..77e20c7856 100644 --- a/contrib/extraction/extract_env.ml +++ b/contrib/extraction/extract_env.ml @@ -11,6 +11,7 @@ open Pp open Util open Names +open Nameops open Term open Lib open Extraction diff --git a/contrib/extraction/extraction.ml b/contrib/extraction/extraction.ml index 9aecdd4c4e..132367de95 100644 --- a/contrib/extraction/extraction.ml +++ b/contrib/extraction/extraction.ml @@ -108,7 +108,7 @@ let sort_of env c = Retyping.get_sort_family_of env Evd.empty (strip_outer_cast c) open RedFlags -let whd_betaiotalet = clos_norm_flags (UNIFORM, mkflags [fBETA;fIOTA;fZETA]) +let whd_betaiotalet = clos_norm_flags (mkflags [fBETA;fIOTA;fZETA]) let is_axiom sp = (Global.lookup_constant sp).const_body = None |