diff options
author | 2008-03-10 10:22:45 +0000 | |
---|---|---|
committer | 2008-03-10 10:22:45 +0000 | |
commit | b00cb9ccbb02e2aa913294887749fff79b0adad5 (patch) | |
tree | be346e575c0c82cacc77b7fb8f5bc620f4ad8886 /pretyping/pretyping.ml | |
parent | 82887aeb4bde7ddd8e1000881124198de5845f9d (diff) |
Une passe sur l'unification des evars (suite aux commits 10124, 10125, 10145)
- Correction bug des filtres dans define_evar_as_abstraction
- Nettoyage, documentation et réorganisations diverses
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10650 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/pretyping.ml')
-rw-r--r-- | pretyping/pretyping.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/pretyping.ml b/pretyping/pretyping.ml index ee5acffd9..980a5075f 100644 --- a/pretyping/pretyping.ml +++ b/pretyping/pretyping.ml @@ -299,7 +299,7 @@ module Pretyping_F (Coercion : Coercion.S) = struct | REvar (loc, evk, instopt) -> (* Ne faudrait-il pas s'assurer que hyps est bien un sous-contexte du contexte courant, et qu'il n'y a pas de Rel "caché" *) - let hyps = evar_context (Evd.find (evars_of !evdref) evk) in + let hyps = evar_filtered_context (Evd.find (evars_of !evdref) evk) in let args = match instopt with | None -> instance_from_named_context hyps | Some inst -> failwith "Evar subtitutions not implemented" in |