Step * 1 of Lemma geo-lt-angle-construction

.....aux..... 
1. EuclideanPlane
2. Point
3. Point
4. Point
5. Point
6. Point
7. Point
8. ¬out(b ac)
9. Point
10. p' Point
11. x' Point
12. z' Point
13. xyz ≅a abp
14. b_p'_p
15. out(b ax')
16. out(b cz')
17. ¬a_b_p
18. x'_p'_z'
19. p' ≠ z'
20. yz
21. bc
⊢ x'bp' ≅a xyz
BY
((Assert b ≠ p' BY
          ((InstLemma  `out-preserves-lsep` [⌜e⌝;⌜b⌝;⌜a⌝;⌜c⌝;⌜x'⌝;⌜z'⌝]⋅ THEN Auto)
           THEN InstLemma  `colinear-lsep` [⌜e⌝;⌜x'⌝;⌜z'⌝;⌜b⌝;⌜p'⌝]⋅
           THEN Auto))
   THEN (InstLemma `out-preserves-angle-cong_1` [⌜e⌝;⌜a⌝;⌜b⌝;⌜p⌝;⌜x⌝;⌜y⌝;⌜z⌝;⌜x'⌝;⌜p'⌝;⌜x⌝;⌜z⌝]⋅ THEN EAuto 1)
   THEN 0
   THEN Auto) }


Latex:


Latex:
.....aux..... 
1.  e  :  EuclideanPlane
2.  a  :  Point
3.  b  :  Point
4.  c  :  Point
5.  x  :  Point
6.  y  :  Point
7.  z  :  Point
8.  \mneg{}out(b  ac)
9.  p  :  Point
10.  p'  :  Point
11.  x'  :  Point
12.  z'  :  Point
13.  xyz  \mcong{}\msuba{}  abp
14.  b\_p'\_p
15.  out(b  ax')
16.  out(b  cz')
17.  \mneg{}a\_b\_p
18.  x'\_p'\_z'
19.  p'  \mneq{}  z'
20.  x  \#  yz
21.  a  \#  bc
\mvdash{}  x'bp'  \mcong{}\msuba{}  xyz


By


Latex:
((Assert  b  \mneq{}  p'  BY
                ((InstLemma    `out-preserves-lsep`  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}c\mkleeneclose{};\mkleeneopen{}x'\mkleeneclose{};\mkleeneopen{}z'\mkleeneclose{}]\mcdot{}  THEN  Auto)
                  THEN  InstLemma    `colinear-lsep`  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}x'\mkleeneclose{};\mkleeneopen{}z'\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}p'\mkleeneclose{}]\mcdot{}
                  THEN  Auto))
  THEN  (InstLemma  `out-preserves-angle-cong\_1`  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}p\mkleeneclose{};\mkleeneopen{}x\mkleeneclose{};\mkleeneopen{}y\mkleeneclose{};\mkleeneopen{}z\mkleeneclose{};\mkleeneopen{}x'\mkleeneclose{};\mkleeneopen{}p'\mkleeneclose{};\mkleeneopen{}x\mkleeneclose{};\mkleeneopen{}z\mkleeneclose{}]\mcdot{}
              THEN  EAuto  1
              )
  THEN  D  0
  THEN  Auto)




Home Index