---

Step * 2 2 1 1 1 1 1 of Lemma rat-complex-boundary-boundary

.....assertion..... 
1. k : ℕ
2. n : ℕ
3. K : n-dim-complex
4. 2 ≤ n
5. ∀[L:ℚCube(k) List]. L ~ [] supposing ∀x:ℚCube(k). (¬(x ∈ L))
6. x : ℚCube(k)
7. ↑isOdd(||filter(λc.is-rat-cube-face(k;x;c);∂(K))||)
8. dim(x) = (n - 1 - 1) ∈ ℤ
9. Σ(||filter(λv.is-rat-cube-face(k;v;t);filter(λv.is-rat-cube-face(k;x;v);face-complex(k;K)))|| | t ∈ K)
= (Σ(||filter(λt.is-rat-cube-face(k;s;t);K)|| | s ∈ filter(λv.is-rat-cube-face(k;x;v);∂(K)))
  + Σ(||filter(λt.is-rat-cube-face(k;s;t);K)|| | s ∈ filter(λs.(¬bin-complex-boundary(k;s;K));
                                                            filter(λv.is-rat-cube-face(k;x;v);face-complex(k;K)))))
∈ ℤ
⊢ ↑isEven(Σ(||filter(λv.is-rat-cube-face(k;v;t);filter(λv.is-rat-cube-face(k;x;v);face-complex(k;K)))|| | t ∈ K))
BY
{ ((BLemma `lsum-of-even` THEN Auto)
   THEN RWO "l_all_iff" 0
   THEN Auto
   THEN (RWO  "filter-filter" 0 THENA Auto)
   THEN Reduce 0) }

1
1. k : ℕ
2. n : ℕ
3. K : n-dim-complex
4. 2 ≤ n
5. ∀[L:ℚCube(k) List]. L ~ [] supposing ∀x:ℚCube(k). (¬(x ∈ L))
6. x : ℚCube(k)
7. ↑isOdd(||filter(λc.is-rat-cube-face(k;x;c);∂(K))||)
8. dim(x) = (n - 1 - 1) ∈ ℤ
9. Σ(||filter(λv.is-rat-cube-face(k;v;t);filter(λv.is-rat-cube-face(k;x;v);face-complex(k;K)))|| | t ∈ K)
= (Σ(||filter(λt.is-rat-cube-face(k;s;t);K)|| | s ∈ filter(λv.is-rat-cube-face(k;x;v);∂(K)))
  + Σ(||filter(λt.is-rat-cube-face(k;s;t);K)|| | s ∈ filter(λs.(¬bin-complex-boundary(k;s;K));
                                                            filter(λv.is-rat-cube-face(k;x;v);face-complex(k;K)))))
∈ ℤ
10. t : ℚCube(k)
11. (t ∈ K)
⊢ ↑isEven(||filter(λt1.(is-rat-cube-face(k;x;t1) ∧b is-rat-cube-face(k;t1;t));face-complex(k;K))||)

---

Latex:

---

Latex:
.....assertion..... 
1.  k  :  \mBbbN{}
2.  n  :  \mBbbN{}
3.  K  :  n-dim-complex
4.  2  \mleq{}  n
5.  \mforall{}[L:\mBbbQ{}Cube(k)  List].  L  \msim{}  []  supposing  \mforall{}x:\mBbbQ{}Cube(k).  (\mneg{}(x  \mmember{}  L))
6.  x  :  \mBbbQ{}Cube(k)
7.  \muparrow{}isOdd(||filter(\mlambda{}c.is-rat-cube-face(k;x;c);\mpartial{}(K))||)
8.  dim(x)  =  (n  -  1  -  1)
9.  \mSigma{}(||filter(\mlambda{}v.is-rat-cube-face(k;v;t);filter(\mlambda{}v.is-rat-cube-face(k;x;v);
                                                                                                face-complex(k;K)))||  |  t  \mmember{}  K)
=  (\mSigma{}(||filter(\mlambda{}t.is-rat-cube-face(k;s;t);K)||  |  s  \mmember{}  filter(\mlambda{}v.is-rat-cube-face(k;x;v);\mpartial{}(K)))
    +  \mSigma{}(||filter(\mlambda{}t.is-rat-cube-face(k;s;t);K)||  |  s  \mmember{}  filter(\mlambda{}s.(\mneg{}\msubb{}in-complex-boundary(k;s;K));
                                                                                                                        filter(\mlambda{}v.is-rat-cube-face(k;x;v);
                                                                                                                                      face-complex(k;K)))))
\mvdash{}  \muparrow{}isEven(\mSigma{}(||filter(\mlambda{}v.is-rat-cube-face(k;v;t);filter(\mlambda{}v.is-rat-cube-face(k;x;v);
                                                                                                              face-complex(k;K)))||  |  t  \mmember{}  K))


By

---

Latex:
((BLemma  `lsum-of-even`  THEN  Auto)
  THEN  RWO  "l\_all\_iff"  0
  THEN  Auto
  THEN  (RWO    "filter-filter"  0  THENA  Auto)
  THEN  Reduce  0)

---

Home Index