---

Step * 1 2 1 2 of Lemma in-some-half-cube


1. k : ℕ
2. x : ℝ^k
3. c : ℚCube(k)
4. ∀i:ℕk. ((rat2real(fst((c i))) ≤ (x i)) ∧ ((x i) ≤ rat2real(snd((c i)))))
5. d : ∀i:ℕk
         (((rat2real(fst((c i))) ≤ (x i)) ∧ ((x i) ≤ rat2real(qavg(fst((c i));snd((c i))))))
         ∨ ((rat2real(qavg(fst((c i));snd((c i)))) ≤ (x i)) ∧ ((x i) ≤ rat2real(snd((c i))))))
⊢ in-rat-cube(k;x;λi.if isl(d i)
                     then <fst((c i)), qavg(fst((c i));snd((c i)))>
                     else <qavg(fst((c i));snd((c i))), snd((c i))>
                     fi )
BY
{ ((D 0 THENA Auto) THEN Reduce 0 THEN (GenConclTerm ⌜d i⌝⋅ THENA Auto) THEN D -2 THEN Reduce 0 THEN Auto) }

---

Latex:

---

Latex:

1.  k  :  \mBbbN{}
2.  x  :  \mBbbR{}\^{}k
3.  c  :  \mBbbQ{}Cube(k)
4.  \mforall{}i:\mBbbN{}k.  ((rat2real(fst((c  i)))  \mleq{}  (x  i))  \mwedge{}  ((x  i)  \mleq{}  rat2real(snd((c  i)))))
5.  d  :  \mforall{}i:\mBbbN{}k
                  (((rat2real(fst((c  i)))  \mleq{}  (x  i))  \mwedge{}  ((x  i)  \mleq{}  rat2real(qavg(fst((c  i));snd((c  i))))))
                  \mvee{}  ((rat2real(qavg(fst((c  i));snd((c  i))))  \mleq{}  (x  i))  \mwedge{}  ((x  i)  \mleq{}  rat2real(snd((c  i))))))
\mvdash{}  in-rat-cube(k;x;\mlambda{}i.if  isl(d  i)
                                          then  <fst((c  i)),  qavg(fst((c  i));snd((c  i)))>
                                          else  <qavg(fst((c  i));snd((c  i))),  snd((c  i))>
                                          fi  )


By

---

Latex:
((D  0  THENA  Auto)
  THEN  Reduce  0
  THEN  (GenConclTerm  \mkleeneopen{}d  i\mkleeneclose{}\mcdot{}  THENA  Auto)
  THEN  D  -2
  THEN  Reduce  0
  THEN  Auto)

---

Home Index