---

Step * 2 of Lemma bag-moebius-property


1. T : Type
2. valueall-type(T)
3. eq : EqDecider(T)
4. b : bag(T)
5. ¬(b = {} ∈ bag(T))
⊢ bag-moebius(eq;b) = (-Σ(p∈[p∈bag-partitions(eq;b)|¬bbag-null(fst(p))]). bag-moebius(eq;snd(p))) ∈ ℤ
BY
{ xxx((Assert Assoc(ℤ;λx,y. (x + y)) ∧ Comm(ℤ;λx,y. (x + y)) BY
             (RepeatFor 2 (D 0) THEN Reduce 0 THEN Auto))
      THEN (InstLemma `bag-moebius-property1` [⌜T⌝;⌜eq⌝;⌜b⌝]⋅ THENA Auto)
      )xxx }

1
1. T : Type
2. valueall-type(T)
3. eq : EqDecider(T)
4. b : bag(T)
5. ¬(b = {} ∈ bag(T))
6. Assoc(ℤ;λx,y. (x + y)) ∧ Comm(ℤ;λx,y. (x + y))
7. Σ(c∈sub-bags(eq;b)). bag-moebius(eq;c) = if bag-null(b) then 1 else 0 fi  ∈ ℤ
⊢ bag-moebius(eq;b) = (-Σ(p∈[p∈bag-partitions(eq;b)|¬bbag-null(fst(p))]). bag-moebius(eq;snd(p))) ∈ ℤ

---

Latex:

---

Latex:

1.  T  :  Type
2.  valueall-type(T)
3.  eq  :  EqDecider(T)
4.  b  :  bag(T)
5.  \mneg{}(b  =  \{\})
\mvdash{}  bag-moebius(eq;b)  =  (-\mSigma{}(p\mmember{}[p\mmember{}bag-partitions(eq;b)|\mneg{}\msubb{}bag-null(fst(p))]).  bag-moebius(eq;snd(p)))


By

---

Latex:
xxx((Assert  Assoc(\mBbbZ{};\mlambda{}x,y.  (x  +  y))  \mwedge{}  Comm(\mBbbZ{};\mlambda{}x,y.  (x  +  y))  BY
                      (RepeatFor  2  (D  0)  THEN  Reduce  0  THEN  Auto))
        THEN  (InstLemma  `bag-moebius-property1`  [\mkleeneopen{}T\mkleeneclose{};\mkleeneopen{}eq\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{}]\mcdot{}  THENA  Auto)
        )xxx

---

Home Index