diff options
Diffstat (limited to 'theories/Program')
| -rw-r--r-- | theories/Program/Syntax.v | 7 | ||||
| -rw-r--r-- | theories/Program/Tactics.v | 2 |
2 files changed, 1 insertions, 8 deletions
diff --git a/theories/Program/Syntax.v b/theories/Program/Syntax.v index 67e9a20c..892305b4 100644 --- a/theories/Program/Syntax.v +++ b/theories/Program/Syntax.v @@ -32,10 +32,3 @@ Require List. Export List.ListNotations. Require Import Bvector. - -(** Treating n-ary exists *) - -Tactic Notation "exists" constr(x) := exists x. -Tactic Notation "exists" constr(x) constr(y) := exists x ; exists y. -Tactic Notation "exists" constr(x) constr(y) constr(z) := exists x ; exists y ; exists z. -Tactic Notation "exists" constr(x) constr(y) constr(z) constr(w) := exists x ; exists y ; exists z ; exists w. diff --git a/theories/Program/Tactics.v b/theories/Program/Tactics.v index 0cf8d733..c1d958b9 100644 --- a/theories/Program/Tactics.v +++ b/theories/Program/Tactics.v @@ -41,7 +41,7 @@ Ltac do_nat n tac := (** Do something on the last hypothesis, or fail *) Ltac on_last_hyp tac := - match goal with [ H : _ |- _ ] => first [ tac H | fail 1 ] end. + lazymatch goal with [ H : _ |- _ ] => tac H end. (** Destructs one pair, without care regarding naming. *) |