---

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


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
15. (fst((b i))) = qavg(fst((c i));snd((c i))) ∈ ℚ
16. (snd((b i))) = (snd((c i))) ∈ ℚ
17. ∃!b':ℚCube(k). ((∀i:ℕk. a i ≤ b' i) ∧ (↑is-half-cube(k;b';c)) ∧ (¬(b' = b ∈ ℚCube(k))))
⊢ rat-point-in-cube(k;λj.qavg(fst((c j));snd((c j)));a)
BY
{ ((D 0 THEN Reduce 0) THENA Auto) }

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
15. (fst((b i))) = qavg(fst((c i));snd((c i))) ∈ ℚ
16. (snd((b i))) = (snd((c i))) ∈ ℚ
17. ∃!b':ℚCube(k). ((∀i:ℕk. a i ≤ b' i) ∧ (↑is-half-cube(k;b';c)) ∧ (¬(b' = b ∈ ℚCube(k))))
18. i1 : ℕk
⊢ ((fst((a i1))) ≤ qavg(fst((c i1));snd((c i1)))) ∧ (qavg(fst((c i1));snd((c i1))) ≤ (snd((a i1))))

---

Latex:

---

Latex:

1.  k  :  \mBbbN{}
2.  a  :  \mBbbQ{}Cube(k)
3.  b  :  \mBbbQ{}Cube(k)
4.  c  :  \mBbbQ{}Cube(k)
5.  \mforall{}i:\mBbbN{}k.  (\muparrow{}Inhabited(a  i))
6.  0  <  dim(b)
7.  0  <  dim(c)
8.  \mforall{}i:\mBbbN{}k.  a  i  \mleq{}  b  i
9.  \mforall{}i:\mBbbN{}k.  (\muparrow{}is-half-interval(b  i;c  i))
10.  dim(a)  =  (dim(b)  -  1)
11.  i  :  \mBbbN{}k
12.  dim(c  i)  =  1
13.  \mforall{}j:\mBbbN{}k.  ((\mneg{}(j  =  i))  {}\mRightarrow{}  ((a  j)  =  (b  j)))
14.  (a  i)  =  [fst((b  i))]
15.  (fst((b  i)))  =  qavg(fst((c  i));snd((c  i)))
16.  (snd((b  i)))  =  (snd((c  i)))
17.  \mexists{}!b':\mBbbQ{}Cube(k).  ((\mforall{}i:\mBbbN{}k.  a  i  \mleq{}  b'  i)  \mwedge{}  (\muparrow{}is-half-cube(k;b';c))  \mwedge{}  (\mneg{}(b'  =  b)))
\mvdash{}  rat-point-in-cube(k;\mlambda{}j.qavg(fst((c  j));snd((c  j)));a)


By

---

Latex:
((D  0  THEN  Reduce  0)  THENA  Auto)

---

Home Index