Step
*
3
of Lemma
unique-angles-in-half-plane-better2
1. e : EuclideanPlane
2. a : Point
3. b : Point
4. c : Point
5. q : Point
6. a leftof bc
7. q leftof bc
8. qcb ≅a acb
9. u : Point
10. a-c-u
11. cu ≅ OX
12. q1 : Point
13. u-c-q1 ∧ cq1 ≅ cq
14. q ≡ q1
⊢ out(c aq)
BY
{ ((InstLemma  `geo-out-if-between` [⌜e⌝;⌜c⌝;⌜a⌝;⌜q1⌝;⌜u⌝]⋅ THEN Auto)
   THEN (Assert q1 ≡ q BY
               Auto)
   THEN EliminatePoint (-1)
   THEN Auto) }
Latex:
Latex:
1.  e  :  EuclideanPlane
2.  a  :  Point
3.  b  :  Point
4.  c  :  Point
5.  q  :  Point
6.  a  leftof  bc
7.  q  leftof  bc
8.  qcb  \mcong{}\msuba{}  acb
9.  u  :  Point
10.  a-c-u
11.  cu  \mcong{}  OX
12.  q1  :  Point
13.  u-c-q1  \mwedge{}  cq1  \mcong{}  cq
14.  q  \mequiv{}  q1
\mvdash{}  out(c  aq)
By
Latex:
((InstLemma    `geo-out-if-between`  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}c\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}q1\mkleeneclose{};\mkleeneopen{}u\mkleeneclose{}]\mcdot{}  THEN  Auto)
  THEN  (Assert  q1  \mequiv{}  q  BY
                          Auto)
  THEN  EliminatePoint  (-1)
  THEN  Auto)
Home
Index