Step * 1 1 1 of Lemma angle-bisector-unique


1. EuclideanPlane
2. Point
3. Point
4. Point
5. a' Point
6. c' Point
7. Point
8. Point
9. bc
10. out(b aa')
11. out(b cc')
12. a-x-c
13. a'-y-c'
14. abx ≅a cbx
15. a'by ≅a c'by
16. x' Point
17. a-x'-c
18. out(b yx')
19. a'by ≅a abx'
20. c'by ≅a cbx'
21. Point
22. c-b-C
23. bC ≅ OX
24. c'' Point
25. C-b-c''
26. bc'' ≅ ba
27. out(b cc'')
28. Point
29. cbx' ≅a c''bz
30. abx' ≅a abz
31. out(b x'z)
32. a-z-c''
33. z' Point
34. cbx ≅a c''bz'
35. abx ≅a abz'
36. out(b xz')
37. a-z'-c''
38. a=z=c''
⊢ out(b xy) ∧ abx ≅a a'by
BY
(Assert a=z'=c'' BY
         ((D THEN Auto)
          THEN (InstLemma `geo-sas2` [⌜e⌝;⌜b⌝;⌜a⌝;⌜z'⌝;⌜b⌝;⌜c''⌝;⌜z'⌝]⋅ THEN EAuto 1)
          THEN (InstLemma `geo-cong-angle-transitivity` [⌜e⌝;⌜c⌝;⌜b⌝;⌜x⌝;⌜a⌝;⌜b⌝;⌜x⌝;⌜a⌝;⌜b⌝;⌜z'⌝]⋅ THENA EAuto 1)
          THEN InstLemma `geo-cong-angle-transitivity` [⌜e⌝;⌜a⌝;⌜b⌝;⌜z'⌝;⌜c⌝;⌜b⌝;⌜x⌝;⌜c''⌝;⌜b⌝;⌜z'⌝]⋅
          THEN EAuto 1)) }

1
1. EuclideanPlane
2. Point
3. Point
4. Point
5. a' Point
6. c' Point
7. Point
8. Point
9. bc
10. out(b aa')
11. out(b cc')
12. a-x-c
13. a'-y-c'
14. abx ≅a cbx
15. a'by ≅a c'by
16. x' Point
17. a-x'-c
18. out(b yx')
19. a'by ≅a abx'
20. c'by ≅a cbx'
21. Point
22. c-b-C
23. bC ≅ OX
24. c'' Point
25. C-b-c''
26. bc'' ≅ ba
27. out(b cc'')
28. Point
29. cbx' ≅a c''bz
30. abx' ≅a abz
31. out(b x'z)
32. a-z-c''
33. z' Point
34. cbx ≅a c''bz'
35. abx ≅a abz'
36. out(b xz')
37. a-z'-c''
38. a=z=c''
39. a=z'=c''
⊢ out(b xy) ∧ abx ≅a a'by


Latex:


Latex:

1.  e  :  EuclideanPlane
2.  a  :  Point
3.  b  :  Point
4.  c  :  Point
5.  a'  :  Point
6.  c'  :  Point
7.  x  :  Point
8.  y  :  Point
9.  a  \#  bc
10.  out(b  aa')
11.  out(b  cc')
12.  a-x-c
13.  a'-y-c'
14.  abx  \mcong{}\msuba{}  cbx
15.  a'by  \mcong{}\msuba{}  c'by
16.  x'  :  Point
17.  a-x'-c
18.  out(b  yx')
19.  a'by  \mcong{}\msuba{}  abx'
20.  c'by  \mcong{}\msuba{}  cbx'
21.  C  :  Point
22.  c-b-C
23.  bC  \mcong{}  OX
24.  c''  :  Point
25.  C-b-c''
26.  bc''  \mcong{}  ba
27.  out(b  cc'')
28.  z  :  Point
29.  cbx'  \mcong{}\msuba{}  c''bz
30.  abx'  \mcong{}\msuba{}  abz
31.  out(b  x'z)
32.  a-z-c''
33.  z'  :  Point
34.  cbx  \mcong{}\msuba{}  c''bz'
35.  abx  \mcong{}\msuba{}  abz'
36.  out(b  xz')
37.  a-z'-c''
38.  a=z=c''
\mvdash{}  out(b  xy)  \mwedge{}  abx  \mcong{}\msuba{}  a'by


By


Latex:
(Assert  a=z'=c''  BY
              ((D  0  THEN  Auto)
                THEN  (InstLemma  `geo-sas2`  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}z'\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}c''\mkleeneclose{};\mkleeneopen{}z'\mkleeneclose{}]\mcdot{}  THEN  EAuto  1)
                THEN  (InstLemma  `geo-cong-angle-transitivity`  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}c\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}x\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}x\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}z'\mkleeneclose{}]\mcdot{}
                            THENA  EAuto  1
                            )
                THEN  InstLemma  `geo-cong-angle-transitivity`  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}z'\mkleeneclose{};\mkleeneopen{}c\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}x\mkleeneclose{};\mkleeneopen{}c''\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}z'\mkleeneclose{}]\mcdot{}
                THEN  EAuto  1))




Home Index