Step
*
of Lemma
bag-remove-repeats_wf
∀[T:Type]. ∀[eq:EqDecider(T)]. ∀[bs:bag(T)].  (bag-remove-repeats(eq;bs) ∈ bag(T))
BY
{ (Auto THEN BagD (-1) THEN Auto THEN Unfold `bag-remove-repeats` 0 THEN EqTypeCD THEN Auto) }
1
.....antecedent..... 
1. T : Type
2. eq : EqDecider(T)
3. as : T List
4. bs : T List
5. permutation(T;as;bs)
⊢ permutation(T;list-to-set(eq;as);list-to-set(eq;bs))
Latex:
Latex:
\mforall{}[T:Type].  \mforall{}[eq:EqDecider(T)].  \mforall{}[bs:bag(T)].    (bag-remove-repeats(eq;bs)  \mmember{}  bag(T))
By
Latex:
(Auto  THEN  BagD  (-1)  THEN  Auto  THEN  Unfold  `bag-remove-repeats`  0  THEN  EqTypeCD  THEN  Auto)
Home
Index