diff options
| author | Pierre-Marie Pédrot | 2016-11-20 01:08:53 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-02-14 17:30:24 +0100 |
| commit | c72bf7330bb32970616be4dddc7571f3b91c1562 (patch) | |
| tree | ff731fd0358e2bbb5f9b60ae0815b5130d894f08 /proofs | |
| parent | 67507df457be05ee5b651a423031a8cd584934ef (diff) | |
Eqdecide API using EConstr.
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/tacmach.ml | 2 | ||||
| -rw-r--r-- | proofs/tacmach.mli | 4 |
2 files changed, 4 insertions, 2 deletions
diff --git a/proofs/tacmach.ml b/proofs/tacmach.ml index b732e5b9d9..aa54e4f9bb 100644 --- a/proofs/tacmach.ml +++ b/proofs/tacmach.ml @@ -23,6 +23,8 @@ open Context.Named.Declaration module NamedDecl = Context.Named.Declaration +let compute env sigma c = EConstr.of_constr (compute env sigma c) + let re_sig it gc = { it = it; sigma = gc; } (**************************************************************) diff --git a/proofs/tacmach.mli b/proofs/tacmach.mli index cfbfe12b17..340c7addca 100644 --- a/proofs/tacmach.mli +++ b/proofs/tacmach.mli @@ -69,7 +69,7 @@ val pf_nf : goal sigma -> EConstr.constr -> constr val pf_nf_betaiota : goal sigma -> EConstr.constr -> constr val pf_reduce_to_quantified_ind : goal sigma -> EConstr.types -> pinductive * EConstr.types val pf_reduce_to_atomic_ind : goal sigma -> EConstr.types -> pinductive * EConstr.types -val pf_compute : goal sigma -> EConstr.constr -> constr +val pf_compute : goal sigma -> EConstr.constr -> EConstr.constr val pf_unfoldn : (occurrences * evaluable_global_reference) list -> goal sigma -> EConstr.constr -> constr @@ -127,7 +127,7 @@ module New : sig val pf_hnf_type_of : ('a, 'r) Proofview.Goal.t -> EConstr.constr -> types val pf_whd_all : ('a, 'r) Proofview.Goal.t -> EConstr.t -> constr - val pf_compute : ('a, 'r) Proofview.Goal.t -> EConstr.t -> constr + val pf_compute : ('a, 'r) Proofview.Goal.t -> EConstr.t -> EConstr.constr val pf_matches : ('a, 'r) Proofview.Goal.t -> constr_pattern -> EConstr.constr -> patvar_map |