---

Step * 2 1 2 1 1 of Lemma fps-geometric-slice_lemma2

.....equality..... 
1. X : Type
2. valueall-type(X)
3. eq : EqDecider(X)
4. r : CRng
5. n : ℕ+
6. 0 ≠ n
7. m : ℕn
8. ¬(m = 0 ∈ ℤ)
9. g : PowerSeries(X;r)
10. g = [g]_n ∈ PowerSeries(X;r)
11. IsRing(PowerSeries(X;r);λf,g. (f+g);0;λf.-(f);λf,g. (f*g);1)
12. sm : PowerSeries(X;r)
13. ∀[r:CRng]. ∀[n:ℤ].  ([1]_n = if (n =z 0) then 1 else 0 fi  ∈ PowerSeries(X;r))
⊢ (1-0) = 1 ∈ PowerSeries(X;r)
BY
{ xxx(Unfold `fps-sub` 0 THEN (InstLemma `neg_id_fps` [⌜X⌝;⌜r⌝]⋅ THENA Auto))xxx }

1
1. X : Type
2. valueall-type(X)
3. eq : EqDecider(X)
4. r : CRng
5. n : ℕ+
6. 0 ≠ n
7. m : ℕn
8. ¬(m = 0 ∈ ℤ)
9. g : PowerSeries(X;r)
10. g = [g]_n ∈ PowerSeries(X;r)
11. IsRing(PowerSeries(X;r);λf,g. (f+g);0;λf.-(f);λf,g. (f*g);1)
12. sm : PowerSeries(X;r)
13. ∀[r:CRng]. ∀[n:ℤ].  ([1]_n = if (n =z 0) then 1 else 0 fi  ∈ PowerSeries(X;r))
14. -(0) = 0 ∈ PowerSeries(X;r)
⊢ (1+-(0)) = 1 ∈ PowerSeries(X;r)

---

Latex:

---

Latex:
.....equality..... 
1.  X  :  Type
2.  valueall-type(X)
3.  eq  :  EqDecider(X)
4.  r  :  CRng
5.  n  :  \mBbbN{}\msupplus{}
6.  0  \mneq{}  n
7.  m  :  \mBbbN{}n
8.  \mneg{}(m  =  0)
9.  g  :  PowerSeries(X;r)
10.  g  =  [g]\_n
11.  IsRing(PowerSeries(X;r);\mlambda{}f,g.  (f+g);0;\mlambda{}f.-(f);\mlambda{}f,g.  (f*g);1)
12.  sm  :  PowerSeries(X;r)
13.  \mforall{}[r:CRng].  \mforall{}[n:\mBbbZ{}].    ([1]\_n  =  if  (n  =\msubz{}  0)  then  1  else  0  fi  )
\mvdash{}  (1-0)  =  1


By

---

Latex:
xxx(Unfold  `fps-sub`  0  THEN  (InstLemma  `neg\_id\_fps`  [\mkleeneopen{}X\mkleeneclose{};\mkleeneopen{}r\mkleeneclose{}]\mcdot{}  THENA  Auto))xxx

---

Home Index