---

Step * of Lemma bag-subtract-size

∀[T:Type]. ∀[eq:EqDecider(T)]. ∀[as,bs:bag(T)].
  #(bag-subtract(eq;bs;as)) = (#(bs) - #(as)) ∈ ℤ supposing sub-bag(T;as;bs)
BY
{ xxx(Auto
      THEN D -1
      THEN HypSubst' (-1) 0
      THEN Auto
      THEN RWO "bag-subtract-append" 0
      THEN Auto
      THEN RWO "bag-size-append" 0
      THEN Auto)xxx }

---

Latex:

---

Latex:
\mforall{}[T:Type].  \mforall{}[eq:EqDecider(T)].  \mforall{}[as,bs:bag(T)].
    \#(bag-subtract(eq;bs;as))  =  (\#(bs)  -  \#(as))  supposing  sub-bag(T;as;bs)


By

---

Latex:
xxx(Auto
        THEN  D  -1
        THEN  HypSubst'  (-1)  0
        THEN  Auto
        THEN  RWO  "bag-subtract-append"  0
        THEN  Auto
        THEN  RWO  "bag-size-append"  0
        THEN  Auto)xxx

---

Home Index