---

Step * 2 of Lemma sub-bag-cancel-right


1. T : Type
2. b1 : bag(T)
3. b2 : bag(T)
4. b : bag(T)
5. cs : bag(T)
6. b2 = (b1 + cs) ∈ bag(T)
⊢ (b2 + b) = ((b1 + b) + cs) ∈ bag(T)
BY
{ ((HypSubst' (-1) 0 THENA Auto)
   THEN (RWO "bag-append-assoc" 0 THENA Auto)
   THEN InstLemma `bag-append-comm` [⌜T⌝;⌜cs⌝;⌜b⌝]⋅
   THEN Auto) }

---

Latex:

---

Latex:

1.  T  :  Type
2.  b1  :  bag(T)
3.  b2  :  bag(T)
4.  b  :  bag(T)
5.  cs  :  bag(T)
6.  b2  =  (b1  +  cs)
\mvdash{}  (b2  +  b)  =  ((b1  +  b)  +  cs)


By

---

Latex:
((HypSubst'  (-1)  0  THENA  Auto)
  THEN  (RWO  "bag-append-assoc"  0  THENA  Auto)
  THEN  InstLemma  `bag-append-comm`  [\mkleeneopen{}T\mkleeneclose{};\mkleeneopen{}cs\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{}]\mcdot{}
  THEN  Auto)

---

Home Index