From 0d6fac7744fa5e85852b34ef3d1a11c2f8b0cba5 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Wed, 26 Mar 2014 18:05:46 +0100
Subject: Removing Tacmach compatibility layer in Inv.

---
 proofs/tacmach.ml  | 6 ++++++
 proofs/tacmach.mli | 8 ++++++++
 2 files changed, 14 insertions(+)

(limited to 'proofs')

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
-- 
cgit v1.2.3