diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-07-10 15:41:39 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-07-10 15:41:39 +0000 |
| commit | ce71c3c34c2271444abd241ee0b7505fd2767818 (patch) | |
| tree | 5dc0597a94a23a3f7d71ef3798919281803d0543 /test-suite/success/induct.v | |
| parent | a884f7dcebed71608f395fe140722790367089e2 (diff) | |
Restore test file induct.v where the "in |- *" is mandatory
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15585 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite/success/induct.v')
| -rw-r--r-- | test-suite/success/induct.v | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/test-suite/success/induct.v b/test-suite/success/induct.v index 8ed941f86..01ebfc4f0 100644 --- a/test-suite/success/induct.v +++ b/test-suite/success/induct.v @@ -46,21 +46,21 @@ Qed. Goal forall x, S x = S (S x). intros. -induction (S _) at -2. +induction (S _) in |- * at -2. now_show (0=1). Undo 2. -induction (S _) at 1 3. +induction (S _) in |- * at 1 3. now_show (0=1). Undo 2. -induction (S _) at 1. +induction (S _) in |- * at 1. now_show (0=S (S x)). Undo 2. -induction (S _) at 2. +induction (S _) in |- * at 2. now_show (S x=0). Undo 2. -induction (S _) at 3. +induction (S _) in |- * at 3. now_show (S x=1). Undo 2. -Fail induction (S _) at 4. +Fail induction (S _) in |- * at 4. Abort. |