---

Step * of Lemma Memory-class-es-sv

∀[Info,A:Type]. ∀[init:Id ─→ bag(Top)]. ∀[f:Top]. ∀[X:EClass(A)]. ∀[es:EO+(Info)].
  (es-sv-class(es;Memory-class(f;init;X))) supposing (es-sv-class(es;X) and (∀l:Id. (#(init l) ≤ 1)))
BY
{ (BasicUniformUnivCD Auto
   THEN (Assert Memory-class(f;init;X) ∈ EClass(Top) BY
               (RepUR ``Memory-class Accum-class`` 0
                THEN RepeatFor 2 ((MemCD THEN Try (Complete (Auto))))
                THEN (RepUR ``lifting-2 lifting2 lifting-gen-rev`` 0⋅
                      THEN RepeatFor 3 ((RecUnfold `lifting-gen-list-rev` 0⋅ THEN Reduce 0))
                      THEN Auto)⋅))
   THEN Unfold `es-sv-class` 0
   THEN (Unhide THENA Auto)
   THEN Fold `es-sv-class` 0) }

1
1. Info : Type
2. A : Type
3. init : Id ─→ bag(Top)
4. f : Top
5. X : EClass(A)
6. es : EO+(Info)
7. ∀l:Id. (#(init l) ≤ 1)
8. es-sv-class(es;X)
9. Memory-class(f;init;X) ∈ EClass(Top)
⊢ es-sv-class(es;Memory-class(f;init;X))

---

Latex:

---

Latex:
\mforall{}[Info,A:Type].  \mforall{}[init:Id  {}\mrightarrow{}  bag(Top)].  \mforall{}[f:Top].  \mforall{}[X:EClass(A)].  \mforall{}[es:EO+(Info)].
    (es-sv-class(es;Memory-class(f;init;X)))  supposing 
          (es-sv-class(es;X)  and 
          (\mforall{}l:Id.  (\#(init  l)  \mleq{}  1)))


By

---

Latex:
(BasicUniformUnivCD  Auto
  THEN  (Assert  Memory-class(f;init;X)  \mmember{}  EClass(Top)  BY
                          (RepUR  ``Memory-class  Accum-class``  0
                            THEN  RepeatFor  2  ((MemCD  THEN  Try  (Complete  (Auto))))
                            THEN  (RepUR  ``lifting-2  lifting2  lifting-gen-rev``  0\mcdot{}
                                        THEN  RepeatFor  3  ((RecUnfold  `lifting-gen-list-rev`  0\mcdot{}  THEN  Reduce  0))
                                        THEN  Auto)\mcdot{}))
  THEN  Unfold  `es-sv-class`  0
  THEN  (Unhide  THENA  Auto)
  THEN  Fold  `es-sv-class`  0)

---

Home Index