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