Step
*
1
2
of Lemma
interior-angles-unique
1. e : EuclideanPlane
2. p : Point
3. a : Point
4. b : Point
5. c : Point
6. d : Point
7. b' : Point
8. c' : Point
9. a # pc
10. out(p dc)
11. out(a pb')
12. out(a cc')
13. B(b'pc')
14. p # c'
15. pad < pac
16. pap ≅a pad
17. a # p
18. b ≡ p
⊢ ¬((¬B(adp)) ∧ (¬B(apd)))
BY
{ ((InstLemma `angle-cong-preserves-zero-angle` [⌜e⌝;⌜p⌝;⌜a⌝;⌜d⌝;⌜p⌝;⌜a⌝;⌜p⌝]⋅ THEN EAuto 1) THEN D -1 THEN Auto) }
Latex:
Latex:
1.  e  :  EuclideanPlane
2.  p  :  Point
3.  a  :  Point
4.  b  :  Point
5.  c  :  Point
6.  d  :  Point
7.  b'  :  Point
8.  c'  :  Point
9.  a  \#  pc
10.  out(p  dc)
11.  out(a  pb')
12.  out(a  cc')
13.  B(b'pc')
14.  p  \#  c'
15.  pad  <  pac
16.  pap  \mcong{}\msuba{}  pad
17.  a  \#  p
18.  b  \mequiv{}  p
\mvdash{}  \mneg{}((\mneg{}B(adp))  \mwedge{}  (\mneg{}B(apd)))
By
Latex:
((InstLemma  `angle-cong-preserves-zero-angle`  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}p\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}d\mkleeneclose{};\mkleeneopen{}p\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}p\mkleeneclose{}]\mcdot{}  THEN  EAuto  1)
  THEN  D  -1
  THEN  Auto)
Home
Index