---

Step * 1 of Lemma fps-alg_wf


1. X : Type
2. eq : EqDecider(X)
3. valueall-type(X)
4. r : CRng
5. IsAction(|r|;*;1;PowerSeries(X;r);λc,f. (c)*f)
6. IsBilinear(|r|;PowerSeries(X;r);PowerSeries(X;r);+r;λf,g. (f+g);λf,g. (f+g);λc,f. (c)*f)
7. ∀c:|r|. Dist1op2opLR(PowerSeries(X;r);λf.(c)*f;λf,g. (f*g))
8. fps-rng(r) ∈ RngSig
9. IsRing(|fps-rng(r)|;+fps-rng(r);0;-fps-rng(r);*;1)
10. Comm(|fps-rng(r)|;*)
⊢ fps-alg(X;eq;r) ∈ algebra_sig{i:l}(|r|)
BY
{ (Unfold `algebra_sig` 0 THEN ProveWfLemma) }

---

Latex:

---

Latex:

1.  X  :  Type
2.  eq  :  EqDecider(X)
3.  valueall-type(X)
4.  r  :  CRng
5.  IsAction(|r|;*;1;PowerSeries(X;r);\mlambda{}c,f.  (c)*f)
6.  IsBilinear(|r|;PowerSeries(X;r);PowerSeries(X;r);+r;\mlambda{}f,g.  (f+g);\mlambda{}f,g.  (f+g);\mlambda{}c,f.  (c)*f)
7.  \mforall{}c:|r|.  Dist1op2opLR(PowerSeries(X;r);\mlambda{}f.(c)*f;\mlambda{}f,g.  (f*g))
8.  fps-rng(r)  \mmember{}  RngSig
9.  IsRing(|fps-rng(r)|;+fps-rng(r);0;-fps-rng(r);*;1)
10.  Comm(|fps-rng(r)|;*)
\mvdash{}  fps-alg(X;eq;r)  \mmember{}  algebra\_sig\{i:l\}(|r|)


By

---

Latex:
(Unfold  `algebra\_sig`  0  THEN  ProveWfLemma)

---

Home Index