---

Step * 1 2 1 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] = swap(L;i - 1;j - 1)[i1 - 1] ∈ T
BY
{ (((AllHyps (RWO "swap_length") THENA Auto') THEN RWO "swap_select" 0) THEN Auto') }

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


By

---

Latex:
(((AllHyps  (RWO  "swap\_length")  THENA  Auto')  THEN  RWO  "swap\_select"  0)  THEN  Auto')

---

Home Index