---

Step * 1 1 1 3 1 2 1 of Lemma Euclid-Prop19-lemma2


1. e : EuclideanPlane
2. a : Point
3. b : Point
4. c : Point
5. d : Point
6. f : Point
7. a # bc
8. cbd < abd
9. a=d=c
10. a-f-c
11. cbf ≅a abf
12. x : Point
13. bx ≅ bc
14. out(b ax)
15. b # xc
16. x1 : Point
17. x-x1-c
18. out(b fx1)
19. abf ≅a xbx1
20. cbf ≅a cbx1
21. x' : Point
22. x-x'-c
23. out(b dx')
24. abd ≅a xbx'
25. cbd ≅a cbx'
26. xbx1 ≅a cbx1
27. xbx1 < xbx'
28. abf < abd
29. a-f-d
30. c-d-f
31. |ad| < |cf|
⊢ |af| < |cf|
BY
{ ((Assert |af| < |ad| BY
          ((Unfold `geo-lt` 0 THEN InstConcl [⌜f⌝;⌜d⌝]⋅ THEN Auto)
           THEN D -4
           THEN FLemma `geo-add-length-between` [-5]
           THEN Auto))
   THEN InstLemma `geo-lt_transitivity2` [⌜e⌝;⌜|af|⌝;⌜|ad|⌝;⌜|cf|⌝]⋅
   THEN EAuto 1) }

---

Latex:

---

Latex:

1.  e  :  EuclideanPlane
2.  a  :  Point
3.  b  :  Point
4.  c  :  Point
5.  d  :  Point
6.  f  :  Point
7.  a  \#  bc
8.  cbd  <  abd
9.  a=d=c
10.  a-f-c
11.  cbf  \mcong{}\msuba{}  abf
12.  x  :  Point
13.  bx  \mcong{}  bc
14.  out(b  ax)
15.  b  \#  xc
16.  x1  :  Point
17.  x-x1-c
18.  out(b  fx1)
19.  abf  \mcong{}\msuba{}  xbx1
20.  cbf  \mcong{}\msuba{}  cbx1
21.  x'  :  Point
22.  x-x'-c
23.  out(b  dx')
24.  abd  \mcong{}\msuba{}  xbx'
25.  cbd  \mcong{}\msuba{}  cbx'
26.  xbx1  \mcong{}\msuba{}  cbx1
27.  xbx1  <  xbx'
28.  abf  <  abd
29.  a-f-d
30.  c-d-f
31.  |ad|  <  |cf|
\mvdash{}  |af|  <  |cf|


By

---

Latex:
((Assert  |af|  <  |ad|  BY
                ((Unfold  `geo-lt`  0  THEN  InstConcl  [\mkleeneopen{}f\mkleeneclose{};\mkleeneopen{}d\mkleeneclose{}]\mcdot{}  THEN  Auto)
                  THEN  D  -4
                  THEN  FLemma  `geo-add-length-between`  [-5]
                  THEN  Auto))
  THEN  InstLemma  `geo-lt\_transitivity2`  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}|af|\mkleeneclose{};\mkleeneopen{}|ad|\mkleeneclose{};\mkleeneopen{}|cf|\mkleeneclose{}]\mcdot{}
  THEN  EAuto  1)

---

Home Index