---

Step * 1 of Lemma fps-set-to-one-ucont


1. r : CRng
2. y : Atom
3. n : ℕ
4. b : bag(Atom)
5. ¬n < #(b)
6. ¬0 < (#y in b)
7. f : PowerSeries(r)
⊢ (b + bag-rep(n;y)) = ((b + bag-rep(n - #(b);y)) + bag-rep(#(b);y)) ∈ bag(Atom)
BY
{ ((RWO "bag-append-assoc" 0 THENM EqCD) THEN Auto') }

1
.....subterm..... T:t
2:n
1. r : CRng
2. y : Atom
3. n : ℕ
4. b : bag(Atom)
5. ¬n < #(b)
6. ¬0 < (#y in b)
7. f : PowerSeries(r)
⊢ bag-rep(n;y) = (bag-rep(n - #(b);y) + bag-rep(#(b);y)) ∈ bag(Atom)

---

Latex:

---

Latex:

1.  r  :  CRng
2.  y  :  Atom
3.  n  :  \mBbbN{}
4.  b  :  bag(Atom)
5.  \mneg{}n  <  \#(b)
6.  \mneg{}0  <  (\#y  in  b)
7.  f  :  PowerSeries(r)
\mvdash{}  (b  +  bag-rep(n;y))  =  ((b  +  bag-rep(n  -  \#(b);y))  +  bag-rep(\#(b);y))


By

---

Latex:
((RWO  "bag-append-assoc"  0  THENM  EqCD)  THEN  Auto')

---

Home Index