---

Step * 1 of Lemma bag-partitions_wf


1. T : Type
2. valueall-type(T)
3. eq : EqDecider(T)
4. bs : bag(T)
⊢ proddeq(bag-deq(eq);bag-deq(eq)) ∈ EqDecider(bag(T) × bag(T))
BY
{ ((Subst' proddeq(bag-deq(eq);bag-deq(eq)) ~ product-deq(bag(T);bag(T);bag-deq(eq);bag-deq(eq)) 0 THEN Auto)
   THEN RepUR ``product-deq`` 0
   THEN Auto) }

---

Latex:

---

Latex:

1.  T  :  Type
2.  valueall-type(T)
3.  eq  :  EqDecider(T)
4.  bs  :  bag(T)
\mvdash{}  proddeq(bag-deq(eq);bag-deq(eq))  \mmember{}  EqDecider(bag(T)  \mtimes{}  bag(T))


By

---

Latex:
((Subst'  proddeq(bag-deq(eq);bag-deq(eq))  \msim{}  product-deq(bag(T);bag(T);bag-deq(eq);bag-deq(eq))  0
    THEN  Auto
    )
  THEN  RepUR  ``product-deq``  0
  THEN  Auto)

---

Home Index