diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-03-25 19:27:44 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-03-26 12:46:20 +0100 |
| commit | 1dccf4412cf9f5903c6291e08f2001c895babfd1 (patch) | |
| tree | dc643bc580346bd4fee02d31e3f3c1acec6b855e /tactics/hipattern.ml4 | |
| parent | 1d933c489d1f9d064fd54a4487754a86a0aed506 (diff) | |
Moving some tactic code to the new engine.
Diffstat (limited to 'tactics/hipattern.ml4')
| -rw-r--r-- | tactics/hipattern.ml4 | 4 |
1 files changed, 2 insertions, 2 deletions
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 = |