---

Step * 1 2 1 1 of Lemma radd-list-cons

.....equality..... 
1. L : ℝ List
2. ||L|| ≠ 0
3. ||L|| + 1 ≠ 0
4. x : ℝ
5. bdd-diff(λn.((0 + (x n)) + accelerate(||L||;reg-seq-list-add(L))[n]);λn.((0 + (x n)) + reg-seq-list-add(L)[n]))
⊢ λn.((x n) + (accelerate(||L||;reg-seq-list-add(L)) n) + 0) ~ λn.((0 + (x n))
                                                                  + accelerate(||L||;reg-seq-list-add(L))[n])
BY
{ (EqCD THEN Unfold `so_apply` 0) }

1
1. L : ℝ List
2. ||L|| ≠ 0
3. ||L|| + 1 ≠ 0
4. x : ℝ
5. bdd-diff(λn.((0 + (x n)) + accelerate(||L||;reg-seq-list-add(L))[n]);λn.((0 + (x n)) + reg-seq-list-add(L)[n]))
6. n : Base
⊢ (x n) + (accelerate(||L||;reg-seq-list-add(L)) n) + 0 ~ (0 + (x n)) + (accelerate(||L||;reg-seq-list-add(L)) n)

---

Latex:

---

Latex:
.....equality..... 
1.  L  :  \mBbbR{}  List
2.  ||L||  \mneq{}  0
3.  ||L||  +  1  \mneq{}  0
4.  x  :  \mBbbR{}
5.  bdd-diff(\mlambda{}n.((0  +  (x  n))  +  accelerate(||L||;reg-seq-list-add(L))[n]);
                        \mlambda{}n.((0  +  (x  n))  +  reg-seq-list-add(L)[n]))
\mvdash{}  \mlambda{}n.((x  n)  +  (accelerate(||L||;reg-seq-list-add(L))  n)  +  0) 
\msim{}  \mlambda{}n.((0  +  (x  n))  +  accelerate(||L||;reg-seq-list-add(L))[n])


By

---

Latex:
(EqCD  THEN  Unfold  `so\_apply`  0)

---

Home Index