diff options
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/success/Injection.v | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/test-suite/success/Injection.v b/test-suite/success/Injection.v index 9847e09872..f1ee8a05f7 100644 --- a/test-suite/success/Injection.v +++ b/test-suite/success/Injection.v @@ -73,6 +73,17 @@ intros * (H1,H2). exact H1. Qed. +(* Test injection using K, knowing that an equality is decidable *) +(* Basic case, using sigT *) + +Scheme Equality for nat. +Goal forall n:nat, forall P:nat -> Type, forall H1 H2:P n, + existT P n H1 = existT P n H2 -> H1 = H2. +intros. +injection H. +intro H0. exact H0. +Abort. + (* Injection does not projects at positions in Prop... allow it? Inductive t (A:Prop) : Set := c : A -> t A. |