Step
*
1
of Lemma
full-Pasch-lemma
1. e : EuclideanPlane
2. a : Point
3. x : Point
4. y : Point
5. d : Point
6. p : Point
7. d leftof xa
8. x-p-a
9. d # py
10. a leftof xy
11. y leftof ax
⊢ ∃p':Point. ((x-p'-y ∨ a-p'-y) ∧ Colinear(d;p;p'))
BY
{ (((InstLemma `use-plane-sep` [⌜e⌝;⌜a⌝;⌜x⌝;⌜y⌝;⌜d⌝]⋅ THEN Auto) THEN ExRepD)
   THEN RenameVar `b' (12)
   THEN InstLemma `left-between-triangle` [⌜e⌝;⌜a⌝;⌜x⌝;⌜y⌝;⌜p⌝]⋅
   THEN Auto) }
1
1. e : EuclideanPlane
2. a : Point
3. x : Point
4. y : Point
5. d : Point
6. p : Point
7. d leftof xa
8. x-p-a
9. d # py
10. a leftof xy
11. y leftof ax
12. b : Point
13. Colinear(a;x;b)
14. B(ybd)
15. a leftof py
⊢ ∃p':Point. ((x-p'-y ∨ a-p'-y) ∧ Colinear(d;p;p'))
Latex:
Latex:
1.  e  :  EuclideanPlane
2.  a  :  Point
3.  x  :  Point
4.  y  :  Point
5.  d  :  Point
6.  p  :  Point
7.  d  leftof  xa
8.  x-p-a
9.  d  \#  py
10.  a  leftof  xy
11.  y  leftof  ax
\mvdash{}  \mexists{}p':Point.  ((x-p'-y  \mvee{}  a-p'-y)  \mwedge{}  Colinear(d;p;p'))
By
Latex:
(((InstLemma  `use-plane-sep`  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}x\mkleeneclose{};\mkleeneopen{}y\mkleeneclose{};\mkleeneopen{}d\mkleeneclose{}]\mcdot{}  THEN  Auto)  THEN  ExRepD)
  THEN  RenameVar  `b'  (12)
  THEN  InstLemma  `left-between-triangle`  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}x\mkleeneclose{};\mkleeneopen{}y\mkleeneclose{};\mkleeneopen{}p\mkleeneclose{}]\mcdot{}
  THEN  Auto)
Home
Index