---

Step * of Lemma Accum-classrel-Memory

∀[Info,B,A:Type]. ∀[f:A ─→ B ─→ B]. ∀[init:Id ─→ bag(B)]. ∀[X:EClass(A)]. ∀[es:EO+(Info)]. ∀[e:E]. ∀[v:B].
  (v ∈ Accum-class(f;init;X)(e) ⇐⇒ ↓∃a:A. ∃b:B. (a ∈ X(e) ∧ b ∈ Memory-class(f;init;X)(e) ∧ (v = (f a b) ∈ B)))
BY
{ ((UnivCD THENA (Auto THEN Try ((Fold `eclass` 0 THEN Auto))))
   THEN Try ((Unfold `label` 0 THEN Auto))
   THEN (RWO "Accum-classrel-Memory-sq" 0 THENA Auto)
   THEN (RWO "bag-member-lifting-2" 0 THENA (Auto THEN Fold `eclass` 0 THEN Auto))
   THEN Fold `classrel` 0
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[Info,B,A:Type].  \mforall{}[f:A  {}\mrightarrow{}  B  {}\mrightarrow{}  B].  \mforall{}[init:Id  {}\mrightarrow{}  bag(B)].  \mforall{}[X:EClass(A)].  \mforall{}[es:EO+(Info)].  \mforall{}[e:E].
\mforall{}[v:B].
    (v  \mmember{}  Accum-class(f;init;X)(e)
    \mLeftarrow{}{}\mRightarrow{}  \mdownarrow{}\mexists{}a:A.  \mexists{}b:B.  (a  \mmember{}  X(e)  \mwedge{}  b  \mmember{}  Memory-class(f;init;X)(e)  \mwedge{}  (v  =  (f  a  b))))


By

---

Latex:
((UnivCD  THENA  (Auto  THEN  Try  ((Fold  `eclass`  0  THEN  Auto))))
  THEN  Try  ((Unfold  `label`  0  THEN  Auto))
  THEN  (RWO  "Accum-classrel-Memory-sq"  0  THENA  Auto)
  THEN  (RWO  "bag-member-lifting-2"  0  THENA  (Auto  THEN  Fold  `eclass`  0  THEN  Auto))
  THEN  Fold  `classrel`  0
  THEN  Auto)

---

Home Index