diff options
| author | herbelin | 2005-03-10 23:18:47 +0000 |
|---|---|---|
| committer | herbelin | 2005-03-10 23:18:47 +0000 |
| commit | 0367df1ed02906d86b10e78a73e48ccd84bbd9a7 (patch) | |
| tree | 38ed1bd26123e0df7ce892528b4eb8bd5817a1e9 /pretyping/reductionops.ml | |
| parent | 8a2c1dba09e78129b279e0fe9e862f8cecbcf2aa (diff) | |
A défaut de substitution paresseuse ou explicite, ajout d'une substitution optimisée pour le prétypage qui normalise les evars à la volée (cf bug #932)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6820 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/reductionops.ml')
| -rw-r--r-- | pretyping/reductionops.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/pretyping/reductionops.ml b/pretyping/reductionops.ml index f77dfe3c29..6ed5f2468a 100644 --- a/pretyping/reductionops.ml +++ b/pretyping/reductionops.ml @@ -441,7 +441,8 @@ let subst1_nf_evar sigma v = else mkRel (k-1) | Evar (ev,args as evar) -> (try substrec depth (Evd.existential_value sigma evar) - with Not_found -> mkEvar (ev, Array.map (substrec depth) args)) + with Evd.NotInstantiatedEvar -> + mkEvar (ev, Array.map (substrec depth) args)) | _ -> map_constr_with_binders succ substrec depth c in substrec 0 |