---

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


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. ↑isOdd(Σ(||filter(λt.is-rat-cube-face(k;s;t);K)|| | s ∈ filter(λv.is-rat-cube-face(k;x;v);∂(K))))
⊢ ↑isEven(Σ(||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)))))
BY
{ (BLemma `lsum-of-even`
   THEN Auto
   THEN RWO "l_all_iff" 0
   THEN Auto
   THEN GenListD (-1)
   THEN D -1
   THEN (RW assert_pushdownC  (-1) THENA Auto)
   THEN Unfold `in-complex-boundary` -1
   THEN RWO "even-iff-not-odd<" (-1)
   THEN Auto) }

---

Latex:

---

Latex:

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)))))
10.  \muparrow{}isOdd(\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))))
\mvdash{}  \muparrow{}isEven(\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)))))


By

---

Latex:
(BLemma  `lsum-of-even`
  THEN  Auto
  THEN  RWO  "l\_all\_iff"  0
  THEN  Auto
  THEN  GenListD  (-1)
  THEN  D  -1
  THEN  (RW  assert\_pushdownC    (-1)  THENA  Auto)
  THEN  Unfold  `in-complex-boundary`  -1
  THEN  RWO  "even-iff-not-odd<"  (-1)
  THEN  Auto)

---

Home Index