Step
*
of Lemma
real-rng_lsum-sq
∀[L,A:Top].  (Σ{real-ring()} x ∈ L. A[x] ~ reduce(λx,y. (x + y);r0;map(λx.A[x];L)))
BY
{ (Auto THEN RepUR ``rng_lsum`` 0 THEN Auto) }
Latex:
Latex:
\mforall{}[L,A:Top].    (\mSigma{}\{real-ring()\}  x  \mmember{}  L.  A[x]  \msim{}  reduce(\mlambda{}x,y.  (x  +  y);r0;map(\mlambda{}x.A[x];L)))
By
Latex:
(Auto  THEN  RepUR  ``rng\_lsum``  0  THEN  Auto)
Home
Index