---

Step * 1 1 2 of Lemma Euclid-Prop27


1. e : EuclideanPlane
2. a : Point
3. b : Point
4. c : Point
5. d : Point
6. x : Point
7. y : Point
8. Colinear(x;a;b)
9. Colinear(y;c;d)
10. a # b
11. c # d
12. a leftof yx
13. c leftof xy
14. axy ≅a cyx
15. x1 : {z:Point| Colinear(z;a;b)} 
16. y1 : {z:Point| Colinear(z;a;b)} 
17. x1 leftof cd
18. y1 leftof dc
19. x2 : Point
20. Colinear(c;d;x2)
21. x1-x2-y1
22. Colinear(x2;x;a)
23. a ≡ x2
⊢ False
BY
{ ((InstLemma `Euclid-prop16` [⌜e⌝;⌜x⌝;⌜a⌝;⌜y⌝;⌜c⌝]⋅ THEN Auto)
   THENA ((InstLemma  `use-plane-sep_strict` [⌜e⌝;⌜y⌝;⌜x⌝;⌜a⌝;⌜c⌝]⋅ THENA Auto)
          THEN ExRepD
          THEN (InstLemma  `geo-intersection-unicity` [⌜e⌝;⌜x⌝;⌜y⌝;⌜x2⌝;⌜c⌝;⌜y⌝;⌜x@0⌝]⋅ THENA Auto))
   ) }

1
.....antecedent..... 
1. e : EuclideanPlane
2. a : Point
3. b : Point
4. c : Point
5. d : Point
6. x : Point
7. y : Point
8. Colinear(x;a;b)
9. Colinear(y;c;d)
10. a # b
11. c # d
12. a leftof yx
13. c leftof xy
14. axy ≅a cyx
15. x1 : {z:Point| Colinear(z;a;b)} 
16. y1 : {z:Point| Colinear(z;a;b)} 
17. x1 leftof cd
18. y1 leftof dc
19. x2 : Point
20. Colinear(c;d;x2)
21. x1-x2-y1
22. Colinear(x2;x;a)
23. a ≡ x2
24. x@0 : Point
25. Colinear(y;x;x@0)
26. a-x@0-c
⊢ Colinear(x2;c;x@0)

2
1. e : EuclideanPlane
2. a : Point
3. b : Point
4. c : Point
5. d : Point
6. x : Point
7. y : Point
8. Colinear(x;a;b)
9. Colinear(y;c;d)
10. a # b
11. c # d
12. a leftof yx
13. c leftof xy
14. axy ≅a cyx
15. x1 : {z:Point| Colinear(z;a;b)} 
16. y1 : {z:Point| Colinear(z;a;b)} 
17. x1 leftof cd
18. y1 leftof dc
19. x2 : Point
20. Colinear(c;d;x2)
21. x1-x2-y1
22. Colinear(x2;x;a)
23. a ≡ x2
24. x@0 : Point
25. Colinear(y;x;x@0)
26. a-x@0-c
27. y ≡ x@0
⊢ a-y-c

3
1. e : EuclideanPlane
2. a : Point
3. b : Point
4. c : Point
5. d : Point
6. x : Point
7. y : Point
8. Colinear(x;a;b)
9. Colinear(y;c;d)
10. a # b
11. c # d
12. a leftof yx
13. c leftof xy
14. axy ≅a cyx
15. x1 : {z:Point| Colinear(z;a;b)} 
16. y1 : {z:Point| Colinear(z;a;b)} 
17. x1 leftof cd
18. y1 leftof dc
19. x2 : Point
20. Colinear(c;d;x2)
21. x1-x2-y1
22. Colinear(x2;x;a)
23. a ≡ x2
24. yax < xyc
25. axy < xyc
⊢ False

---

Latex:

---

Latex:

1.  e  :  EuclideanPlane
2.  a  :  Point
3.  b  :  Point
4.  c  :  Point
5.  d  :  Point
6.  x  :  Point
7.  y  :  Point
8.  Colinear(x;a;b)
9.  Colinear(y;c;d)
10.  a  \#  b
11.  c  \#  d
12.  a  leftof  yx
13.  c  leftof  xy
14.  axy  \mcong{}\msuba{}  cyx
15.  x1  :  \{z:Point|  Colinear(z;a;b)\} 
16.  y1  :  \{z:Point|  Colinear(z;a;b)\} 
17.  x1  leftof  cd
18.  y1  leftof  dc
19.  x2  :  Point
20.  Colinear(c;d;x2)
21.  x1-x2-y1
22.  Colinear(x2;x;a)
23.  a  \mequiv{}  x2
\mvdash{}  False


By

---

Latex:
((InstLemma  `Euclid-prop16`  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}x\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}y\mkleeneclose{};\mkleeneopen{}c\mkleeneclose{}]\mcdot{}  THEN  Auto)
  THENA  ((InstLemma    `use-plane-sep\_strict`  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}y\mkleeneclose{};\mkleeneopen{}x\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}c\mkleeneclose{}]\mcdot{}  THENA  Auto)
                THEN  ExRepD
                THEN  (InstLemma    `geo-intersection-unicity`  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}x\mkleeneclose{};\mkleeneopen{}y\mkleeneclose{};\mkleeneopen{}x2\mkleeneclose{};\mkleeneopen{}c\mkleeneclose{};\mkleeneopen{}y\mkleeneclose{};\mkleeneopen{}x@0\mkleeneclose{}]\mcdot{}  THENA  Auto))
  )

---

Home Index