---

Step * 1 1 1 2 2 of Lemma member_interleaving


1. [T] : Type
2. L : T List
3. L1 : T List
4. L2 : T List
5. ||L|| = (||L1|| + ||L2||) ∈ ℕ
6. disjoint_sublists(T;L1;L2;L)
7. x : T
8. i : ℕ
9. i < ||L||
10. x = L[i] ∈ T
11. f : ℕ||L1|| + ||L2|| ⟶ ℕ||L||
12. Inj(ℕ||L1|| + ||L2||;ℕ||L||;f)
13. ∀i:ℕ||L1|| + ||L2||. (L1[i] = L[f i] ∈ T supposing i < ||L1|| ∧ L2[i - ||L1||] = L[f i] ∈ T supposing ||L1|| ≤ i)
14. j : ℕ||L||
15. (f j) = i ∈ ℤ
16. ¬j < ||L1||
⊢ (L[i] ∈ L1) ∨ (L[i] ∈ L2)
BY
{ ((((OrRight THENA Auto) THEN Unfold `l_member` 0) THEN InstConcl [j - ||L1||]) THEN Auto') }

1
1. T : Type
2. L : T List
3. L1 : T List
4. L2 : T List
5. ||L|| = (||L1|| + ||L2||) ∈ ℕ
6. disjoint_sublists(T;L1;L2;L)
7. x : T
8. i : ℕ
9. i < ||L||
10. x = L[i] ∈ T
11. f : ℕ||L1|| + ||L2|| ⟶ ℕ||L||
12. Inj(ℕ||L1|| + ||L2||;ℕ||L||;f)
13. ∀i:ℕ||L1|| + ||L2||. (L1[i] = L[f i] ∈ T supposing i < ||L1|| ∧ L2[i - ||L1||] = L[f i] ∈ T supposing ||L1|| ≤ i)
14. j : ℕ||L||
15. (f j) = i ∈ ℤ
16. ¬j < ||L1||
17. j - ||L1|| < ||L2||
⊢ L[i] = L2[j - ||L1||] ∈ T

---

Latex:

---

Latex:

1.  [T]  :  Type
2.  L  :  T  List
3.  L1  :  T  List
4.  L2  :  T  List
5.  ||L||  =  (||L1||  +  ||L2||)
6.  disjoint\_sublists(T;L1;L2;L)
7.  x  :  T
8.  i  :  \mBbbN{}
9.  i  <  ||L||
10.  x  =  L[i]
11.  f  :  \mBbbN{}||L1||  +  ||L2||  {}\mrightarrow{}  \mBbbN{}||L||
12.  Inj(\mBbbN{}||L1||  +  ||L2||;\mBbbN{}||L||;f)
13.  \mforall{}i:\mBbbN{}||L1||  +  ||L2||
            (L1[i]  =  L[f  i]  supposing  i  <  ||L1||  \mwedge{}  L2[i  -  ||L1||]  =  L[f  i]  supposing  ||L1||  \mleq{}  i)
14.  j  :  \mBbbN{}||L||
15.  (f  j)  =  i
16.  \mneg{}j  <  ||L1||
\mvdash{}  (L[i]  \mmember{}  L1)  \mvee{}  (L[i]  \mmember{}  L2)


By

---

Latex:
((((OrRight  THENA  Auto)  THEN  Unfold  `l\_member`  0)  THEN  InstConcl  [j  -  ||L1||])  THEN  Auto')

---

Home Index