Step
*
of Lemma
fps-restrict-empty
∀[X:Type]. ∀[eq:EqDecider(X)]. ∀[r:CRng]. ∀[f:PowerSeries(X;r)].
  (fps-restrict(eq;r;f;{}) = (f[{}])*1 ∈ PowerSeries(X;r))
BY
{ (Auto
   THEN BLemma `fps-ext`
   THEN Auto
   THEN RepUR ``fps-scalar-mul fps-restrict fps-coeff fps-one`` 0
   THEN RepeatFor 2 (AutoSplit)
   THEN All (RWO "sub-bag-empty")
   THEN Auto
   THEN RW RngNormC 0
   THEN Auto) }
Latex:
Latex:
\mforall{}[X:Type].  \mforall{}[eq:EqDecider(X)].  \mforall{}[r:CRng].  \mforall{}[f:PowerSeries(X;r)].
    (fps-restrict(eq;r;f;\{\})  =  (f[\{\}])*1)
By
Latex:
(Auto
  THEN  BLemma  `fps-ext`
  THEN  Auto
  THEN  RepUR  ``fps-scalar-mul  fps-restrict  fps-coeff  fps-one``  0
  THEN  RepeatFor  2  (AutoSplit)
  THEN  All  (RWO  "sub-bag-empty")
  THEN  Auto
  THEN  RW  RngNormC  0
  THEN  Auto)
Home
Index