---

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


1. e : EuclideanPlane
2. a : Point
3. b : {b:Point| a # b} 
4. c : Point
5. a # b
6. v : Point
7. u : Point
8. Colinear(a;b;v)
9. Colinear(a;b;u)
10. v # u
11. cv ≅ cu
12. y : Point
13. x : Point
14. vy ≅ vu
15. vx ≅ vu
16. uy ≅ uv
17. ux ≅ uv
18. y leftof vu
19. x leftof uv
20. y # ab
21. x # ab
22. y # x
23. x # c
⊢ ∃p:Point [(Colinear(p;x;c) ∧ ab  ⊥p px ∧ x # ab ∧ x # c)]
BY
{ ((GenConclTerm ⌜geo-SS(e;v;u;y;x)⌝⋅ THENA (DSetVars THEN Auto))
   THEN Thin (-1)
   THEN RenameVar `m' (-1)
   THEN (Assert SqStable(u=m=v) BY
               (Unfold `geo-midpoint` 0 THEN Auto))
   THEN (Assert u=m=v BY
               (DSetVars THEN Unhide THEN Auto))) }

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

2
1. e : EuclideanPlane
2. a : Point
3. b : {b:Point| a # b} 
4. c : Point
5. a # b
6. v : Point
7. u : Point
8. Colinear(a;b;v)
9. Colinear(a;b;u)
10. v # u
11. cv ≅ cu
12. y : Point
13. x : Point
14. vy ≅ vu
15. vx ≅ vu
16. uy ≅ uv
17. ux ≅ uv
18. y leftof vu
19. x leftof uv
20. y # ab
21. x # ab
22. y # x
23. x # c
24. m : {x1:Point| Colinear(v;u;x1) ∧ B(yx1x)} 
25. SqStable(u=m=v)
26. u=m=v
⊢ ∃p:Point [(Colinear(p;x;c) ∧ ab  ⊥p px ∧ x # ab ∧ x # c)]

---

Latex:

---

Latex:

1.  e  :  EuclideanPlane
2.  a  :  Point
3.  b  :  \{b:Point|  a  \#  b\} 
4.  c  :  Point
5.  a  \#  b
6.  v  :  Point
7.  u  :  Point
8.  Colinear(a;b;v)
9.  Colinear(a;b;u)
10.  v  \#  u
11.  cv  \mcong{}  cu
12.  y  :  Point
13.  x  :  Point
14.  vy  \mcong{}  vu
15.  vx  \mcong{}  vu
16.  uy  \mcong{}  uv
17.  ux  \mcong{}  uv
18.  y  leftof  vu
19.  x  leftof  uv
20.  y  \#  ab
21.  x  \#  ab
22.  y  \#  x
23.  x  \#  c
\mvdash{}  \mexists{}p:Point  [(Colinear(p;x;c)  \mwedge{}  ab    \mbot{}p  px  \mwedge{}  x  \#  ab  \mwedge{}  x  \#  c)]


By

---

Latex:
((GenConclTerm  \mkleeneopen{}geo-SS(e;v;u;y;x)\mkleeneclose{}\mcdot{}  THENA  (DSetVars  THEN  Auto))
  THEN  Thin  (-1)
  THEN  RenameVar  `m'  (-1)
  THEN  (Assert  SqStable(u=m=v)  BY
                          (Unfold  `geo-midpoint`  0  THEN  Auto))
  THEN  (Assert  u=m=v  BY
                          (DSetVars  THEN  Unhide  THEN  Auto)))

---

Home Index