diff options
| author | herbelin | 2000-05-25 15:00:43 +0000 |
|---|---|---|
| committer | herbelin | 2000-05-25 15:00:43 +0000 |
| commit | 36c150fac098e1a038d23b812744e1aaaa5993da (patch) | |
| tree | b062f1c9500c584b65fd234580da1b78f05a6539 /pretyping | |
| parent | bfb42267924cbdafc101ac1cab55ace5e2733bfb (diff) | |
Bug existential_value au lieu de existential_type + divers sur existential
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@476 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/evarconv.ml | 2 | ||||
| -rw-r--r-- | pretyping/evarutil.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/evarconv.ml b/pretyping/evarconv.ml index 241e4ec053..a5c60e09a7 100644 --- a/pretyping/evarconv.ml +++ b/pretyping/evarconv.ml @@ -57,7 +57,7 @@ let tjudge_of_cast_safe sigma env var = let rec evar_apprec env isevars stack c = let (t,stack) = Reduction.apprec env !isevars c stack in if ise_defined isevars t then - evar_apprec env isevars stack (existential_value !isevars t) + evar_apprec env isevars stack (existential_value !isevars (destEvar t)) else (t,stack) diff --git a/pretyping/evarutil.ml b/pretyping/evarutil.ml index 10723c42b6..5e89dbc5db 100644 --- a/pretyping/evarutil.ml +++ b/pretyping/evarutil.ml @@ -325,7 +325,7 @@ let has_undefined_isevars isevars c = | DOPN(Evar ev,cl) as k -> if ise_in_dom isevars ev then if ise_defined isevars k then - hasrec (existential_value !isevars k) + hasrec (existential_value !isevars (ev,cl)) else failwith "caught" else |