---

Step * 1 2 1 1 of Lemma Euclid-Prop24


1. p : EuclideanPlane
2. a : Point
3. b : Point
4. c : Point
5. d : Point
6. e : Point
7. f : Point
8. a # bc
9. d # ef
10. ab ≅ de
11. ac ≅ df
12. edf < bac
13. a' : Point
14. x' : Point
15. z' : Point
16. eda' ≅a bac
17. x'-z'-a'
18. out(d ex')
19. out(d fz')
20. g : Point
21. dg ≅ df
22. out(d ga')
23. f # dg
24. ∃x:Point. f=x=g
⊢ bc > ef
BY
{ (ExRepD
   THEN (Assert ∃s:Point. (((e-s-g ∧ out(d z's)) ∧ x'dz' ≅a eds) ∧ a'dz' ≅a gds) BY
               (InstLemma  `geo-out-interior-point-exists` [⌜p⌝;⌜x'⌝;⌜d⌝;⌜a'⌝;⌜e⌝;⌜g⌝;⌜z'⌝]⋅ THEN EAuto 1))
   ) }

1
.....aux..... 
1. p : EuclideanPlane
2. a : Point
3. b : Point
4. c : Point
5. d : Point
6. e : Point
7. f : Point
8. a # bc
9. d # ef
10. ab ≅ de
11. ac ≅ df
12. edf < bac
13. a' : Point
14. x' : Point
15. z' : Point
16. eda' ≅a bac
17. x'-z'-a'
18. out(d ex')
19. out(d fz')
20. g : Point
21. dg ≅ df
22. out(d ga')
23. f # dg
24. x : Point
25. f=x=g
⊢ x' # da'

2
1. p : EuclideanPlane
2. a : Point
3. b : Point
4. c : Point
5. d : Point
6. e : Point
7. f : Point
8. a # bc
9. d # ef
10. ab ≅ de
11. ac ≅ df
12. edf < bac
13. a' : Point
14. x' : Point
15. z' : Point
16. eda' ≅a bac
17. x'-z'-a'
18. out(d ex')
19. out(d fz')
20. g : Point
21. dg ≅ df
22. out(d ga')
23. f # dg
24. x : Point
25. f=x=g
26. ∃s:Point. (((e-s-g ∧ out(d z's)) ∧ x'dz' ≅a eds) ∧ a'dz' ≅a gds)
⊢ bc > ef

---

Latex:

---

Latex:

1.  p  :  EuclideanPlane
2.  a  :  Point
3.  b  :  Point
4.  c  :  Point
5.  d  :  Point
6.  e  :  Point
7.  f  :  Point
8.  a  \#  bc
9.  d  \#  ef
10.  ab  \mcong{}  de
11.  ac  \mcong{}  df
12.  edf  <  bac
13.  a'  :  Point
14.  x'  :  Point
15.  z'  :  Point
16.  eda'  \mcong{}\msuba{}  bac
17.  x'-z'-a'
18.  out(d  ex')
19.  out(d  fz')
20.  g  :  Point
21.  dg  \mcong{}  df
22.  out(d  ga')
23.  f  \#  dg
24.  \mexists{}x:Point.  f=x=g
\mvdash{}  bc  >  ef


By

---

Latex:
(ExRepD
  THEN  (Assert  \mexists{}s:Point.  (((e-s-g  \mwedge{}  out(d  z's))  \mwedge{}  x'dz'  \mcong{}\msuba{}  eds)  \mwedge{}  a'dz'  \mcong{}\msuba{}  gds)  BY
                          (InstLemma    `geo-out-interior-point-exists`  [\mkleeneopen{}p\mkleeneclose{};\mkleeneopen{}x'\mkleeneclose{};\mkleeneopen{}d\mkleeneclose{};\mkleeneopen{}a'\mkleeneclose{};\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}g\mkleeneclose{};\mkleeneopen{}z'\mkleeneclose{}]\mcdot{}
                            THEN  EAuto  1
                            ))
  )

---

Home Index