---

Step * 2 2 2 2 of Lemma odd-lsum-of-odd


1. T : Type
2. n : ℕ
3. u : T
4. u1 : T
5. u2 : T
6. v : T List
7. ∀L1:T List
     (||L1|| < ||[u; u1; [u2 / v]]||
     ⇒ ∀[f:{x:T| (x ∈ L1)}  ⟶ ℤ]. ↑isOdd(Σ(f[x] | x ∈ L1)) supposing (∀x∈L1.↑isOdd(f[x])) supposing ↑isOdd(||L1||))
8. ↑isOdd(||[u; u1; [u2 / v]]||)
9. f : {x:T| (x ∈ [u; u1; [u2 / v]])}  ⟶ ℤ
10. (∀x∈[u; u1; [u2 / v]].↑isOdd(f[x]))
11. ↑isOdd(Σ(f[x] | x ∈ [u2 / v]))
⊢ ↑isOdd(Σ(f[x] | x ∈ [u; u1; [u2 / v]]))
BY
{ ((RepeatFor 3 (MoveToConcl (-1)) THEN (GenConclTerm ⌜[u2 / v]⌝⋅ THENA Auto))
   THEN Reduce 0
   THEN (D 0 THENA Auto)
   THEN (GenConclTerm ⌜Σ(f[x] | x ∈ v1)⌝⋅ THENA Auto)
   THEN (Subst' f[u] + f[u1] + v2 ~ v2 + f[u] + f[u1] 0 THENA Auto)) }

1
1. T : Type
2. n : ℕ
3. u : T
4. u1 : T
5. u2 : T
6. v : T List
7. ∀L1:T List
     (||L1|| < ||[u; u1; [u2 / v]]||
     ⇒ ∀[f:{x:T| (x ∈ L1)}  ⟶ ℤ]. ↑isOdd(Σ(f[x] | x ∈ L1)) supposing (∀x∈L1.↑isOdd(f[x])) supposing ↑isOdd(||L1||))
8. ↑isOdd(||[u; u1; [u2 / v]]||)
9. v1 : T List
10. [u2 / v] = v1 ∈ (T List)
11. f : {x:T| (x ∈ [u; [u1 / v1]])}  ⟶ ℤ
12. v2 : ℤ
13. Σ(f[x] | x ∈ v1) = v2 ∈ ℤ
⊢ (∀x∈[u; [u1 / v1]].↑isOdd(f[x])) ⇒ (↑isOdd(v2)) ⇒ (↑isOdd(v2 + f[u] + f[u1]))

---

Latex:

---

Latex:

1.  T  :  Type
2.  n  :  \mBbbN{}
3.  u  :  T
4.  u1  :  T
5.  u2  :  T
6.  v  :  T  List
7.  \mforall{}L1:T  List
          (||L1||  <  ||[u;  u1;  [u2  /  v]]||
          {}\mRightarrow{}  \mforall{}[f:\{x:T|  (x  \mmember{}  L1)\}    {}\mrightarrow{}  \mBbbZ{}].  \muparrow{}isOdd(\mSigma{}(f[x]  |  x  \mmember{}  L1))  supposing  (\mforall{}x\mmember{}L1.\muparrow{}isOdd(f[x])) 
                supposing  \muparrow{}isOdd(||L1||))
8.  \muparrow{}isOdd(||[u;  u1;  [u2  /  v]]||)
9.  f  :  \{x:T|  (x  \mmember{}  [u;  u1;  [u2  /  v]])\}    {}\mrightarrow{}  \mBbbZ{}
10.  (\mforall{}x\mmember{}[u;  u1;  [u2  /  v]].\muparrow{}isOdd(f[x]))
11.  \muparrow{}isOdd(\mSigma{}(f[x]  |  x  \mmember{}  [u2  /  v]))
\mvdash{}  \muparrow{}isOdd(\mSigma{}(f[x]  |  x  \mmember{}  [u;  u1;  [u2  /  v]]))


By

---

Latex:
((RepeatFor  3  (MoveToConcl  (-1))  THEN  (GenConclTerm  \mkleeneopen{}[u2  /  v]\mkleeneclose{}\mcdot{}  THENA  Auto))
  THEN  Reduce  0
  THEN  (D  0  THENA  Auto)
  THEN  (GenConclTerm  \mkleeneopen{}\mSigma{}(f[x]  |  x  \mmember{}  v1)\mkleeneclose{}\mcdot{}  THENA  Auto)
  THEN  (Subst'  f[u]  +  f[u1]  +  v2  \msim{}  v2  +  f[u]  +  f[u1]  0  THENA  Auto))

---

Home Index