diff options
| author | Pierre-Marie Pédrot | 2016-11-24 15:50:17 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-02-14 17:30:38 +0100 |
| commit | b36adb2124d3ba8a5547605e7f89bb0835d0ab10 (patch) | |
| tree | 4ab6481d8d182f6bb3dd241b7112a3027aa26b2a /pretyping/program.ml | |
| parent | ffb59901f568351401f2f3d1f3334031658b8880 (diff) | |
Removing some return type compatibility layers in Termops.
Diffstat (limited to 'pretyping/program.ml')
| -rw-r--r-- | pretyping/program.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/program.ml b/pretyping/program.ml index 8ec6083f71..caa5a5c8a6 100644 --- a/pretyping/program.ml +++ b/pretyping/program.ml @@ -31,7 +31,7 @@ let init_reference dir s () = coq_reference "Program" dir s let papp evdref r args = let open EConstr in let gr = delayed_force r in - mkApp (EConstr.of_constr (Evarutil.e_new_global evdref gr), args) + mkApp (Evarutil.e_new_global evdref gr, args) let sig_typ = init_reference ["Init"; "Specif"] "sig" let sig_intro = init_reference ["Init"; "Specif"] "exist" |