diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-05-15 11:13:31 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-05-15 11:36:07 +0200 |
commit | c98ed6692d16784e531f7eb8dbb1460fa20c7766 (patch) | |
tree | d81b81f1f613692ff4a33a8ad895b834c506bdb9 /test-suite/bugs/closed/5255.v | |
parent | 3b6d89acf4f233d0ed33f89c4e60bcd68e0e2820 (diff) |
Fix #5255: [Context (x : T := y)] should mean [Let x := y].
Diffstat (limited to 'test-suite/bugs/closed/5255.v')
-rw-r--r-- | test-suite/bugs/closed/5255.v | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/5255.v b/test-suite/bugs/closed/5255.v new file mode 100644 index 000000000..5daaf9edb --- /dev/null +++ b/test-suite/bugs/closed/5255.v @@ -0,0 +1,24 @@ +Section foo. + Context (x := 1). + Definition foo : x = 1 := eq_refl. +End foo. + +Module Type Foo. + Context (x := 1). + Definition foo : x = 1 := eq_refl. +End Foo. + +Set Universe Polymorphism. + +Inductive unit := tt. +Inductive eq {A} (x y : A) : Type := eq_refl : eq x y. + +Section bar. + Context (x := tt). + Definition bar : eq x tt := eq_refl _ _. +End bar. + +Module Type Bar. + Context (x := tt). + Definition bar : eq x tt := eq_refl _ _. +End Bar. |