diff options
| author | pboutill | 2012-07-20 14:22:48 +0000 |
|---|---|---|
| committer | pboutill | 2012-07-20 14:22:48 +0000 |
| commit | 57128547546baa38ab436c87ed66361342c36cb8 (patch) | |
| tree | 9d2f20fe0bde422d9e5eefd25e3e78142aed1cb0 /proofs | |
| parent | 1982377ee52a4361a3537f13f379facd6f57d62f (diff) | |
Reductionops refactoring
Semantic changes are :
- whd_nored_stack remplaces a defined meta by its value whereas the old whd_stack
didn't.
- Zcase and Zfix are alwais put on stack. iota_flag is checked by constructors and
cofix.
- simpl uses its own whd_ function that do not touch at matched term
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15634 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/clenv.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/proofs/clenv.ml b/proofs/clenv.ml index fb1900f2f6..864806f851 100644 --- a/proofs/clenv.ml +++ b/proofs/clenv.ml @@ -276,7 +276,7 @@ let clenv_unify_meta_types ?(flags=default_unify_flags) clenv = let clenv_unique_resolver ?(flags=default_unify_flags) clenv gl = let concl = Goal.V82.concl clenv.evd (sig_it gl) in - if isMeta (fst (whd_stack clenv.evd clenv.templtyp.rebus)) then + if isMeta (fst (whd_nored_stack clenv.evd clenv.templtyp.rebus)) then clenv_unify CUMUL ~flags (clenv_type clenv) concl (clenv_unify_meta_types ~flags clenv) else @@ -429,7 +429,7 @@ let error_already_defined b = (str "Position " ++ int n ++ str" already defined.") let clenv_unify_binding_type clenv c t u = - if isMeta (fst (whd_stack clenv.evd u)) then + if isMeta (fst (whd_nored_stack clenv.evd u)) then (* Not enough information to know if some subtyping is needed *) CoerceToType, clenv, c else |