---

Step * of Lemma q-floor-property

∀[r:ℚ]. (([r] ≤ r) ∧ r < [r] + 1)
BY
{ xxx((D 0 THENA Auto)
      THEN Unfold `q-floor` 0
      THEN (GenConclTerm ⌜rat-int-part(r)⌝⋅ THENA Auto)
      THEN RepeatFor 2 (DVar `v')
      THEN All Reduce
      THEN DVar `v2'
      THEN Unhide
      THEN Auto
      THEN (SubstFor ⌜r⌝ 0⋅ THENA Auto)⋅
      THEN QAdd ⌜-(v1)⌝ 0⋅
      THEN Auto)xxx }

---

Latex:

---

Latex:
\mforall{}[r:\mBbbQ{}].  (([r]  \mleq{}  r)  \mwedge{}  r  <  [r]  +  1)


By

---

Latex:
xxx((D  0  THENA  Auto)
        THEN  Unfold  `q-floor`  0
        THEN  (GenConclTerm  \mkleeneopen{}rat-int-part(r)\mkleeneclose{}\mcdot{}  THENA  Auto)
        THEN  RepeatFor  2  (DVar  `v')
        THEN  All  Reduce
        THEN  DVar  `v2'
        THEN  Unhide
        THEN  Auto
        THEN  (SubstFor  \mkleeneopen{}r\mkleeneclose{}  0\mcdot{}  THENA  Auto)\mcdot{}
        THEN  QAdd  \mkleeneopen{}-(v1)\mkleeneclose{}  0\mcdot{}
        THEN  Auto)xxx

---

Home Index