---

Step * 1 1 1 1 2 of Lemma geo-le-iff


1. e : BasicGeometry
2. A : Point
3. B : Point
4. C : Point
5. P : Point
6. p' : {p:Point| B(OXp)} 
7. q' : {p:Point| B(OXp)} 
8. p' = |AB| ∈ Length
9. q' = |CP| ∈ Length
10. B(Xp'q')
11. A # B
12. ¬(C # X ∨ C ≡ X)
⊢ ¬AB>CP
BY
{ ((StableCases ⌜C # X⌝⋅ THENA Auto) THEN Try (Fold `geo-eq` (-1)) THEN D -2 THEN Auto) }

---

Latex:

---

Latex:

1.  e  :  BasicGeometry
2.  A  :  Point
3.  B  :  Point
4.  C  :  Point
5.  P  :  Point
6.  p'  :  \{p:Point|  B(OXp)\} 
7.  q'  :  \{p:Point|  B(OXp)\} 
8.  p'  =  |AB|
9.  q'  =  |CP|
10.  B(Xp'q')
11.  A  \#  B
12.  \mneg{}(C  \#  X  \mvee{}  C  \mequiv{}  X)
\mvdash{}  \mneg{}AB>CP


By

---

Latex:
((StableCases  \mkleeneopen{}C  \#  X\mkleeneclose{}\mcdot{}  THENA  Auto)  THEN  Try  (Fold  `geo-eq`  (-1))  THEN  D  -2  THEN  Auto)

---

Home Index