diff options
| author | herbelin | 2010-07-22 21:06:23 +0000 |
|---|---|---|
| committer | herbelin | 2010-07-22 21:06:23 +0000 |
| commit | f11fc1871babffd64e9d3be99197f91a0dfc8b69 (patch) | |
| tree | 1e8f380abd19c027844d0291bdaa443a9aaf5f52 /theories/Lists/List.v | |
| parent | fc06cb87286e2b114c7f92500511d5914b8f7f48 (diff) | |
Made notations for exists, exists! and notations of Utf8.v recursive notations
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13317 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Lists/List.v')
| -rw-r--r-- | theories/Lists/List.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/theories/Lists/List.v b/theories/Lists/List.v index d1e3f90b32..25f96292da 100644 --- a/theories/Lists/List.v +++ b/theories/Lists/List.v @@ -117,7 +117,7 @@ Section Facts. unfold not; intros a H; inversion_clear H. Qed. - Theorem in_split : forall x (l:list A), In x l -> exists l1, exists l2, l = l1++x::l2. + Theorem in_split : forall x (l:list A), In x l -> exists l1 l2, l = l1++x::l2. Proof. induction l; simpl; destruct 1. subst a; auto. @@ -1641,7 +1641,7 @@ Proof. exact Forall2_nil. Qed. Theorem Forall2_app_inv_l : forall A B (R:A->B->Prop) l1 l2 l', Forall2 R (l1 ++ l2) l' -> - 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. |