---

Step * of Lemma bag-union-cons

∀[b,a:Top].  (bag-union(a.b) ~ a + bag-union(b))
BY
{ (Auto
   THEN RepUR ``bag-union concat cons-bag`` 0
   THEN Try (Fold `concat` 0)
   THEN Try (Fold `bag-union` 0)
   THEN Try (Fold `bag-append` 0)
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[b,a:Top].    (bag-union(a.b)  \msim{}  a  +  bag-union(b))


By

---

Latex:
(Auto
  THEN  RepUR  ``bag-union  concat  cons-bag``  0
  THEN  Try  (Fold  `concat`  0)
  THEN  Try  (Fold  `bag-union`  0)
  THEN  Try  (Fold  `bag-append`  0)
  THEN  Auto)

---

Home Index