diff options
| author | Pierre-Marie Pédrot | 2020-09-08 10:37:24 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-09-08 10:37:24 +0200 |
| commit | dde607ce50ddcf5f965d4ce222ca50f4d169a2f3 (patch) | |
| tree | 7f1eb9b6d5af851e776b0a6eb7594eb8b8910c00 /test-suite/success | |
| parent | edb2cefe61d5f5b3230ab33842e61423ca02fbdb (diff) | |
| parent | e5890700b4574ee9207b2daf6ec95707b9290275 (diff) | |
Merge PR #12954: Fixes a freshness issue with destruct/induction (see comment in #12944).
Ack-by: RalfJung
Ack-by: jashug
Reviewed-by: ppedrot
Diffstat (limited to 'test-suite/success')
| -rw-r--r-- | test-suite/success/induct.v | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/test-suite/success/induct.v b/test-suite/success/induct.v index 73fe53c757..a39b17e1f1 100644 --- a/test-suite/success/induct.v +++ b/test-suite/success/induct.v @@ -196,3 +196,13 @@ Goal forall m n:nat, n=m. double induction m n. Abort. +(* Mentioned as part of bug #12944 *) + +Inductive test : Set := cons : forall (IHv : nat) (v : test), test. + +Goal test -> test. +induction 1 as [? IHv]. +Undo. +destruct 1 as [? IHv]. +exact IHv. (* Check that the name is granted *) +Qed. |