---

Step * 1 of Lemma Euclid-Prop23


1. e : EuclideanPlane
2. a : Point
3. b : Point
4. x : Point
5. y : Point
6. z : Point
7. z # xy
8. a # b
9. |yz| < |yx| + |xz|
10. |xz| < |yx| + |yz|
11. |yx| < |xz| + |yz|
12. b1 : Point
13. c1 : Point
14. c2 : Point
15. xy ≅ ab1
16. out(a bb1)
17. xz ≅ ac1
18. b1c2 > b1c1
19. yz ≅ b1c2
20. ac1 > ac2
21. v : {u:Point| ac1 ≅ au ∧ b1c2 ≅ b1u ∧ u leftof ab1} 
22. CCL(a;c1;b1;c2) = v ∈ {u:Point| ac1 ≅ au ∧ b1c2 ≅ b1u ∧ u leftof ab1} 
23. out(a bb1)
24. v # ab1
⊢ vab1 ≅a zxy
BY
{ (Unfold `geo-cong-angle` 0 THEN GenRepD THEN Try (InstConcl [⌜v⌝;⌜b1⌝;⌜z⌝;⌜y⌝]⋅) THEN Auto) }

---

Latex:

---

Latex:

1.  e  :  EuclideanPlane
2.  a  :  Point
3.  b  :  Point
4.  x  :  Point
5.  y  :  Point
6.  z  :  Point
7.  z  \#  xy
8.  a  \#  b
9.  |yz|  <  |yx|  +  |xz|
10.  |xz|  <  |yx|  +  |yz|
11.  |yx|  <  |xz|  +  |yz|
12.  b1  :  Point
13.  c1  :  Point
14.  c2  :  Point
15.  xy  \mcong{}  ab1
16.  out(a  bb1)
17.  xz  \mcong{}  ac1
18.  b1c2  >  b1c1
19.  yz  \mcong{}  b1c2
20.  ac1  >  ac2
21.  v  :  \{u:Point|  ac1  \mcong{}  au  \mwedge{}  b1c2  \mcong{}  b1u  \mwedge{}  u  leftof  ab1\} 
22.  CCL(a;c1;b1;c2)  =  v
23.  out(a  bb1)
24.  v  \#  ab1
\mvdash{}  vab1  \mcong{}\msuba{}  zxy


By

---

Latex:
(Unfold  `geo-cong-angle`  0  THEN  GenRepD  THEN  Try  (InstConcl  [\mkleeneopen{}v\mkleeneclose{};\mkleeneopen{}b1\mkleeneclose{};\mkleeneopen{}z\mkleeneclose{};\mkleeneopen{}y\mkleeneclose{}]\mcdot{})  THEN  Auto)

---

Home Index