---

Step * 1 2 of Lemma swap_cons


1. T : Type
2. L : T List
3. x : T
4. i : ℕ+||L|| + 1
5. j : ℕ+||L|| + 1
6. i1 : ℕ
7. i1 < ||swap([x / L];i;j)||
8. ¬(i1 = 0 ∈ ℤ)
⊢ swap([x / L];i;j)[i1] = [x / swap(L;i - 1;j - 1)][i1] ∈ T
BY
{ (RWO "select_cons_tl" 0 THENA Auto') }

1
1. T : Type
2. L : T List
3. x : T
4. i : ℕ+||L|| + 1
5. j : ℕ+||L|| + 1
6. i1 : ℕ
7. i1 < ||swap([x / L];i;j)||
8. ¬(i1 = 0 ∈ ℤ)
⊢ swap([x / L];i;j)[i1] = swap(L;i - 1;j - 1)[i1 - 1] ∈ T

---

Latex:

---

Latex:

1.  T  :  Type
2.  L  :  T  List
3.  x  :  T
4.  i  :  \mBbbN{}\msupplus{}||L||  +  1
5.  j  :  \mBbbN{}\msupplus{}||L||  +  1
6.  i1  :  \mBbbN{}
7.  i1  <  ||swap([x  /  L];i;j)||
8.  \mneg{}(i1  =  0)
\mvdash{}  swap([x  /  L];i;j)[i1]  =  [x  /  swap(L;i  -  1;j  -  1)][i1]


By

---

Latex:
(RWO  "select\_cons\_tl"  0  THENA  Auto')

---

Home Index