---

Step * 1 1 1 1 1 1 2 of Lemma in-simple-loc-comb-1-concat


1. Info : Type
2. A : Type
3. B : Type
4. f : Id ─→ A ─→ bag(B)
5. X : EClass(A)
6. es : EO+(Info)
7. e : E
8. ∀i:Id. ∀a:A.  (#(f i a) ≤ 1)@i
9. ∀e:E. (#(X es e) ≤ 1)@i'
10. #(X es e) ≤ 1@i
11. #(X es e) = 1 ∈ ℤ
⊢ (#(bag-union(∪x∈{X(e)}.{f loc(e) x})) =z 1) = ¬bbag-null(f loc(e) X(e))
BY
{ ((Assert ↑e ∈b X BY (Unfold `in-eclass` 0 THEN Auto)) THEN (RWO "bag-combine-single-left" 0 THENA Auto)) }

1
1. Info : Type
2. A : Type
3. B : Type
4. f : Id ─→ A ─→ bag(B)
5. X : EClass(A)
6. es : EO+(Info)
7. e : E
8. ∀i:Id. ∀a:A.  (#(f i a) ≤ 1)@i
9. ∀e:E. (#(X es e) ≤ 1)@i'
10. #(X es e) ≤ 1@i
11. #(X es e) = 1 ∈ ℤ
12. ↑e ∈b X
⊢ (#(bag-union({f loc(e) X(e)})) =z 1) = ¬bbag-null(f loc(e) X(e))

---

Latex:

---

Latex:

1.  Info  :  Type
2.  A  :  Type
3.  B  :  Type
4.  f  :  Id  {}\mrightarrow{}  A  {}\mrightarrow{}  bag(B)
5.  X  :  EClass(A)
6.  es  :  EO+(Info)
7.  e  :  E
8.  \mforall{}i:Id.  \mforall{}a:A.    (\#(f  i  a)  \mleq{}  1)@i
9.  \mforall{}e:E.  (\#(X  es  e)  \mleq{}  1)@i'
10.  \#(X  es  e)  \mleq{}  1@i
11.  \#(X  es  e)  =  1
\mvdash{}  (\#(bag-union(\mcup{}x\mmember{}\{X(e)\}.\{f  loc(e)  x\}))  =\msubz{}  1)  =  \mneg{}\msubb{}bag-null(f  loc(e)  X(e))


By

---

Latex:
((Assert  \muparrow{}e  \mmember{}\msubb{}  X  BY
                (Unfold  `in-eclass`  0  THEN  Auto))
  THEN  (RWO  "bag-combine-single-left"  0  THENA  Auto)
  )

---

Home Index