diff options
| author | herbelin | 2013-06-02 21:31:34 +0000 |
|---|---|---|
| committer | herbelin | 2013-06-02 21:31:34 +0000 |
| commit | 192ce3da462b3eba13b88e8940ce1751d351e25e (patch) | |
| tree | b3da81faec3e9c5683aa192c1002f586f97adc01 /test-suite | |
| parent | 792a07d519a8dd396674e5431af2380a26d74b9c (diff) | |
Now interpreting introduction patterns [x1 .. xn] and (x1,..,xn) as an
"injection" tactic when applied on an equality statement. Moreover,
hypotheses are now entered in the left-to-right order.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16550 85f007b7-540e-0410-9357-904b9bb8a0f7
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. |