---

Step * 1 1 1 1 of Lemma Euclid-drop-perp-0

.....aux..... 
1. e : EuclideanPlane
2. a : Point
3. b : Point
4. a # b
5. c : Point
6. a # b
7. u : Point
8. v : Point
9. Colinear(a;b;u)
10. Colinear(a;b;v)
11. u # v
12. cu ≅ cv
13. x : Point
14. y : Point
15. ux ≅ uv
16. uy ≅ uv
17. vx ≅ vu
18. vy ≅ vu
19. x leftof uv
20. y leftof vu
21. x # ab
22. y # ab
23. x # y
24. x # c
25. m : Point
26. Colinear(v;u;m)
27. B(ymx)
28. SqStable(u=m=v)
⊢ u=m=v
BY
{ ((Assert um ≅ mv BY
          (GeoAddSegmentCongruences THEN Auto))
   THEN (Assert B(umv) BY
               (gSimpleColinearCases (-4)⋅
                THEN Auto
                THEN Assert ⌜False⌝⋅
                THEN Auto
                THEN (FLemma `geo-add-length-between` [-1] THENA Auto)))
   ) }

1
.....aux..... 
1. e : EuclideanPlane
2. a : Point
3. b : Point
4. a # b
5. c : Point
6. a # b
7. u : Point
8. v : Point
9. Colinear(a;b;u)
10. Colinear(a;b;v)
11. u # v
12. cu ≅ cv
13. x : Point
14. y : Point
15. ux ≅ uv
16. uy ≅ uv
17. vx ≅ vu
18. vy ≅ vu
19. x leftof uv
20. y leftof vu
21. x # ab
22. y # ab
23. x # y
24. x # c
25. m : Point
26. Colinear(v;u;m)
27. B(ymx)
28. SqStable(u=m=v)
29. um ≅ mv
30. B(vum)
31. |vm| = |vu| + |um| ∈ Length
⊢ False

2
.....aux..... 
1. e : EuclideanPlane
2. a : Point
3. b : Point
4. a # b
5. c : Point
6. a # b
7. u : Point
8. v : Point
9. Colinear(a;b;u)
10. Colinear(a;b;v)
11. u # v
12. cu ≅ cv
13. x : Point
14. y : Point
15. ux ≅ uv
16. uy ≅ uv
17. vx ≅ vu
18. vy ≅ vu
19. x leftof uv
20. y leftof vu
21. x # ab
22. y # ab
23. x # y
24. x # c
25. m : Point
26. Colinear(v;u;m)
27. B(ymx)
28. SqStable(u=m=v)
29. um ≅ mv
30. B(mvu)
31. |mu| = |mv| + |vu| ∈ Length
⊢ False

3
1. e : EuclideanPlane
2. a : Point
3. b : Point
4. a # b
5. c : Point
6. a # b
7. u : Point
8. v : Point
9. Colinear(a;b;u)
10. Colinear(a;b;v)
11. u # v
12. cu ≅ cv
13. x : Point
14. y : Point
15. ux ≅ uv
16. uy ≅ uv
17. vx ≅ vu
18. vy ≅ vu
19. x leftof uv
20. y leftof vu
21. x # ab
22. y # ab
23. x # y
24. x # c
25. m : Point
26. Colinear(v;u;m)
27. B(ymx)
28. SqStable(u=m=v)
29. um ≅ mv
30. B(umv)
⊢ u=m=v

---

Latex:

---

Latex:
.....aux..... 
1.  e  :  EuclideanPlane
2.  a  :  Point
3.  b  :  Point
4.  a  \#  b
5.  c  :  Point
6.  a  \#  b
7.  u  :  Point
8.  v  :  Point
9.  Colinear(a;b;u)
10.  Colinear(a;b;v)
11.  u  \#  v
12.  cu  \mcong{}  cv
13.  x  :  Point
14.  y  :  Point
15.  ux  \mcong{}  uv
16.  uy  \mcong{}  uv
17.  vx  \mcong{}  vu
18.  vy  \mcong{}  vu
19.  x  leftof  uv
20.  y  leftof  vu
21.  x  \#  ab
22.  y  \#  ab
23.  x  \#  y
24.  x  \#  c
25.  m  :  Point
26.  Colinear(v;u;m)
27.  B(ymx)
28.  SqStable(u=m=v)
\mvdash{}  u=m=v


By

---

Latex:
((Assert  um  \mcong{}  mv  BY
                (GeoAddSegmentCongruences  THEN  Auto))
  THEN  (Assert  B(umv)  BY
                          (gSimpleColinearCases  (-4)\mcdot{}
                            THEN  Auto
                            THEN  Assert  \mkleeneopen{}False\mkleeneclose{}\mcdot{}
                            THEN  Auto
                            THEN  (FLemma  `geo-add-length-between`  [-1]  THENA  Auto)))
  )

---

Home Index