---

Step * 1 1 1 1 of Lemma lsep-implies-sep-or-not-colinear


1. e : EuclideanPlane
2. a : Point
3. b : Point
4. c : Point
5. x : Point
6. a # bc
7. ∀p:Point. (Colinear(a;b;p) ⇒ p ≠ c)
8. a ≠ x
9. b ≠ x
10. a1 : Point
11. b-a-a1
12. aa1 ≅ ax
13. a2 : Point
14. a1-a-a2
15. aa2 ≅ ax
16. b1 : Point
17. a-b-b1
18. bb1 ≅ bx
19. b2 : Point
20. b1-b-b2
21. bb2 ≅ bx
⊢ c ≠ x ∨ (¬Colinear(a;b;x))
BY
{ (((InstLemma `geo-sep-or` [⌜e⌝;⌜a1⌝;⌜c⌝;⌜x⌝]⋅ THEN Auto) THEN D -1 THEN Auto)
   THEN ((InstLemma `geo-sep-or` [⌜e⌝;⌜a2⌝;⌜c⌝;⌜x⌝]⋅ THEN Auto) THEN D -1 THEN Auto)
   THEN ((InstLemma `geo-sep-or` [⌜e⌝;⌜b1⌝;⌜c⌝;⌜x⌝]⋅ THEN Auto) THEN D -1 THEN Auto)
   THEN (InstLemma `geo-sep-or` [⌜e⌝;⌜b2⌝;⌜c⌝;⌜x⌝]⋅ THEN Auto)
   THEN D -1
   THEN Auto) }

1
1. e : EuclideanPlane
2. a : Point
3. b : Point
4. c : Point
5. x : Point
6. a # bc
7. ∀p:Point. (Colinear(a;b;p) ⇒ p ≠ c)
8. a ≠ x
9. b ≠ x
10. a1 : Point
11. b-a-a1
12. aa1 ≅ ax
13. a2 : Point
14. a1-a-a2
15. aa2 ≅ ax
16. b1 : Point
17. a-b-b1
18. bb1 ≅ bx
19. b2 : Point
20. b1-b-b2
21. bb2 ≅ bx
22. a1 ≠ x
23. a2 ≠ x
24. b1 ≠ x
25. b2 ≠ x
⊢ c ≠ x ∨ (¬Colinear(a;b;x))

---

Latex:

---

Latex:

1.  e  :  EuclideanPlane
2.  a  :  Point
3.  b  :  Point
4.  c  :  Point
5.  x  :  Point
6.  a  \#  bc
7.  \mforall{}p:Point.  (Colinear(a;b;p)  {}\mRightarrow{}  p  \mneq{}  c)
8.  a  \mneq{}  x
9.  b  \mneq{}  x
10.  a1  :  Point
11.  b-a-a1
12.  aa1  \mcong{}  ax
13.  a2  :  Point
14.  a1-a-a2
15.  aa2  \mcong{}  ax
16.  b1  :  Point
17.  a-b-b1
18.  bb1  \mcong{}  bx
19.  b2  :  Point
20.  b1-b-b2
21.  bb2  \mcong{}  bx
\mvdash{}  c  \mneq{}  x  \mvee{}  (\mneg{}Colinear(a;b;x))


By

---

Latex:
(((InstLemma  `geo-sep-or`  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}a1\mkleeneclose{};\mkleeneopen{}c\mkleeneclose{};\mkleeneopen{}x\mkleeneclose{}]\mcdot{}  THEN  Auto)  THEN  D  -1  THEN  Auto)
  THEN  ((InstLemma  `geo-sep-or`  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}a2\mkleeneclose{};\mkleeneopen{}c\mkleeneclose{};\mkleeneopen{}x\mkleeneclose{}]\mcdot{}  THEN  Auto)  THEN  D  -1  THEN  Auto)
  THEN  ((InstLemma  `geo-sep-or`  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}b1\mkleeneclose{};\mkleeneopen{}c\mkleeneclose{};\mkleeneopen{}x\mkleeneclose{}]\mcdot{}  THEN  Auto)  THEN  D  -1  THEN  Auto)
  THEN  (InstLemma  `geo-sep-or`  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}b2\mkleeneclose{};\mkleeneopen{}c\mkleeneclose{};\mkleeneopen{}x\mkleeneclose{}]\mcdot{}  THEN  Auto)
  THEN  D  -1
  THEN  Auto)

---

Home Index