diff options
| author | Maxime Dénès | 2017-10-06 12:45:33 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2017-10-06 12:45:33 +0200 |
| commit | 3de25a6f91ec3cc5c9173ab7c93caee87cae578f (patch) | |
| tree | 31cf6d23bb35bef3b090a5ed66f21e9d1da2627b /test-suite/bugs | |
| parent | ef11a1240c14560e199527ae6d8a6eb893da1438 (diff) | |
| parent | 40260a31cd197f655e6d3e0570a88d96fc1a9cac (diff) | |
Merge PR #1119: Fixing bug BZ#5769 (generating a name "_" out of a type "_something")
Diffstat (limited to 'test-suite/bugs')
| -rw-r--r-- | test-suite/bugs/closed/5769.v | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/5769.v b/test-suite/bugs/closed/5769.v new file mode 100644 index 0000000000..42573aad87 --- /dev/null +++ b/test-suite/bugs/closed/5769.v @@ -0,0 +1,20 @@ +(* Check a few naming heuristics based on types *) +(* was buggy for types names _something *) + +Inductive _foo :=. +Lemma bob : (sigT (fun x : nat => _foo)) -> _foo. +destruct 1. +exact _f. +Abort. + +Inductive _'Foo :=. +Lemma bob : (sigT (fun x : nat => _'Foo)) -> _'Foo. +destruct 1. +exact _'f. +Abort. + +Inductive ____ :=. +Lemma bob : (sigT (fun x : nat => ____)) -> ____. +destruct 1. +exact x0. +Abort. |