diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-11-07 20:33:06 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-02-14 17:27:22 +0100 |
| commit | e4f066238799a4598817dfeab8a044760ab670de (patch) | |
| tree | 7f29de2c76c8a97b8cfa82791cb860dafd227798 /pretyping/program.ml | |
| parent | ce2b509734f3b70494a0a35b0b4eda593c1c8eb6 (diff) | |
Coercion API using EConstr.
Diffstat (limited to 'pretyping/program.ml')
| -rw-r--r-- | pretyping/program.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/pretyping/program.ml b/pretyping/program.ml index 4b6137b53..2606d91f3 100644 --- a/pretyping/program.ml +++ b/pretyping/program.ml @@ -29,8 +29,9 @@ let init_constant dir s () = coq_constant "Program" dir s 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 (Evarutil.e_new_global evdref gr, args) + mkApp (EConstr.of_constr (Evarutil.e_new_global evdref gr), args) let sig_typ = init_reference ["Init"; "Specif"] "sig" let sig_intro = init_reference ["Init"; "Specif"] "exist" |