From b91315237cc35aa061b2549d31fb908416019b7e Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Fri, 8 Mar 2019 02:13:42 -0500 Subject: 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 --- src/Util/Tactics.v | 1 - src/Util/Tactics/GlobalTacticals.v | 8 -------- 2 files changed, 9 deletions(-) delete mode 100644 src/Util/Tactics/GlobalTacticals.v (limited to 'src/Util') 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. -- cgit v1.2.3