diff options
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/tacmach.ml | 6 | ||||
| -rw-r--r-- | proofs/tacmach.mli | 8 |
2 files changed, 14 insertions, 0 deletions
diff --git a/proofs/tacmach.ml b/proofs/tacmach.ml index 943974489c..fcba8119d2 100644 --- a/proofs/tacmach.ml +++ b/proofs/tacmach.ml @@ -271,4 +271,10 @@ module New = struct let pf_hnf_type_of gl t = pf_whd_betadeltaiota gl (pf_get_type_of gl t) + let pf_matches gl pat t = pf_apply ConstrMatching.matches_conv gl pat t + + let pf_whd_betadeltaiota gl t = pf_apply whd_betadeltaiota gl t + + let pf_nf_evar gl t = nf_evar (Proofview.Goal.sigma gl) t + end diff --git a/proofs/tacmach.mli b/proofs/tacmach.mli index bf0ce04a1d..d122b09417 100644 --- a/proofs/tacmach.mli +++ b/proofs/tacmach.mli @@ -148,5 +148,13 @@ module New : sig val pf_nf_concl : [ `LZ ] Proofview.Goal.t -> types val pf_reduce_to_quantified_ind : 'a Proofview.Goal.t -> types -> inductive * types + val pf_hnf_type_of : 'a Proofview.Goal.t -> constr -> types + + val pf_whd_betadeltaiota : 'a Proofview.Goal.t -> constr -> constr + + val pf_matches : 'a Proofview.Goal.t -> constr_pattern -> constr -> patvar_map + + val pf_nf_evar : 'a Proofview.Goal.t -> constr -> constr + end |