---

Step * 1 2 2 of Lemma bag-parts_wf


1. T : Type
2. valueall-type(T)
3. eq : EqDecider(T)
4. n : ℕ
5. ∀n:ℕn. ∀bs:bag(T).  ((#(bs) ≤ n) ⇒ (bag-parts(eq;bs) ∈ bag(bag(T) List+)))
6. bs : bag(T)@i
7. #(bs) ≤ n
8. BB : bag({p:bag(T) × bag(T)| ((fst(p)) + (snd(p))) = bs ∈ bag(T)} )@i
9. bag-partitions(eq;bs) = BB ∈ bag({p:bag(T) × bag(T)| ((fst(p)) + (snd(p))) = bs ∈ bag(T)} )
⊢ ⋃p∈BB.if bag-null(fst(p)) then {}
  if bag-null(snd(p)) then {[fst(p)]}
  else let parts ⟵ bag-parts(eq;snd(p))
       in bag-map(λL.[fst(p) / L];parts)
  fi  ∈ bag(bag(T) List+)
BY
{ (Thin (-1) THEN (MemCD THENA Try (Complete (Auto)))) }

1
.....subterm..... T:t
1:n
1. T : Type
2. valueall-type(T)
3. eq : EqDecider(T)
4. n : ℕ
5. ∀n:ℕn. ∀bs:bag(T).  ((#(bs) ≤ n) ⇒ (bag-parts(eq;bs) ∈ bag(bag(T) List+)))
6. bs : bag(T)@i
7. #(bs) ≤ n
8. BB : bag({p:bag(T) × bag(T)| ((fst(p)) + (snd(p))) = bs ∈ bag(T)} )@i
⊢ BB ∈ bag({p:bag(T) × bag(T)| ((fst(p)) + (snd(p))) = bs ∈ bag(T)} )

2
.....subterm..... T:t
2:n
1. T : Type
2. valueall-type(T)
3. eq : EqDecider(T)
4. n : ℕ
5. ∀n:ℕn. ∀bs:bag(T).  ((#(bs) ≤ n) ⇒ (bag-parts(eq;bs) ∈ bag(bag(T) List+)))
6. bs : bag(T)@i
7. #(bs) ≤ n
8. BB : bag({p:bag(T) × bag(T)| ((fst(p)) + (snd(p))) = bs ∈ bag(T)} )@i
9. p : {p:bag(T) × bag(T)| ((fst(p)) + (snd(p))) = bs ∈ bag(T)} 
⊢ if bag-null(fst(p)) then {}
  if bag-null(snd(p)) then {[fst(p)]}
  else let parts ⟵ bag-parts(eq;snd(p))
       in bag-map(λL.[fst(p) / L];parts)
  fi  ∈ bag(bag(T) List+)

---

Latex:

---

Latex:

1.  T  :  Type
2.  valueall-type(T)
3.  eq  :  EqDecider(T)
4.  n  :  \mBbbN{}
5.  \mforall{}n:\mBbbN{}n.  \mforall{}bs:bag(T).    ((\#(bs)  \mleq{}  n)  {}\mRightarrow{}  (bag-parts(eq;bs)  \mmember{}  bag(bag(T)  List\msupplus{})))
6.  bs  :  bag(T)@i
7.  \#(bs)  \mleq{}  n
8.  BB  :  bag(\{p:bag(T)  \mtimes{}  bag(T)|  ((fst(p))  +  (snd(p)))  =  bs\}  )@i
9.  bag-partitions(eq;bs)  =  BB
\mvdash{}  \mcup{}p\mmember{}BB.if  bag-null(fst(p))  then  \{\}
    if  bag-null(snd(p))  then  \{[fst(p)]\}
    else  let  parts  \mleftarrow{}{}  bag-parts(eq;snd(p))
              in  bag-map(\mlambda{}L.[fst(p)  /  L];parts)
    fi    \mmember{}  bag(bag(T)  List\msupplus{})


By

---

Latex:
(Thin  (-1)  THEN  (MemCD  THENA  Try  (Complete  (Auto))))

---

Home Index