Step * 1 of Lemma geo-le-cases2


1. BasicGeometry
2. Point
3. B(OXa)
4. Point
5. B(OXb)
6. {p:Point| B(OXp)}  ⊆Length
7. ¬((a < b ∨ b < a) ∨ (a b ∈ Length))
8. a ∈ Length
9. b ∈ Length
10. B(Xba)
11. b
⊢ False
BY
(D -5
   THEN ((OrLeft THENA Auto) THEN (OrRight THENA Auto))
   THEN ((Unfold `geo-lt` THEN InstConcl [⌜b⌝;⌜a⌝]⋅ THEN Auto) THEN (FLemma `geo-add-length-between` [-3] THENA Auto))
   THEN (Assert |ba| ∈ Length BY
               (((Assert |Xa| a ∈ Length BY EAuto 1) THEN (Assert |Xb| b ∈ Length BY EAuto 1)) THEN EAuto 1))
   THEN InstLemma `geo-le-same` [⌜e⌝;⌜|ba|⌝]⋅
   THEN Auto) }


Latex:


Latex:

1.  e  :  BasicGeometry
2.  a  :  Point
3.  B(OXa)
4.  b  :  Point
5.  B(OXb)
6.  \{p:Point|  B(OXp)\}    \msubseteq{}r  Length
7.  \mneg{}((a  <  b  \mvee{}  b  <  a)  \mvee{}  (a  =  b))
8.  a  \mmember{}  Length
9.  b  \mmember{}  Length
10.  B(Xba)
11.  a  \#  b
\mvdash{}  False


By


Latex:
(D  -5
  THEN  ((OrLeft  THENA  Auto)  THEN  (OrRight  THENA  Auto))
  THEN  ((Unfold  `geo-lt`  0  THEN  InstConcl  [\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{}]\mcdot{}  THEN  Auto)
              THEN  (FLemma  `geo-add-length-between`  [-3]  THENA  Auto)
              )
  THEN  (Assert  a  =  b  +  |ba|  BY
                          (((Assert  |Xa|  =  a  BY  EAuto  1)  THEN  (Assert  |Xb|  =  b  BY  EAuto  1))  THEN  EAuto  1))
  THEN  InstLemma  `geo-le-same`  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}b  +  |ba|\mkleeneclose{}]\mcdot{}
  THEN  Auto)




Home Index