---

Step * 1 1 1 1 of Lemma fps-linear-ucont-equal


1. X : Type
2. valueall-type(X)
3. eq : EqDecider(X)
4. r : CRng
5. F : PowerSeries(X;r) ⟶ PowerSeries(X;r)
6. G : PowerSeries(X;r) ⟶ PowerSeries(X;r)
7. ∀f,g:PowerSeries(X;r).  (F[(f+g)] = (F[f]+F[g]) ∈ PowerSeries(X;r))
8. ∀f,g:PowerSeries(X;r).  (G[(f+g)] = (G[f]+G[g]) ∈ PowerSeries(X;r))
9. ∀c:|r|. ∀f:PowerSeries(X;r).  (F[(c)*f] = (c)*F[f] ∈ PowerSeries(X;r))
10. ∀c:|r|. ∀f:PowerSeries(X;r).  (G[(c)*f] = (c)*G[f] ∈ PowerSeries(X;r))
11. ∀b:bag(X). (F[<b>] = G[<b>] ∈ PowerSeries(X;r))
12. f : PowerSeries(X;r)
13. bb : bag(bag(X))
⊢ F[Σ(x∈bb). (f[x])*<x>] = G[Σ(x∈bb). (f[x])*<x>] ∈ PowerSeries(X;r)
BY
{ xxx((Assert Comm(PowerSeries(X;r);λf,g. (f+g)) ∧ Assoc(PowerSeries(X;r);λf,g. (f+g)) BY
             (Auto THEN D 0 THEN Reduce 0 THEN Auto THEN FpsNorm 0 THEN Auto))
      THEN PromoteHyp (-1) 5
      )xxx }

1
1. X : Type
2. valueall-type(X)
3. eq : EqDecider(X)
4. r : CRng
5. Comm(PowerSeries(X;r);λf,g. (f+g)) ∧ Assoc(PowerSeries(X;r);λf,g. (f+g))
6. F : PowerSeries(X;r) ⟶ PowerSeries(X;r)
7. G : PowerSeries(X;r) ⟶ PowerSeries(X;r)
8. ∀f,g:PowerSeries(X;r).  (F[(f+g)] = (F[f]+F[g]) ∈ PowerSeries(X;r))
9. ∀f,g:PowerSeries(X;r).  (G[(f+g)] = (G[f]+G[g]) ∈ PowerSeries(X;r))
10. ∀c:|r|. ∀f:PowerSeries(X;r).  (F[(c)*f] = (c)*F[f] ∈ PowerSeries(X;r))
11. ∀c:|r|. ∀f:PowerSeries(X;r).  (G[(c)*f] = (c)*G[f] ∈ PowerSeries(X;r))
12. ∀b:bag(X). (F[<b>] = G[<b>] ∈ PowerSeries(X;r))
13. f : PowerSeries(X;r)
14. bb : bag(bag(X))
⊢ F[Σ(x∈bb). (f[x])*<x>] = G[Σ(x∈bb). (f[x])*<x>] ∈ PowerSeries(X;r)

---

Latex:

---

Latex:

1.  X  :  Type
2.  valueall-type(X)
3.  eq  :  EqDecider(X)
4.  r  :  CRng
5.  F  :  PowerSeries(X;r)  {}\mrightarrow{}  PowerSeries(X;r)
6.  G  :  PowerSeries(X;r)  {}\mrightarrow{}  PowerSeries(X;r)
7.  \mforall{}f,g:PowerSeries(X;r).    (F[(f+g)]  =  (F[f]+F[g]))
8.  \mforall{}f,g:PowerSeries(X;r).    (G[(f+g)]  =  (G[f]+G[g]))
9.  \mforall{}c:|r|.  \mforall{}f:PowerSeries(X;r).    (F[(c)*f]  =  (c)*F[f])
10.  \mforall{}c:|r|.  \mforall{}f:PowerSeries(X;r).    (G[(c)*f]  =  (c)*G[f])
11.  \mforall{}b:bag(X).  (F[<b>]  =  G[<b>])
12.  f  :  PowerSeries(X;r)
13.  bb  :  bag(bag(X))
\mvdash{}  F[\mSigma{}(x\mmember{}bb).  (f[x])*<x>]  =  G[\mSigma{}(x\mmember{}bb).  (f[x])*<x>]


By

---

Latex:
xxx((Assert  Comm(PowerSeries(X;r);\mlambda{}f,g.  (f+g))  \mwedge{}  Assoc(PowerSeries(X;r);\mlambda{}f,g.  (f+g))  BY
                      (Auto  THEN  D  0  THEN  Reduce  0  THEN  Auto  THEN  FpsNorm  0  THEN  Auto))
        THEN  PromoteHyp  (-1)  5
        )xxx

---

Home Index