diff options
| author |  Jason Gross <jgross@mit.edu> | 2019-03-08 02:13:42 -0500 |
|---|---|---|
| committer | Jason Gross <jgross@mit.edu> | 2019-03-08 02:13:42 -0500 |
| commit | b91315237cc35aa061b2549d31fb908416019b7e (patch) | |
| tree | f49b7e8481b7189e57292c734b127b57806af8cb | |
| parent | 295f86cd4dccaa3a5617f8ac3b4f2dd02b9cfedd (diff) | |
Remove GlobalTacticals
It turns out they don't actually work. See
https://github.com/coq/coq/issues/9719,
https://github.com/coq/coq/issues/9718,
https://github.com/coq/coq/issues/9717,
https://github.com/coq/coq/issues/9462#issuecomment-470822923
| -rw-r--r-- | _CoqProject | 1 | ||||
| -rw-r--r-- | src/Util/Tactics.v | 1 | ||||
| -rw-r--r-- | src/Util/Tactics/GlobalTacticals.v | 8 |
3 files changed, 0 insertions, 10 deletions
diff --git a/_CoqProject b/_CoqProject index 047dca488..7fdf9a21c 100644 --- a/_CoqProject +++ b/_CoqProject @@ -231,7 +231,6 @@ src/Util/Tactics/ETransitivity.v src/Util/Tactics/EvarExists.v src/Util/Tactics/Forward.v src/Util/Tactics/GetGoal.v -src/Util/Tactics/GlobalTacticals.v src/Util/Tactics/HasBody.v src/Util/Tactics/Head.v src/Util/Tactics/HeadUnderBinders.v diff --git a/src/Util/Tactics.v b/src/Util/Tactics.v index aedd1105d..7b378c9bf 100644 --- a/src/Util/Tactics.v +++ b/src/Util/Tactics.v @@ -19,7 +19,6 @@ Require Export Crypto.Util.Tactics.ETransitivity. Require Export Crypto.Util.Tactics.EvarExists. Require Export Crypto.Util.Tactics.Forward. Require Export Crypto.Util.Tactics.GetGoal. -Require Export Crypto.Util.Tactics.GlobalTacticals. Require Export Crypto.Util.Tactics.HasBody. Require Export Crypto.Util.Tactics.Head. Require Export Crypto.Util.Tactics.MoveLetIn. diff --git a/src/Util/Tactics/GlobalTacticals.v b/src/Util/Tactics/GlobalTacticals.v deleted file mode 100644 index 8efc56a51..000000000 --- a/src/Util/Tactics/GlobalTacticals.v +++ /dev/null @@ -1,8 +0,0 @@ -Ltac gprogress tac := - [ > progress tac | tac.. ] - + (let n := numgoals in guard n > 1; [ > | gprogress tac.. ]). -Tactic Notation "gprogress" tactic3(tac) := gprogress tac. -Ltac gtry tac := tac + idtac. -Tactic Notation "gtry" tactic3(tac) := gtry tac. -Ltac grepeat tac := gtry (gprogress (gtry tac); grepeat tac). -Tactic Notation "grepeat" tactic3(tac) := grepeat tac. |