From 1dccf4412cf9f5903c6291e08f2001c895babfd1 Mon Sep 17 00:00:00 2001 From: Pierre-Marie Pédrot Date: Tue, 25 Mar 2014 19:27:44 +0100 Subject: Moving some tactic code to the new engine. --- tactics/hipattern.ml4 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'tactics/hipattern.ml4') diff --git a/tactics/hipattern.ml4 b/tactics/hipattern.ml4 index 80720cfaf..cc3c4c297 100644 --- a/tactics/hipattern.ml4 +++ b/tactics/hipattern.ml4 @@ -396,10 +396,10 @@ let find_eq_data eqn = (* fails with PatternMatchingFailure *) let extract_eq_args gl = function | MonomorphicLeibnizEq (e1,e2) -> - let t = Tacmach.pf_type_of gl e1 in (t,e1,e2) + let t = Tacmach.New.pf_type_of gl e1 in (t,e1,e2) | PolymorphicLeibnizEq (t,e1,e2) -> (t,e1,e2) | HeterogenousEq (t1,e1,t2,e2) -> - if Tacmach.pf_conv_x gl t1 t2 then (t1,e1,e2) + if Tacmach.New.pf_conv_x gl t1 t2 then (t1,e1,e2) else raise PatternMatchingFailure let find_eq_data_decompose gl eqn = -- cgit v1.2.3