diff options
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/success/Injection.v | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/test-suite/success/Injection.v b/test-suite/success/Injection.v index c5cd7380a2..9847e09872 100644 --- a/test-suite/success/Injection.v +++ b/test-suite/success/Injection.v @@ -66,6 +66,13 @@ einjection (H O). instantiate (1:=O). Abort. +(* Test the injection intropattern *) + +Goal forall (a b:nat) l l', cons a l = cons b l' -> a=b. +intros * (H1,H2). +exact H1. +Qed. + (* Injection does not projects at positions in Prop... allow it? Inductive t (A:Prop) : Set := c : A -> t A. |