Step
*
of Lemma
bag-filter-combine2
ā[T,U:Type]. ā[P:T ā¶ š¹]. ā[f:U ā¶ bag(T)]. ā[b:bag(U)]. ([xāāzāb.f[z]|P[x]] = āzāb.[xāf[z]|P[x]] ā bag({x:T| āP[x]} ))
BY
{ ((UnivCD THENA Auto)
THEN Unfold `bag-combine` 0
THEN (RWO "bag-filter-union" 0 THENA Auto)
THEN (RWO "bag-map-map" 0 THENA Auto)
THEN RepUR ``compose`` 0
THEN Auto) }
Latex:
Latex:
\mforall{}[T,U:Type]. \mforall{}[P:T {}\mrightarrow{} \mBbbB{}]. \mforall{}[f:U {}\mrightarrow{} bag(T)]. \mforall{}[b:bag(U)]. ([x\mmember{}\mcup{}z\mmember{}b.f[z]|P[x]] = \mcup{}z\mmember{}b.[x\mmember{}f[z]|P[x]])
By
Latex:
((UnivCD THENA Auto)
THEN Unfold `bag-combine` 0
THEN (RWO "bag-filter-union" 0 THENA Auto)
THEN (RWO "bag-map-map" 0 THENA Auto)
THEN RepUR ``compose`` 0
THEN Auto)
Home
Index