diff options
| author | Enrico Tassi | 2019-06-06 09:57:54 +0200 |
|---|---|---|
| committer | Enrico Tassi | 2019-06-06 09:57:54 +0200 |
| commit | ad4fdc2cfa6bb34a4e924e0eba0bc7236d7fa9a6 (patch) | |
| tree | 4b74eb146f7c6d2e53052e85ef271ed625be4280 /test-suite | |
| parent | c0a695e89b0562eb6450c04ddba5e6e0414e5fd8 (diff) | |
| parent | 7b28407418a15ce0b18cba309a51a1158b5bd324 (diff) | |
Merge PR #10302: Fix SSR 'case B:b' with universe polymorphic equality
Ack-by: andreaslyn
Reviewed-by: gares
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/ssr/case_polyuniv.v | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/test-suite/ssr/case_polyuniv.v b/test-suite/ssr/case_polyuniv.v new file mode 100644 index 0000000000..8774e191c1 --- /dev/null +++ b/test-suite/ssr/case_polyuniv.v @@ -0,0 +1,12 @@ +Require Import ssreflect. + +Set Universe Polymorphism. + +Cumulative Variant paths {A} (x:A) : A -> Type + := idpath : paths x x. + +Register paths as core.eq.type. +Register idpath as core.eq.refl. + +Lemma case_test (b:bool) : paths b b. +Proof. case B:b; reflexivity. Qed. |