---

Step * 3 1 4 2 of Lemma geo-intersect-points-iff


1. e : EuclideanPlane
2. a : Point
3. b : Point
4. d : Point
5. c : Point
6. a ≠ b
7. d ≠ c
8. a1 : Point
9. b1 : Point
10. c1 : Point
11. d1 : Point
12. v : Point
13. a1-v-b1
14. c1-v-d1
15. Colinear(a1;a;b)
16. Colinear(b1;a;b)
17. Colinear(c1;d;c)
18. Colinear(d1;d;c)
19. a1 leftof c1d1
20. b1 leftof d1c1
21. a1 leftof cd
22. b1 leftof cd
23. Colinear(c;d;v)
24. v ≡ c
⊢ False
BY
{ (((Assert c ≡ v BY Auto) THEN EliminatePoint (-1) THEN Auto)
   THEN (InstLemma  `left-between-implies-right2` [⌜e⌝;⌜v⌝;⌜d⌝;⌜a1⌝;⌜b1⌝]⋅ THENA Auto)
   THEN FLemma  `not-left-and-right` [-1]
   THEN Auto) }

---

Latex:

---

Latex:

1.  e  :  EuclideanPlane
2.  a  :  Point
3.  b  :  Point
4.  d  :  Point
5.  c  :  Point
6.  a  \mneq{}  b
7.  d  \mneq{}  c
8.  a1  :  Point
9.  b1  :  Point
10.  c1  :  Point
11.  d1  :  Point
12.  v  :  Point
13.  a1-v-b1
14.  c1-v-d1
15.  Colinear(a1;a;b)
16.  Colinear(b1;a;b)
17.  Colinear(c1;d;c)
18.  Colinear(d1;d;c)
19.  a1  leftof  c1d1
20.  b1  leftof  d1c1
21.  a1  leftof  cd
22.  b1  leftof  cd
23.  Colinear(c;d;v)
24.  v  \mequiv{}  c
\mvdash{}  False


By

---

Latex:
(((Assert  c  \mequiv{}  v  BY  Auto)  THEN  EliminatePoint  (-1)  THEN  Auto)
  THEN  (InstLemma    `left-between-implies-right2`  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}v\mkleeneclose{};\mkleeneopen{}d\mkleeneclose{};\mkleeneopen{}a1\mkleeneclose{};\mkleeneopen{}b1\mkleeneclose{}]\mcdot{}  THENA  Auto)
  THEN  FLemma    `not-left-and-right`  [-1]
  THEN  Auto)

---

Home Index