---

Step * of Lemma State-class-top

∀[Info,A:Type]. ∀[es:EO+(Info)]. ∀[f:Top]. ∀[X:EClass(A)]. ∀[init:Id ⟶ bag(Top)].
  (State-class(init;f;X) ∈ EClass(Top))
BY
{ ((UnivCD THENA Auto)
   THEN RepUR ``State-class`` 0
   THEN BLemma `simple-comb-2_wf`
   THEN Try (Complete (Auto))
   THEN Try (Complete ((Using [`es',⌜es⌝] (BLemma `Memory-class-top`)⋅ THEN Auto)))
   THEN RepeatFor 3 ((MemCD THENA Auto))
   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) }

---

Latex:

---

Latex:
\mforall{}[Info,A:Type].  \mforall{}[es:EO+(Info)].  \mforall{}[f:Top].  \mforall{}[X:EClass(A)].  \mforall{}[init:Id  {}\mrightarrow{}  bag(Top)].
    (State-class(init;f;X)  \mmember{}  EClass(Top))


By

---

Latex:
((UnivCD  THENA  Auto)
  THEN  RepUR  ``State-class``  0
  THEN  BLemma  `simple-comb-2\_wf`
  THEN  Try  (Complete  (Auto))
  THEN  Try  (Complete  ((Using  [`es',\mkleeneopen{}es\mkleeneclose{}]  (BLemma  `Memory-class-top`)\mcdot{}  THEN  Auto)))
  THEN  RepeatFor  3  ((MemCD  THENA  Auto))
  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)

---

Home Index