Step
*
of Lemma
bag-co-restrict-append
∀[T:Type]. ∀[eq:EqDecider(T)]. ∀[x:T]. ∀[b,c:bag(T)].  ((b + c|¬x) ~ (b|¬x) + (c|¬x))
BY
{ (Auto THEN Unfold `bag-co-restrict` 0 THEN RWO "bag-filter-append" 0 THEN Auto) }
Latex:
Latex:
\mforall{}[T:Type].  \mforall{}[eq:EqDecider(T)].  \mforall{}[x:T].  \mforall{}[b,c:bag(T)].    ((b  +  c|\mneg{}x)  \msim{}  (b|\mneg{}x)  +  (c|\mneg{}x))
By
Latex:
(Auto  THEN  Unfold  `bag-co-restrict`  0  THEN  RWO  "bag-filter-append"  0  THEN  Auto)
Home
Index