Step
*
2
2
1
1
of Lemma
rat-complex-boundary-subdiv
1. k : ℕ
2. n : ℕ
3. K : n-dim-complex
4. ¬(n = 0 ∈ ℤ)
5. c : ℚCube(k)
6. ↑Inhabited(c)
7. dim(c) = (n - 1) ∈ ℤ
8. a : ℚCube(k)
9. ↑in-complex-boundary(k;a;K)
10. dim(a) = (n - 1) ∈ ℤ
11. ↑is-half-cube(k;c;a)
⊢ ∃R:ℚCube(k) ⟶ ℚCube(k) ⟶ ℙ
   ((∀a1,a2,b:ℚCube(k).
       ((a1 ∈ filter(λc@0.is-rat-cube-face(k;c;c@0);(K)'))
       
⇒ (a2 ∈ filter(λc@0.is-rat-cube-face(k;c;c@0);(K)'))
       
⇒ (b ∈ filter(λc.is-rat-cube-face(k;a;c);K))
       
⇒ (R a1 b)
       
⇒ (R a2 b)
       
⇒ (a1 = a2 ∈ ℚCube(k))))
   ∧ (∀b1,b2,a1:ℚCube(k).
        ((b1 ∈ filter(λc.is-rat-cube-face(k;a;c);K))
        
⇒ (b2 ∈ filter(λc.is-rat-cube-face(k;a;c);K))
        
⇒ (a1 ∈ filter(λc@0.is-rat-cube-face(k;c;c@0);(K)'))
        
⇒ (R a1 b1)
        
⇒ (R a1 b2)
        
⇒ (b1 = b2 ∈ ℚCube(k))))
   ∧ (∀a1∈filter(λc@0.is-rat-cube-face(k;c;c@0);(K)').(∃b∈filter(λc.is-rat-cube-face(k;a;c);K). R a1 b))
   ∧ (∀b∈filter(λc.is-rat-cube-face(k;a;c);K).(∃a∈filter(λc@0.is-rat-cube-face(k;c;c@0);(K)'). R a b)))
BY
{ ((RWW  "l_all_filter_iff l_exists_filter" 0 THENA Auto) THEN Reduce 0) }
1
1. k : ℕ
2. n : ℕ
3. K : n-dim-complex
4. ¬(n = 0 ∈ ℤ)
5. c : ℚCube(k)
6. ↑Inhabited(c)
7. dim(c) = (n - 1) ∈ ℤ
8. a : ℚCube(k)
9. ↑in-complex-boundary(k;a;K)
10. dim(a) = (n - 1) ∈ ℤ
11. ↑is-half-cube(k;c;a)
⊢ ∃R:ℚCube(k) ⟶ ℚCube(k) ⟶ ℙ
   ((∀a1,a2,b:ℚCube(k).
       ((a1 ∈ filter(λc@0.is-rat-cube-face(k;c;c@0);(K)'))
       
⇒ (a2 ∈ filter(λc@0.is-rat-cube-face(k;c;c@0);(K)'))
       
⇒ (b ∈ filter(λc.is-rat-cube-face(k;a;c);K))
       
⇒ (R a1 b)
       
⇒ (R a2 b)
       
⇒ (a1 = a2 ∈ ℚCube(k))))
   ∧ (∀b1,b2,a1:ℚCube(k).
        ((b1 ∈ filter(λc.is-rat-cube-face(k;a;c);K))
        
⇒ (b2 ∈ filter(λc.is-rat-cube-face(k;a;c);K))
        
⇒ (a1 ∈ filter(λc@0.is-rat-cube-face(k;c;c@0);(K)'))
        
⇒ (R a1 b1)
        
⇒ (R a1 b2)
        
⇒ (b1 = b2 ∈ ℚCube(k))))
   ∧ (∀a1:ℚCube(k)
        ((a1 ∈ (K)')
        
⇒ (↑is-rat-cube-face(k;c;a1))
        
⇒ (∃b:ℚCube(k). ((b ∈ K) ∧ (↑is-rat-cube-face(k;a;b)) ∧ (R a1 b)))))
   ∧ (∀b:ℚCube(k)
        ((b ∈ K) 
⇒ (↑is-rat-cube-face(k;a;b)) 
⇒ (∃a:ℚCube(k). ((a ∈ (K)') ∧ (↑is-rat-cube-face(k;c;a)) ∧ (R a b))))))
Latex:
Latex:
1.  k  :  \mBbbN{}
2.  n  :  \mBbbN{}
3.  K  :  n-dim-complex
4.  \mneg{}(n  =  0)
5.  c  :  \mBbbQ{}Cube(k)
6.  \muparrow{}Inhabited(c)
7.  dim(c)  =  (n  -  1)
8.  a  :  \mBbbQ{}Cube(k)
9.  \muparrow{}in-complex-boundary(k;a;K)
10.  dim(a)  =  (n  -  1)
11.  \muparrow{}is-half-cube(k;c;a)
\mvdash{}  \mexists{}R:\mBbbQ{}Cube(k)  {}\mrightarrow{}  \mBbbQ{}Cube(k)  {}\mrightarrow{}  \mBbbP{}
      ((\mforall{}a1,a2,b:\mBbbQ{}Cube(k).
              ((a1  \mmember{}  filter(\mlambda{}c@0.is-rat-cube-face(k;c;c@0);(K)'))
              {}\mRightarrow{}  (a2  \mmember{}  filter(\mlambda{}c@0.is-rat-cube-face(k;c;c@0);(K)'))
              {}\mRightarrow{}  (b  \mmember{}  filter(\mlambda{}c.is-rat-cube-face(k;a;c);K))
              {}\mRightarrow{}  (R  a1  b)
              {}\mRightarrow{}  (R  a2  b)
              {}\mRightarrow{}  (a1  =  a2)))
      \mwedge{}  (\mforall{}b1,b2,a1:\mBbbQ{}Cube(k).
                ((b1  \mmember{}  filter(\mlambda{}c.is-rat-cube-face(k;a;c);K))
                {}\mRightarrow{}  (b2  \mmember{}  filter(\mlambda{}c.is-rat-cube-face(k;a;c);K))
                {}\mRightarrow{}  (a1  \mmember{}  filter(\mlambda{}c@0.is-rat-cube-face(k;c;c@0);(K)'))
                {}\mRightarrow{}  (R  a1  b1)
                {}\mRightarrow{}  (R  a1  b2)
                {}\mRightarrow{}  (b1  =  b2)))
      \mwedge{}  (\mforall{}a1\mmember{}filter(\mlambda{}c@0.is-rat-cube-face(k;c;c@0);(K)').
                  (\mexists{}b\mmember{}filter(\mlambda{}c.is-rat-cube-face(k;a;c);K).  R  a1  b))
      \mwedge{}  (\mforall{}b\mmember{}filter(\mlambda{}c.is-rat-cube-face(k;a;c);K).(\mexists{}a\mmember{}filter(\mlambda{}c@0.is-rat-cube-face(k;c;c@0);(K)').  R  a 
                                                                                                                                                                                              b)))
By
Latex:
((RWW    "l\_all\_filter\_iff  l\_exists\_filter"  0  THENA  Auto)  THEN  Reduce  0)
Home
Index