Step * 1 1 of Lemma bag-count-drop


1. Type
2. eq EqDecider(T)@i
3. T@i
4. bs bag(T)@i
5. as bag(T)
6. bs ({x} as) ∈ bag(T)
7. bag-remove1(eq;bs;x) (inl as) ∈ (bag(T)?)
⊢ x ↓∈ {x} as
BY
(BLemma `bag-member-append`  THEN Auto THEN (D THEN Auto) THEN OrLeft THEN Auto) }


Latex:


Latex:

1.  T  :  Type
2.  eq  :  EqDecider(T)@i
3.  x  :  T@i
4.  bs  :  bag(T)@i
5.  as  :  bag(T)
6.  bs  =  (\{x\}  +  as)
7.  bag-remove1(eq;bs;x)  =  (inl  as)
\mvdash{}  x  \mdownarrow{}\mmember{}  \{x\}  +  as


By


Latex:
(BLemma  `bag-member-append`    THEN  Auto  THEN  (D  0  THEN  Auto)  THEN  OrLeft  THEN  Auto)




Home Index