---

Step * 1 2 1 of Lemma swap_adjacent_decomp


1. A : Type
2. L : A List
3. 1 < ||L||
4. L = [L[0]; [L[1] / tl(tl(L))]] ∈ (A List)
5. ||tl(L)|| = (||L|| - 1) ∈ ℤ
6. ||tl(tl(L))|| = (||L|| - 2) ∈ ℤ
⊢ ||swap(L;0;1)|| = ||[L[1]; [L[0] / tl(tl(L))]]|| ∈ ℤ
BY
{ xxx(((RWO "swap_length" 0 THENA Auto) THEN Reduce 0) THEN Auto)xxx }

---

Latex:

---

Latex:

1.  A  :  Type
2.  L  :  A  List
3.  1  <  ||L||
4.  L  =  [L[0];  [L[1]  /  tl(tl(L))]]
5.  ||tl(L)||  =  (||L||  -  1)
6.  ||tl(tl(L))||  =  (||L||  -  2)
\mvdash{}  ||swap(L;0;1)||  =  ||[L[1];  [L[0]  /  tl(tl(L))]]||


By

---

Latex:
xxx(((RWO  "swap\_length"  0  THENA  Auto)  THEN  Reduce  0)  THEN  Auto)xxx

---

Home Index