---

Step * 1 of Lemma bag-summation-partitions-primes-general


1. r : CRng
2. h : ℕ+ ⟶ ℕ+ ⟶ |r|
3. b : bag(Prime)
4. IntDeq ∈ EqDecider(Prime)
⊢ Σ(p∈bag-partitions(IntDeq;b)). h[Π(fst(p));Π(snd(p))]
= Σ(i∈[1, Π(b) + 1)). if (Π(b) rem i =z 0) then h[i;Π(b) ÷ i] else 0 fi 
∈ |r|
BY
{ xxxSubst ⌜Σ(p∈bag-partitions(IntDeq;b)). h[Π(fst(p));Π(snd(p))] 
            ~ Σ(x∈bag-map(λp.<Π(fst(p)), Π(snd(p))>;bag-partitions(IntDeq;b))). h[fst(x);snd(x)]⌝ 0⋅xxx }

1
.....equality..... 
1. r : CRng
2. h : ℕ+ ⟶ ℕ+ ⟶ |r|
3. b : bag(Prime)
4. IntDeq ∈ EqDecider(Prime)
⊢ Σ(p∈bag-partitions(IntDeq;b)). h[Π(fst(p));Π(snd(p))] 
~ Σ(x∈bag-map(λp.<Π(fst(p)), Π(snd(p))>;bag-partitions(IntDeq;b))). h[fst(x);snd(x)]

2
1. r : CRng
2. h : ℕ+ ⟶ ℕ+ ⟶ |r|
3. b : bag(Prime)
4. IntDeq ∈ EqDecider(Prime)
⊢ Σ(x∈bag-map(λp.<Π(fst(p)), Π(snd(p))>;bag-partitions(IntDeq;b))). h[fst(x);snd(x)]
= Σ(i∈[1, Π(b) + 1)). if (Π(b) rem i =z 0) then h[i;Π(b) ÷ i] else 0 fi 
∈ |r|

---

Latex:

---

Latex:

1.  r  :  CRng
2.  h  :  \mBbbN{}\msupplus{}  {}\mrightarrow{}  \mBbbN{}\msupplus{}  {}\mrightarrow{}  |r|
3.  b  :  bag(Prime)
4.  IntDeq  \mmember{}  EqDecider(Prime)
\mvdash{}  \mSigma{}(p\mmember{}bag-partitions(IntDeq;b)).  h[\mPi{}(fst(p));\mPi{}(snd(p))]
=  \mSigma{}(i\mmember{}[1,  \mPi{}(b)  +  1)).  if  (\mPi{}(b)  rem  i  =\msubz{}  0)  then  h[i;\mPi{}(b)  \mdiv{}  i]  else  0  fi 


By

---

Latex:
xxxSubst  \mkleeneopen{}\mSigma{}(p\mmember{}bag-partitions(IntDeq;b)).  h[\mPi{}(fst(p));\mPi{}(snd(p))]  \msim{}  \mSigma{}(x\mmember{}bag-map(\mlambda{}p.<\mPi{}(fst(p))
                                                                                                                                                                  ,  \mPi{}(snd(p))
                                                                                                                                                                  >
                                                                                                                                            bag-partitions(IntDeq;b)))
                                                                                                                                      h[fst(x);snd(x)]\mkleeneclose{}  0\mcdot{}xxx

---

Home Index