Step
*
of Lemma
Accum-class-top
∀[Info,A:Type]. ∀[es:EO+(Info)]. ∀[f:Top]. ∀[X:EClass(A)]. ∀[init:Id ─→ bag(Top)].
  (Accum-class(f;init;X) ∈ EClass(Top))
BY
{ ((UnivCD THENA Auto)
   THEN RepUR ``Accum-class rec-combined-class-opt-1`` 0
   THEN (Using [`A',⌈λx.A⌉;`n',⌈1⌉] (BLemma `rec-comb_wf`)⋅ THENA (Auto THEN Reduce 0 THEN 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)].
    (Accum-class(f;init;X)  \mmember{}  EClass(Top))
By
Latex:
((UnivCD  THENA  Auto)
  THEN  RepUR  ``Accum-class  rec-combined-class-opt-1``  0
  THEN  (Using  [`A',\mkleeneopen{}\mlambda{}x.A\mkleeneclose{};`n',\mkleeneopen{}1\mkleeneclose{}]  (BLemma  `rec-comb\_wf`)\mcdot{}  THENA  (Auto  THEN  Reduce  0  THEN  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