---

Step * of Lemma geo-le_transitivity

∀e:BasicGeometry. ∀[p,q,r:Length].  (p ≤ r) supposing (q ≤ r and p ≤ q)
BY
{ ((Intros THEN (Unhide THENA Auto))
   THEN (Assert {p:Point| O_X_p}  ⊆r Length BY
               Auto)
   THEN UseWitness ⌜Ax⌝⋅
   THEN D 4
   THEN D 3
   THEN D 2
   THEN Fold `member` 0
   THEN BLemma `geo-le_witness`
   THEN Auto
   THEN RepeatFor 2 ((FLemma `geo-le_imp` [-3] THENA Auto))
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}e:BasicGeometry.  \mforall{}[p,q,r:Length].    (p  \mleq{}  r)  supposing  (q  \mleq{}  r  and  p  \mleq{}  q)


By

---

Latex:
((Intros  THEN  (Unhide  THENA  Auto))
  THEN  (Assert  \{p:Point|  O\_X\_p\}    \msubseteq{}r  Length  BY
                          Auto)
  THEN  UseWitness  \mkleeneopen{}Ax\mkleeneclose{}\mcdot{}
  THEN  D  4
  THEN  D  3
  THEN  D  2
  THEN  Fold  `member`  0
  THEN  BLemma  `geo-le\_witness`
  THEN  Auto
  THEN  RepeatFor  2  ((FLemma  `geo-le\_imp`  [-3]  THENA  Auto))
  THEN  Auto)

---

Home Index