diff options
| -rw-r--r-- | doc/sphinx/proof-engine/tactics.rst | 11 | ||||
| -rw-r--r-- | tactics/equality.ml | 2 |
2 files changed, 3 insertions, 10 deletions
diff --git a/doc/sphinx/proof-engine/tactics.rst b/doc/sphinx/proof-engine/tactics.rst index c5fab0983f..8635add0e1 100644 --- a/doc/sphinx/proof-engine/tactics.rst +++ b/doc/sphinx/proof-engine/tactics.rst @@ -2819,19 +2819,12 @@ simply :g:`t=u` dropping the implicit type of :g:`t` and :g:`u`. only in the conclusion of the goal. The clause argument must not contain any ``type of`` nor ``value of``. - .. tacv:: cutrewrite <- (@term = @term’) + .. tacv:: cutrewrite {? {| <- | -> } } (@term__1 = @term__2) {? in @ident } :name: cutrewrite .. deprecated:: 8.5 - This tactic can be replaced by :n:`enough (@term = @term’) as <-`. - - .. tacv:: cutrewrite -> (@term = @term’) - - .. deprecated:: 8.5 - - This tactic can be replaced by :n:`enough (@term = @term’) as ->`. - + Use :tacn:`replace` instead. .. tacn:: subst @ident :name: subst diff --git a/tactics/equality.ml b/tactics/equality.ml index 1689b0d3ad..f1326a51a9 100644 --- a/tactics/equality.ml +++ b/tactics/equality.ml @@ -1649,7 +1649,7 @@ let cutSubstClause l2r eqn cls = let warn_deprecated_cutrewrite = CWarnings.create ~name:"deprecated-cutrewrite" ~category:"deprecated" - (fun () -> strbrk"\"cutrewrite\" is deprecated. See documentation for proposed replacement.") + (fun () -> strbrk"\"cutrewrite\" is deprecated. Use \"replace\" instead.") let cutRewriteClause l2r eqn cls = warn_deprecated_cutrewrite (); |