---

Step * 1 1 of Lemma extend-half-cube-face


1. k : ℕ
2. a : ℚCube(k)
3. b : ℚCube(k)
4. c : ℚCube(k)
5. ↑Inhabited(a)
6. 0 < dim(b)
7. 0 < dim(c)
8. a ≤ b
9. ↑is-half-cube(k;b;c)
10. dim(a) = (dim(b) - 1) ∈ ℤ
11. ∃i:ℕk
     ((dim(c i) = 1 ∈ ℤ)
     ∧ (∀j:ℕk. ((¬(j = i ∈ ℤ)) ⇒ ((a j) = (b j) ∈ ℚInterval)))
     ∧ (((a i) = [fst((b i))] ∈ ℚInterval) ∨ ((a i) = [snd((b i))] ∈ ℚInterval)))
⊢ ((∃!d:ℚCube(k). ((↑is-half-cube(k;a;d)) ∧ d ≤ c))
∧ (∀b':ℚCube(k). ((↑is-half-cube(k;b';c)) ⇒ a ≤ b' ⇒ (b' = b ∈ ℚCube(k)))))
∨ ((∃!b':ℚCube(k). (a ≤ b' ∧ (↑is-half-cube(k;b';c)) ∧ (¬(b' = b ∈ ℚCube(k))))) ∧ has-interior-point(k;a;c))
BY
{ ((RWO  "assert-inhabited-rat-cube" 5 THENA Auto)
   THEN (RWO  "assert-is-half-cube" (-3) THENA Auto)
   THEN All (RepUR ``rat-cube-face``)
   THEN RepeatFor 3 (D -1)) }

1
1. k : ℕ
2. a : ℚCube(k)
3. b : ℚCube(k)
4. c : ℚCube(k)
5. ∀i:ℕk. (↑Inhabited(a i))
6. 0 < dim(b)
7. 0 < dim(c)
8. ∀i:ℕk. a i ≤ b i
9. ∀i:ℕk. (↑is-half-interval(b i;c i))
10. dim(a) = (dim(b) - 1) ∈ ℤ
11. i : ℕk
12. dim(c i) = 1 ∈ ℤ
13. ∀j:ℕk. ((¬(j = i ∈ ℤ)) ⇒ ((a j) = (b j) ∈ ℚInterval))
14. ((a i) = [fst((b i))] ∈ ℚInterval) ∨ ((a i) = [snd((b i))] ∈ ℚInterval)
⊢ ((∃!d:ℚCube(k). ((↑is-half-cube(k;a;d)) ∧ (∀i:ℕk. d i ≤ c i)))
∧ (∀b':ℚCube(k). ((↑is-half-cube(k;b';c)) ⇒ (∀i:ℕk. a i ≤ b' i) ⇒ (b' = b ∈ ℚCube(k)))))
∨ ((∃!b':ℚCube(k). ((∀i:ℕk. a i ≤ b' i) ∧ (↑is-half-cube(k;b';c)) ∧ (¬(b' = b ∈ ℚCube(k)))))
  ∧ has-interior-point(k;a;c))

---

Latex:

---

Latex:

1.  k  :  \mBbbN{}
2.  a  :  \mBbbQ{}Cube(k)
3.  b  :  \mBbbQ{}Cube(k)
4.  c  :  \mBbbQ{}Cube(k)
5.  \muparrow{}Inhabited(a)
6.  0  <  dim(b)
7.  0  <  dim(c)
8.  a  \mleq{}  b
9.  \muparrow{}is-half-cube(k;b;c)
10.  dim(a)  =  (dim(b)  -  1)
11.  \mexists{}i:\mBbbN{}k
          ((dim(c  i)  =  1)
          \mwedge{}  (\mforall{}j:\mBbbN{}k.  ((\mneg{}(j  =  i))  {}\mRightarrow{}  ((a  j)  =  (b  j))))
          \mwedge{}  (((a  i)  =  [fst((b  i))])  \mvee{}  ((a  i)  =  [snd((b  i))])))
\mvdash{}  ((\mexists{}!d:\mBbbQ{}Cube(k).  ((\muparrow{}is-half-cube(k;a;d))  \mwedge{}  d  \mleq{}  c))
\mwedge{}  (\mforall{}b':\mBbbQ{}Cube(k).  ((\muparrow{}is-half-cube(k;b';c))  {}\mRightarrow{}  a  \mleq{}  b'  {}\mRightarrow{}  (b'  =  b))))
\mvee{}  ((\mexists{}!b':\mBbbQ{}Cube(k).  (a  \mleq{}  b'  \mwedge{}  (\muparrow{}is-half-cube(k;b';c))  \mwedge{}  (\mneg{}(b'  =  b))))  \mwedge{}  has-interior-point(k;a;c))


By

---

Latex:
((RWO    "assert-inhabited-rat-cube"  5  THENA  Auto)
  THEN  (RWO    "assert-is-half-cube"  (-3)  THENA  Auto)
  THEN  All  (RepUR  ``rat-cube-face``)
  THEN  RepeatFor  3  (D  -1))

---

Home Index