Step * 1 2 1 1 1 1 1 1 of Lemma empty-bag-union


1. Type
2. bag(T)
3. bag(T) List
4. (reduce(λl,l'. (l l');{};v) {} ∈ bag(T))  (∀x:Top List. ((x ∈ v)  (x {})))
5. (u reduce(λl,l'. (l l');{};v)) {} ∈ bag(T)
6. Top List
7. (x ∈ [u v])
⊢ {}
BY
((RWO "bag-append-is-empty" (-3) THENA Auto) THEN (RWO "cons_member" (-1) THENM -1) THEN Auto) }

1
1. Type
2. bag(T)
3. bag(T) List
4. {} ∈ bag(T)
5. reduce(λl,l'. (l l');{};v) {} ∈ bag(T)
6. Top List
7. u ∈ (Top List)
8. ∀x:Top List. ((x ∈ v)  (x {}))
⊢ {}


Latex:


Latex:

1.  T  :  Type
2.  u  :  bag(T)
3.  v  :  bag(T)  List
4.  (reduce(\mlambda{}l,l'.  (l  +  l');\{\};v)  =  \{\})  {}\mRightarrow{}  (\mforall{}x:Top  List.  ((x  \mmember{}  v)  {}\mRightarrow{}  (x  \msim{}  \{\})))
5.  (u  +  reduce(\mlambda{}l,l'.  (l  +  l');\{\};v))  =  \{\}
6.  x  :  Top  List
7.  (x  \mmember{}  [u  /  v])
\mvdash{}  x  \msim{}  \{\}


By


Latex:
((RWO  "bag-append-is-empty"  (-3)  THENA  Auto)  THEN  (RWO  "cons\_member"  (-1)  THENM  D  -1)  THEN  Auto)




Home Index