Step
*
of Lemma
Euclid-Prop10
∀e:EuclideanPlane. ∀a:Point. ∀b:{b:Point| a ≠ b} .  (∃d:{Point| (a-d-b ∧ ad ≅ db)})
BY
{ (Auto
   THEN ((InstLemma `Euclid-midpoint` [⌜e⌝;⌜a⌝;⌜b⌝]⋅ THENA Auto) THEN ExRepD)
   THEN UseWitness ⌜d⌝⋅
   THEN DSetVars
   THEN MemTypeCD
   THEN Auto) }
1
1. e : EuclideanPlane
2. a : Point
3. b : Point
4. a ≠ b
5. d : Point
6. a=d=b
⊢ a-d-b
Latex:
Latex:
\mforall{}e:EuclideanPlane.  \mforall{}a:Point.  \mforall{}b:\{b:Point|  a  \mneq{}  b\}  .    (\mexists{}d:\{Point|  (a-d-b  \mwedge{}  ad  \00D0  db)\})
By
Latex:
(Auto
  THEN  ((InstLemma  `Euclid-midpoint`  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{}]\mcdot{}  THENA  Auto)  THEN  ExRepD)
  THEN  UseWitness  \mkleeneopen{}d\mkleeneclose{}\mcdot{}
  THEN  DSetVars
  THEN  MemTypeCD
  THEN  Auto)
Home
Index