---

Step * 1 1 1 3 2 1 1 2 1 of Lemma Euclid-Prop21


1. g : EuclideanPlane
2. a : Point
3. b : Point
4. c : Point
5. d : Point
6. a leftof bc
7. d leftof bc
8. d leftof ca
9. d leftof ab
10. a leftof bd
11. c leftof db
12. x : Point
13. a-x-c
14. B(bdx)
15. b # d
16. d # x
17. |bx| < |ba| + |ax|
18. |bx| + |xc| < |ba| + |ac|
19. |cd| < |cx| + |xd|
20. |bx| = |bd| + |dx| ∈ Length
21. |xb| = |bd| + |dx| ∈ Length
22. |cx| + |bd| + |dx| = |cx| + |bd| + |dx| ∈ Length
23. X < |cx| + |xd|
⊢ X # |cx| + |xd|
BY
{ ((InstLemma `geo-sep-iff-or-lt` [⌜g⌝;⌜X⌝;⌜|cx| + |xd|⌝]⋅ THEN Auto)
   THEN skip{(((D -1 THENA Auto) THEN MemTypeCD) THEN Auto)}
   ) }

1
1. g : EuclideanPlane
2. a : Point
3. b : Point
4. c : Point
5. d : Point
6. a leftof bc
7. d leftof bc
8. d leftof ca
9. d leftof ab
10. a leftof bd
11. c leftof db
12. x : Point
13. a-x-c
14. B(bdx)
15. b # d
16. d # x
17. |bx| < |ba| + |ax|
18. |bx| + |xc| < |ba| + |ac|
19. |cd| < |cx| + |xd|
20. |bx| = |bd| + |dx| ∈ Length
21. |xb| = |bd| + |dx| ∈ Length
22. |cx| + |bd| + |dx| = |cx| + |bd| + |dx| ∈ Length
23. X < |cx| + |xd|
24. X # |cx| + |xd| ⇒ (X < |cx| + |xd| ∨ |cx| + |xd| < X)
25. X # |cx| + |xd| ⇐ X < |cx| + |xd| ∨ |cx| + |xd| < X
⊢ X # |cx| + |xd|

---

Latex:

---

Latex:

1.  g  :  EuclideanPlane
2.  a  :  Point
3.  b  :  Point
4.  c  :  Point
5.  d  :  Point
6.  a  leftof  bc
7.  d  leftof  bc
8.  d  leftof  ca
9.  d  leftof  ab
10.  a  leftof  bd
11.  c  leftof  db
12.  x  :  Point
13.  a-x-c
14.  B(bdx)
15.  b  \#  d
16.  d  \#  x
17.  |bx|  <  |ba|  +  |ax|
18.  |bx|  +  |xc|  <  |ba|  +  |ac|
19.  |cd|  <  |cx|  +  |xd|
20.  |bx|  =  |bd|  +  |dx|
21.  |xb|  =  |bd|  +  |dx|
22.  |cx|  +  |bd|  +  |dx|  =  |cx|  +  |bd|  +  |dx|
23.  X  <  |cx|  +  |xd|
\mvdash{}  X  \#  |cx|  +  |xd|


By

---

Latex:
((InstLemma  `geo-sep-iff-or-lt`  [\mkleeneopen{}g\mkleeneclose{};\mkleeneopen{}X\mkleeneclose{};\mkleeneopen{}|cx|  +  |xd|\mkleeneclose{}]\mcdot{}  THEN  Auto)
  THEN  skip\{(((D  -1  THENA  Auto)  THEN  MemTypeCD)  THEN  Auto)\}
  )

---

Home Index