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


1. Type
2. : ℕ
3. T
4. u1 T
5. u2 T
6. 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 List
10. [u2 v] v1 ∈ (T List)
11. {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]))
BY
((D THENA Auto)
   THEN DupHyp (-1)
   THEN ((D -2 With ⌜0⌝  THENA Auto) THEN Reduce -1)
   THEN (D -2 With ⌜1⌝  THENA Auto)
   THEN Reduce -1
   THEN (D THENA Auto)
   THEN BLemma `odd-plus-even`
   THEN Auto
   THEN BLemma `odd-plus-odd`
   THEN Auto) }


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.  v1  :  T  List
10.  [u2  /  v]  =  v1
11.  f  :  \{x:T|  (x  \mmember{}  [u;  [u1  /  v1]])\}    {}\mrightarrow{}  \mBbbZ{}
12.  v2  :  \mBbbZ{}
13.  \mSigma{}(f[x]  |  x  \mmember{}  v1)  =  v2
\mvdash{}  (\mforall{}x\mmember{}[u;  [u1  /  v1]].\muparrow{}isOdd(f[x]))  {}\mRightarrow{}  (\muparrow{}isOdd(v2))  {}\mRightarrow{}  (\muparrow{}isOdd(v2  +  f[u]  +  f[u1]))


By


Latex:
((D  0  THENA  Auto)
  THEN  DupHyp  (-1)
  THEN  ((D  -2  With  \mkleeneopen{}0\mkleeneclose{}    THENA  Auto)  THEN  Reduce  -1)
  THEN  (D  -2  With  \mkleeneopen{}1\mkleeneclose{}    THENA  Auto)
  THEN  Reduce  -1
  THEN  (D  0  THENA  Auto)
  THEN  BLemma  `odd-plus-even`
  THEN  Auto
  THEN  BLemma  `odd-plus-odd`
  THEN  Auto)




Home Index