From 6b649aba925b6f7462da07599fe67ebb12a3460e Mon Sep 17 00:00:00 2001 From: Samuel Mimram Date: Wed, 28 Jul 2004 21:54:47 +0000 Subject: Imported Upstream version 8.0pl1 --- test-suite/success/univers.v | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 test-suite/success/univers.v (limited to 'test-suite/success/univers.v') diff --git a/test-suite/success/univers.v b/test-suite/success/univers.v new file mode 100644 index 00000000..0a4b284f --- /dev/null +++ b/test-suite/success/univers.v @@ -0,0 +1,19 @@ +(* This requires cumulativity *) + +Definition Type2 := Type. +Definition Type1 := Type : Type2. + +Lemma lem1 : (True->Type1)->Type2. +Intro H. +Apply H. +Exact I. +Qed. + +Lemma lem2 : (A:Type)(P:A->Type)(x:A)((y:A)(x==y)->(P y))->(P x). +Auto. +Qed. + +Lemma lem3 : (P:Prop)P. +Intro P ; Pattern P. +Apply lem2. +Abort. -- cgit v1.2.3