---

Step * 1 1 1 3 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'
⊢ |af| < |cf|
BY
{ (Assert abf < abd BY
         ((InstLemma `geo-cong-angle-preserves-lt-angle` [⌜e⌝;⌜x⌝;⌜b⌝;⌜x1⌝;⌜a⌝;⌜b⌝;⌜f⌝;⌜x⌝;⌜b⌝;⌜x'⌝]⋅ THENA EAuto 1)
          THEN InstLemma `geo-cong-angle-preserves-lt-angle2` [⌜e⌝;⌜a⌝;⌜b⌝;⌜f⌝;⌜a⌝;⌜b⌝;⌜d⌝;⌜x⌝;⌜b⌝;⌜x'⌝]⋅
          THEN EAuto 1)) }

1
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
⊢ |af| < |cf|

---

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'
\mvdash{}  |af|  <  |cf|


By

---

Latex:
(Assert  abf  <  abd  BY
              ((InstLemma  `geo-cong-angle-preserves-lt-angle`  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}x\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}x1\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}f\mkleeneclose{};\mkleeneopen{}x\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}x'\mkleeneclose{}]\mcdot{}
                  THENA  EAuto  1
                  )
                THEN  InstLemma  `geo-cong-angle-preserves-lt-angle2`  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}f\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}d\mkleeneclose{};\mkleeneopen{}x\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};
                \mkleeneopen{}x'\mkleeneclose{}]\mcdot{}
                THEN  EAuto  1))

---

Home Index