diff options
-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. |