diff options
| author | Gaëtan Gilbert | 2020-02-18 14:00:13 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2020-02-18 14:00:13 +0100 |
| commit | af3fd09e2f0cc2eac2bc8802a6818baf0c184563 (patch) | |
| tree | 0a17a44dc4767827efb0f230168f2b9fdeffadf4 /pretyping/program.ml | |
| parent | fdcfe8b75be809fcce231a69cb756e1e23d50f93 (diff) | |
| parent | 0fbc51b6cf6cbb83b734cc2f1e482d1c7adeff3c (diff) | |
Merge PR #10204: Remove `unsafe_type_of` from `Coercion`
Reviewed-by: SkySkimmer
Reviewed-by: mattam82
Diffstat (limited to 'pretyping/program.ml')
| -rw-r--r-- | pretyping/program.ml | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/pretyping/program.ml b/pretyping/program.ml index 9c478844aa..909ba6e44a 100644 --- a/pretyping/program.ml +++ b/pretyping/program.ml @@ -11,12 +11,11 @@ open CErrors open Util -let papp evdref r args = +let papp sigma r args = let open EConstr in let gr = delayed_force r in - let evd, hd = Evarutil.new_global !evdref gr in - evdref := evd; - mkApp (hd, args) + let evd, hd = Evarutil.new_global sigma gr in + sigma, mkApp (hd, args) let sig_typ () = Coqlib.lib_ref "core.sig.type" let sig_intro () = Coqlib.lib_ref "core.sig.intro" |