---

Step * 1 1 1 2 1 1 of Lemma tarski-erect-perp-or


1. e : HeytingGeometry
2. a : Point
3. b : Point
4. c : Point
5. c # ba
6. x : Point
7. Colinear(a;b;x)
8. ab  ⊥x cx
9. Colinear(a;b;x)
10. Colinear(c;x;x)
11. ∀u,v:Point.  (Colinear(a;b;u) ⇒ Colinear(c;x;v) ⇒ Ruxv)
12. Raxc
13. Rbxc
14. c # ba
15. c ≠ x
16. c' : Point
17. c-x-c'
18. xc' ≅ cx
19. b ≠ x
20. ∀c':Point. (c'=x=c ⇒ ac ≅ ac')
21. ac ≅ ac'
22. c1 : Point
23. c-b-c1
24. bc1 ≅ cb
25. c' # c1b
26. ∀c':Point. (c'=x=c ⇒ bc ≅ bc')
27. bc ≅ bc'
28. p : Point
29. c'=p=c1
⊢ ∃p,t:Point. (((ab ⊥ pa ∨ ab ⊥ pb) ∧ Colinear(a;b;t)) ∧ p-t-c)
BY
{ (Assert Rxbp BY
         ((InstLemma `geo-perp-midsegments` [⌜e⌝;⌜b⌝;⌜x⌝;⌜c⌝]⋅ THENA Auto)
          THEN ((InstHyp [⌜c1⌝;⌜c'⌝;⌜p⌝] (-1)⋅ THEN Auto) THENA (D 0 THEN Auto))
          THEN D 29
          THEN Auto)) }

1
1. e : HeytingGeometry
2. a : Point
3. b : Point
4. c : Point
5. c # ba
6. x : Point
7. Colinear(a;b;x)
8. ab  ⊥x cx
9. Colinear(a;b;x)
10. Colinear(c;x;x)
11. ∀u,v:Point.  (Colinear(a;b;u) ⇒ Colinear(c;x;v) ⇒ Ruxv)
12. Raxc
13. Rbxc
14. c # ba
15. c ≠ x
16. c' : Point
17. c-x-c'
18. xc' ≅ cx
19. b ≠ x
20. ∀c':Point. (c'=x=c ⇒ ac ≅ ac')
21. ac ≅ ac'
22. c1 : Point
23. c-b-c1
24. bc1 ≅ cb
25. c' # c1b
26. ∀c':Point. (c'=x=c ⇒ bc ≅ bc')
27. bc ≅ bc'
28. p : Point
29. c'=p=c1
30. Rxbp
⊢ ∃p,t:Point. (((ab ⊥ pa ∨ ab ⊥ pb) ∧ Colinear(a;b;t)) ∧ p-t-c)

---

Latex:

---

Latex:

1.  e  :  HeytingGeometry
2.  a  :  Point
3.  b  :  Point
4.  c  :  Point
5.  c  \#  ba
6.  x  :  Point
7.  Colinear(a;b;x)
8.  ab    \mbot{}x  cx
9.  Colinear(a;b;x)
10.  Colinear(c;x;x)
11.  \mforall{}u,v:Point.    (Colinear(a;b;u)  {}\mRightarrow{}  Colinear(c;x;v)  {}\mRightarrow{}  Ruxv)
12.  Raxc
13.  Rbxc
14.  c  \#  ba
15.  c  \mneq{}  x
16.  c'  :  Point
17.  c-x-c'
18.  xc'  \mcong{}  cx
19.  b  \mneq{}  x
20.  \mforall{}c':Point.  (c'=x=c  {}\mRightarrow{}  ac  \mcong{}  ac')
21.  ac  \mcong{}  ac'
22.  c1  :  Point
23.  c-b-c1
24.  bc1  \mcong{}  cb
25.  c'  \#  c1b
26.  \mforall{}c':Point.  (c'=x=c  {}\mRightarrow{}  bc  \mcong{}  bc')
27.  bc  \mcong{}  bc'
28.  p  :  Point
29.  c'=p=c1
\mvdash{}  \mexists{}p,t:Point.  (((ab  \mbot{}  pa  \mvee{}  ab  \mbot{}  pb)  \mwedge{}  Colinear(a;b;t))  \mwedge{}  p-t-c)


By

---

Latex:
(Assert  Rxbp  BY
              ((InstLemma  `geo-perp-midsegments`  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}x\mkleeneclose{};\mkleeneopen{}c\mkleeneclose{}]\mcdot{}  THENA  Auto)
                THEN  ((InstHyp  [\mkleeneopen{}c1\mkleeneclose{};\mkleeneopen{}c'\mkleeneclose{};\mkleeneopen{}p\mkleeneclose{}]  (-1)\mcdot{}  THEN  Auto)  THENA  (D  0  THEN  Auto))
                THEN  D  29
                THEN  Auto))

---

Home Index