---

Step * 1 1 of Lemma bag-decomp_wf

.....wf..... 
1. T : Type
2. bs : Base
3. b1 : Base
4. bs = b1 ∈ (as,bs:T List//permutation(T;as;bs))
5. bs ∈ T List
6. b1 ∈ T List
7. f : ℕ||bs|| ⟶ ℕ||bs||
8. Inj(ℕ||bs||;ℕ||bs||;f) ∧ (b1 = (bs o f) ∈ (T List))
⊢ f ∈ ℕ||map(λn.remove-nth(n;bs);upto(||bs||))|| ⟶ ℕ||map(λn.remove-nth(n;bs);upto(||bs||))||
BY
{ (RWW "length-map length_upto" 0 THEN Auto)⋅ }

---

Latex:

---

Latex:
.....wf..... 
1.  T  :  Type
2.  bs  :  Base
3.  b1  :  Base
4.  bs  =  b1
5.  bs  \mmember{}  T  List
6.  b1  \mmember{}  T  List
7.  f  :  \mBbbN{}||bs||  {}\mrightarrow{}  \mBbbN{}||bs||
8.  Inj(\mBbbN{}||bs||;\mBbbN{}||bs||;f)  \mwedge{}  (b1  =  (bs  o  f))
\mvdash{}  f  \mmember{}  \mBbbN{}||map(\mlambda{}n.remove-nth(n;bs);upto(||bs||))||  {}\mrightarrow{}  \mBbbN{}||map(\mlambda{}n.remove-nth(n;bs);upto(||bs||))||


By

---

Latex:
(RWW  "length-map  length\_upto"  0  THEN  Auto)\mcdot{}

---

Home Index