Step * of Lemma fps-product-append

[X:Type]
  ∀[eq:EqDecider(X)]. ∀[r:CRng]. ∀[T:Type]. ∀[f:T ⟶ PowerSeries(X;r)]. ∀[b,c:bag(T)].
    (x∈c).f[x] (x∈b).f[x]*Π(x∈c).f[x]) ∈ PowerSeries(X;r)) 
  supposing valueall-type(X)
BY
xxx((Auto THEN RepUR ``fps-product bag-product`` 0)
      THEN RWO "bag-summation-append" 0
      THEN (Auto THEN Reduce THEN Auto)
      THEN Try ((D THEN Reduce THEN Auto THEN FpsNorm THEN Auto))
      THEN Try ((D THEN Reduce THEN Auto THEN FpsNorm THEN Auto)))xxx }


Latex:


Latex:
\mforall{}[X:Type]
    \mforall{}[eq:EqDecider(X)].  \mforall{}[r:CRng].  \mforall{}[T:Type].  \mforall{}[f:T  {}\mrightarrow{}  PowerSeries(X;r)].  \mforall{}[b,c:bag(T)].
        (\mPi{}(x\mmember{}b  +  c).f[x]  =  (\mPi{}(x\mmember{}b).f[x]*\mPi{}(x\mmember{}c).f[x])) 
    supposing  valueall-type(X)


By


Latex:
xxx((Auto  THEN  RepUR  ``fps-product  bag-product``  0)
        THEN  RWO  "bag-summation-append"  0
        THEN  (Auto  THEN  Reduce  0  THEN  Auto)
        THEN  Try  ((D  0  THEN  Reduce  0  THEN  Auto  THEN  FpsNorm  0  THEN  Auto))
        THEN  Try  ((D  0  THEN  Reduce  0  THEN  Auto  THEN  FpsNorm  0  THEN  Auto)))xxx




Home Index