diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-12-17 21:00:26 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-12-17 21:00:26 +0000 |
| commit | e1cad068ffc188d06c37f46e1bf6e7b57e02e219 (patch) | |
| tree | 7d9f6b7051b21d3fd1fde1a257bdf1562b15729f /theories/Lists | |
| parent | b1040ad095410fe925b0a3aaf9399776279486f0 (diff) | |
Cosmetic : let's take advantage of the n-ary exists notation
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13721 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Lists')
| -rw-r--r-- | theories/Lists/List.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/theories/Lists/List.v b/theories/Lists/List.v index 4dd0e501b..4b823d908 100644 --- a/theories/Lists/List.v +++ b/theories/Lists/List.v @@ -1652,7 +1652,7 @@ Qed. Theorem Forall2_app_inv_r : forall A B (R:A->B->Prop) l1' l2' l, Forall2 R l (l1' ++ l2') -> - exists l1, exists l2, Forall2 R l1 l1' /\ Forall2 R l2 l2' /\ l = l1 ++ l2. + exists l1 l2, Forall2 R l1 l1' /\ Forall2 R l2 l2' /\ l = l1 ++ l2. Proof. induction l1'; intros. exists [], l; auto. |