Step
*
of Lemma
stable__eu-between
∀e:EuclideanStructure. ∀[a,b,c:Point].  Stable{a-b-c}
BY
{ ((UnivCD THENA Auto)
   THEN (DRecord 1 THENA Auto)
   THEN (Assert ∀[a,b,c:e."Point"].  e."B" a b c supposing ¬¬(e."B" a b c) BY
               (UseWitness ⌜e."Bstable"⌝⋅ THEN Trivial))
   THEN RepUR ``eu-between stable`` 0
   THEN (D 0 THENA Auto)
   THEN BackThruSomeHyp
   THEN Auto) }
Latex:
Latex:
\mforall{}e:EuclideanStructure.  \mforall{}[a,b,c:Point].    Stable\{a-b-c\}
By
Latex:
((UnivCD  THENA  Auto)
  THEN  (DRecord  1  THENA  Auto)
  THEN  (Assert  \mforall{}[a,b,c:e."Point"].    e."B"  a  b  c  supposing  \mneg{}\mneg{}(e."B"  a  b  c)  BY
                          (UseWitness  \mkleeneopen{}e."Bstable"\mkleeneclose{}\mcdot{}  THEN  Trivial))
  THEN  RepUR  ``eu-between  stable``  0
  THEN  (D  0  THENA  Auto)
  THEN  BackThruSomeHyp
  THEN  Auto)
Home
Index