Step * 1 2 of Lemma geo-add-length-between


1. BasicGeometry
2. Point
3. Point
4. {x:Point| B(OXx) ∧ Xx ≅ ab} 
5. Point
6. B(abc)
7. X
8. {x:Point| B(OXx) ∧ Xx ≅ ac} 
9. Xx ≅ ac
10. B(yXx)
11. Xy ≅ ab
12. B(yXy)
13. {x:Point| B(OXx) ∧ Xx ≅ bc} 
14. Xz ≅ bc
15. B(yXz)
16. O ≡ y
⊢ x ≡ extend Oy by Xz
BY
((InstLemma `geo-between-same` [⌜e⌝;⌜y⌝;⌜X⌝]⋅ THEN Auto)
   THEN (Assert O ≡ BY
               (RelRST THEN Auto))
   THEN -1
   THEN Auto) }


Latex:


Latex:

1.  e  :  BasicGeometry
2.  a  :  Point
3.  b  :  Point
4.  y  :  \{x:Point|  B(OXx)  \mwedge{}  Xx  \mcong{}  ab\} 
5.  c  :  Point
6.  B(abc)
7.  y  \#  X
8.  x  :  \{x:Point|  B(OXx)  \mwedge{}  Xx  \mcong{}  ac\} 
9.  Xx  \mcong{}  ac
10.  B(yXx)
11.  Xy  \mcong{}  ab
12.  B(yXy)
13.  z  :  \{x:Point|  B(OXx)  \mwedge{}  Xx  \mcong{}  bc\} 
14.  Xz  \mcong{}  bc
15.  B(yXz)
16.  O  \mequiv{}  y
\mvdash{}  x  \mequiv{}  extend  Oy  by  Xz


By


Latex:
((InstLemma  `geo-between-same`  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}y\mkleeneclose{};\mkleeneopen{}X\mkleeneclose{}]\mcdot{}  THEN  Auto)
  THEN  (Assert  O  \mequiv{}  X  BY
                          (RelRST  THEN  Auto))
  THEN  D  -1
  THEN  Auto)




Home Index