From 207a70679aabff4a6a235b858a9814fed7cb5fe0 Mon Sep 17 00:00:00 2001 From: herbelin Date: Wed, 21 Nov 2001 00:16:11 +0000 Subject: Sur la cumulativité dans les tactiques git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2223 85f007b7-540e-0410-9357-904b9bb8a0f7 --- test-suite/success/univers.v | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 test-suite/success/univers.v 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. -- cgit v1.2.3