Step
*
of Lemma
eu-length-null-segment
∀[e:EuclideanPlane]. ∀[a:Point].  (|aa| = X ∈ {p:Point| O_X_p} )
BY
{ (Auto
   THEN RepUR ``eu-length`` 0
   THEN GeneralizeEuExtends [`b']⋅
   THEN InstLemma `eu-construction-unicity` [⌜e⌝;⌜O⌝;⌜X⌝;⌜b⌝;⌜X⌝]⋅
   THEN Auto) }
Latex:
Latex:
\mforall{}[e:EuclideanPlane].  \mforall{}[a:Point].    (|aa|  =  X)
By
Latex:
(Auto
  THEN  RepUR  ``eu-length``  0
  THEN  GeneralizeEuExtends  [`b']\mcdot{}
  THEN  InstLemma  `eu-construction-unicity`  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}O\mkleeneclose{};\mkleeneopen{}X\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}X\mkleeneclose{}]\mcdot{}
  THEN  Auto)
Home
Index