Step
*
of Lemma
bag-splits_wf
∀T:Type. ∀b:bag(T).  (bag-splits(b) ∈ bag(bag(T) × bag(T)))
BY
{ ((UnivCD THENA Auto)
   THEN (D -1 THEN Auto)
   THEN EqTypeCD
   THEN Auto
   THEN Try ((BLemma `bag-splits-wf` THEN Auto))
   THEN (BLemma `bag-splits-permutation` THEN Auto)⋅) }
Latex:
Latex:
\mforall{}T:Type.  \mforall{}b:bag(T).    (bag-splits(b)  \mmember{}  bag(bag(T)  \mtimes{}  bag(T)))
By
Latex:
((UnivCD  THENA  Auto)
  THEN  (D  -1  THEN  Auto)
  THEN  EqTypeCD
  THEN  Auto
  THEN  Try  ((BLemma  `bag-splits-wf`  THEN  Auto))
  THEN  (BLemma  `bag-splits-permutation`  THEN  Auto)\mcdot{})
Home
Index