diff options
| -rw-r--r-- | test-suite/success/univers.v | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/test-suite/success/univers.v b/test-suite/success/univers.v new file mode 100644 index 0000000000..7bb3c363bb --- /dev/null +++ b/test-suite/success/univers.v @@ -0,0 +1,17 @@ +(* This requires cumulativity *) + +Definition Type2 := Type. +Definition Type1 := Type : Type2. + +Goal (True->Type1)->Type2. +Intro H. +Apply H. + +Lemma gg : (A:Type)(P:A->Type)(x:A)((y:A)(x==y)->(P y))->(P x). +Auto. +Qed. + +Lemma titi : (P:Prop)P. +Intro P ; Pattern P. +Apply gg. +Qed. |