diff options
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 |