diff options
| author | herbelin | 2000-07-24 13:39:23 +0000 |
|---|---|---|
| committer | herbelin | 2000-07-24 13:39:23 +0000 |
| commit | 3afaf3dde673d77cacaabc354f008dfbe49a7cee (patch) | |
| tree | 4264164faf763ab8d18274cd5aeffe5a1de21728 /pretyping/evarconv.ml | |
| parent | 83f038e61a4424fcf71aada9f97c91165b73aef8 (diff) | |
Passage à des contextes de vars et de rels pouvant contenir des déclarations
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@568 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/evarconv.ml')
| -rw-r--r-- | pretyping/evarconv.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/pretyping/evarconv.ml b/pretyping/evarconv.ml index a4faeb3e4b..3afc734695 100644 --- a/pretyping/evarconv.ml +++ b/pretyping/evarconv.ml @@ -261,9 +261,9 @@ and evar_eqappr_x env isevars pbty appr1 appr2 = | ((DOP2(Prod,c1,DLAM(n,c2)),[]), (DOP2(Prod,c'1,DLAM(_,c'2)),[])) -> evar_conv_x env isevars CONV c1 c'1 - & evar_conv_x - (push_rel (n,Retyping.get_assumption_of env !isevars (nf_ise1 !isevars c1)) env) isevars - pbty c2 c'2 + & + (let d = Retyping.get_assumption_of env !isevars (nf_ise1 !isevars c1) + in evar_conv_x (push_rel_decl (n,d) env) isevars pbty c2 c'2) | ((DOPN(MutInd _ as o1,cl1) as ind1,l'1), (DOPN(MutInd _ as o2,cl2) as ind2,l'2)) -> |