diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-09-24 18:02:44 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-09-24 18:02:44 +0000 |
commit | e2923495653a68c52f0f8167b49fe71a056fd62f (patch) | |
tree | 7b309422a3bd41d0a1190a5d31a85a0e3d7246c4 | |
parent | 33c03c270a2380c8462914b02c3355d4a5cea273 (diff) |
Ajout bug #255
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6127 85f007b7-540e-0410-9357-904b9bb8a0f7
-rw-r--r-- | test-suite/success/univers.v | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/test-suite/success/univers.v b/test-suite/success/univers.v index 0a4b284f9..8c6f31b4c 100644 --- a/test-suite/success/univers.v +++ b/test-suite/success/univers.v @@ -17,3 +17,22 @@ Lemma lem3 : (P:Prop)P. Intro P ; Pattern P. Apply lem2. Abort. + +(* Check managing of universe constraints in inversion *) +(* Bug report #855 *) + +Inductive dep_eq : (X:Type) X -> X -> Prop := + | intro_eq : (X:Type) (f:X)(dep_eq X f f) + | intro_feq : (A:Type) (B:A->Type) + let T = (x:A)(B x) in + (f, g:T) (x:A) + (dep_eq (B x) (f x) (g x)) -> + (dep_eq T f g). + +Require Import Relations. + +Theorem dep_eq_trans : (X:Type) (transitive X (dep_eq X)). +Proof. + Unfold transitive. + Intros X f g h H1 H2. + Inversion H1. |