Step
*
of Lemma
bag-remove1_wf
∀[T:Type]. ∀[eq:EqDecider(T)]. ∀[x:T]. ∀[bs:bag(T)].  (bag-remove1(eq;bs;x) ∈ bag(T)?)
BY
{ ((UnivCD THENA Auto) THEN BagD (-1)) }
1
1. T : Type
2. eq : EqDecider(T)
3. x : T
4. as : T List
5. bs : T List
6. permutation(T;as;bs)
⊢ bag-remove1(eq;as;x) = bag-remove1(eq;bs;x) ∈ (bag(T)?)
Latex:
Latex:
\mforall{}[T:Type].  \mforall{}[eq:EqDecider(T)].  \mforall{}[x:T].  \mforall{}[bs:bag(T)].    (bag-remove1(eq;bs;x)  \mmember{}  bag(T)?)
By
Latex:
((UnivCD  THENA  Auto)  THEN  BagD  (-1))
Home
Index