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/inv.ml | |
| parent | 1d933c489d1f9d064fd54a4487754a86a0aed506 (diff) | |
Moving some tactic code to the new engine.
Diffstat (limited to 'tactics/inv.ml')
| -rw-r--r-- | tactics/inv.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/inv.ml b/tactics/inv.ml index 06853e137..d2dd64e52 100644 --- a/tactics/inv.ml +++ b/tactics/inv.ml @@ -300,7 +300,7 @@ let remember_first_eq id x = if !x == MoveLast then x := MoveAfter id let projectAndApply thin id eqname names depids = let subst_hyp l2r id = - tclTHEN (tclTRY(rewriteInConcl l2r (mkVar id))) + tclTHEN (tclTRY(Proofview.V82.of_tactic (rewriteInConcl l2r (mkVar id)))) (if thin then clear [id] else (remember_first_eq id eqname; tclIDTAC)) in let substHypIfVariable tac id = |