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∈b + 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 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 }
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