diff options
| author | Pierre-Marie Pédrot | 2014-03-26 18:05:46 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2014-03-26 18:22:13 +0100 |
| commit | 0d6fac7744fa5e85852b34ef3d1a11c2f8b0cba5 (patch) | |
| tree | 847b48e8de8263da221e95dfa13ab5aa84593809 /proofs/tacmach.ml | |
| parent | fd2ab327c8d30f129fac3c882b73f4bd4e31a128 (diff) | |
Removing Tacmach compatibility layer in Inv.
Diffstat (limited to 'proofs/tacmach.ml')
| -rw-r--r-- | proofs/tacmach.ml | 6 |
1 files changed, 6 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 |