---

Step * of Lemma bag-splits_wf_list

∀T:Type. ∀b:T List.  (bag-splits(b) ∈ (bag(T) × bag(T)) List)
BY
{ (InductionOnList
   THEN RepUR ``bag-splits`` 0
   THEN Reduce 0
   THEN Try (Fold `bag-splits` 0)
   THEN Try ((Unfold `single-bag` 0 THEN Complete (Auto)))
   THEN Unfolds ``bag-append bag-map`` 0
   THEN MemCD
   THEN Try (Fold `bag-append` 0⋅)
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}T:Type.  \mforall{}b:T  List.    (bag-splits(b)  \mmember{}  (bag(T)  \mtimes{}  bag(T))  List)


By

---

Latex:
(InductionOnList
  THEN  RepUR  ``bag-splits``  0
  THEN  Reduce  0
  THEN  Try  (Fold  `bag-splits`  0)
  THEN  Try  ((Unfold  `single-bag`  0  THEN  Complete  (Auto)))
  THEN  Unfolds  ``bag-append  bag-map``  0
  THEN  MemCD
  THEN  Try  (Fold  `bag-append`  0\mcdot{})
  THEN  Auto)

---

Home Index