---

Step * of Lemma geo-perp-irrefl

∀[e:BasicGeometry]. ∀[a,b:Point].  (ab ⊥ ab ⇒ a ≡ b)
BY
{ (Auto THEN D -1 THEN (Assert x ≡ a ∧ x ≡ b BY (Auto THEN BLemma `right-angle-legs-same` ⋅)) THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[e:BasicGeometry].  \mforall{}[a,b:Point].    (ab  \mbot{}  ab  {}\mRightarrow{}  a  \mequiv{}  b)


By

---

Latex:
(Auto
  THEN  D  -1
  THEN  (Assert  x  \mequiv{}  a  \mwedge{}  x  \mequiv{}  b  BY
                          (Auto  THEN  BLemma  `right-angle-legs-same`  \mcdot{}))
  THEN  Auto)

---

Home Index