Step
*
1
1
of Lemma
outr-or-class
1. A : Type
2. B : Type
3. v : bag(B)@i
4. v1 : bag(A)@i
⊢ bag-map(λx.outr(x);[x∈bag-merge(v1;v)|¬bisl(x)]) = v ∈ bag(B)
BY
{ Subst ⌜bag-map(λx.outr(x);[x∈bag-merge(v1;v)|¬bisl(x)]) ~ snd(bag-separate(bag-merge(v1;v)))⌝ 0⋅ }
1
.....equality..... 
1. A : Type
2. B : Type
3. v : bag(B)@i
4. v1 : bag(A)@i
⊢ bag-map(λx.outr(x);[x∈bag-merge(v1;v)|¬bisl(x)]) ~ snd(bag-separate(bag-merge(v1;v)))
2
1. A : Type
2. B : Type
3. v : bag(B)@i
4. v1 : bag(A)@i
⊢ (snd(bag-separate(bag-merge(v1;v)))) = v ∈ bag(B)
Latex:
Latex:
1.  A  :  Type
2.  B  :  Type
3.  v  :  bag(B)@i
4.  v1  :  bag(A)@i
\mvdash{}  bag-map(\mlambda{}x.outr(x);[x\mmember{}bag-merge(v1;v)|\mneg{}\msubb{}isl(x)])  =  v
By
Latex:
Subst  \mkleeneopen{}bag-map(\mlambda{}x.outr(x);[x\mmember{}bag-merge(v1;v)|\mneg{}\msubb{}isl(x)])  \msim{}  snd(bag-separate(bag-merge(v1;v)))\mkleeneclose{}  0\mcdot{}
Home
Index