---

Step * of Lemma tarski-erect-perp-in

∀e:HeytingGeometry. ∀a,b,c:Point.  (c # ba ⇒ (∃p:Point. (ab  ⊥a pa ∧ p # ab)))
BY
{ (Auto
   THEN ((InstLemma `tarski-perp-in-exists` [⌜e⌝;⌜a⌝;⌜b⌝;⌜c⌝]⋅ THENA Auto) THEN ExRepD)
   THEN (InstLemma `geo-sep-or` [⌜e⌝;⌜a⌝;⌜b⌝;⌜x⌝]⋅ THENA Auto)
   THEN D -1) }

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. a ≠ x
⊢ ∃p:Point. (ab  ⊥a pa ∧ p # ab)

2
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. b ≠ x
⊢ ∃p:Point. (ab  ⊥a pa ∧ p # ab)

---

Latex:

---

Latex:
\mforall{}e:HeytingGeometry.  \mforall{}a,b,c:Point.    (c  \#  ba  {}\mRightarrow{}  (\mexists{}p:Point.  (ab    \mbot{}a  pa  \mwedge{}  p  \#  ab)))


By

---

Latex:
(Auto
  THEN  ((InstLemma  `tarski-perp-in-exists`  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}c\mkleeneclose{}]\mcdot{}  THENA  Auto)  THEN  ExRepD)
  THEN  (InstLemma  `geo-sep-or`  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}x\mkleeneclose{}]\mcdot{}  THENA  Auto)
  THEN  D  -1)

---

Home Index