diff options
Diffstat (limited to 'test-suite')
-rw-r--r-- | test-suite/success/induct.v | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/test-suite/success/induct.v b/test-suite/success/induct.v index d796cf748..b24ed2f1b 100644 --- a/test-suite/success/induct.v +++ b/test-suite/success/induct.v @@ -41,3 +41,26 @@ Proof. auto. auto. Qed. + +(* Check selection of occurrences by pattern *) + +Goal forall x, S x = S (S x). +intros. +induction (S _) in |- * at -2. +now_show (0=1). +Undo 2. +induction (S _) in |- * at 1 3. +now_show (0=1). +Undo 2. +induction (S _) in |- * at 1. +now_show (0=S (S x)). +Undo 2. +induction (S _) in |- * at 2. +now_show (S x=0). +Undo 2. +induction (S _) in |- * at 3. +now_show (S x=1). +Undo 2. +Fail induction (S _) in |- * at 4. +Abort. + |