diff options
| author |  Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2018-04-25 18:08:39 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2018-05-11 13:41:26 +0200 |
| commit | 864fda19d046428023851ba540b82c5ca24d06a4 (patch) | |
| tree | d77adab5fd7c50c6a5910caa1294e88308b4badc /pretyping/coercion.ml | |
| parent | 9091187bad0e609211060032880e4688e2cafbef (diff) | |
Deprecate most evarutil evdref functions
clear_hyps remain with no alternative
Diffstat (limited to 'pretyping/coercion.ml')
| -rw-r--r-- | pretyping/coercion.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/pretyping/coercion.ml b/pretyping/coercion.ml index 6dc3687a0..e8b17d694 100644 --- a/pretyping/coercion.ml +++ b/pretyping/coercion.ml @@ -94,7 +94,9 @@ open Program let make_existential ?loc ?(opaque = not (get_proofs_transparency ())) na env evdref c = let src = Loc.tag ?loc (Evar_kinds.QuestionMark (Evar_kinds.Define opaque,na)) in - Evarutil.e_new_evar env evdref ~src c + let evd, v = Evarutil.new_evar env !evdref ~src c in + evdref := evd; + v let app_opt env evdref f t = whd_betaiota !evdref (app_opt f t) |