Step
*
of Lemma
eager-accum_wf
∀[T,T':Type]. ∀[l:T List]. ∀[y:T']. ∀[f:T' ⟶ T ⟶ T'].  eager-accum(x,a.f[x;a];y;l) ∈ T' supposing valueall-type(T')
BY
{ (InductionOnList THEN Auto THEN RecUnfold `eager-accum` 0 THEN Reduce 0 THEN Auto) }
Latex:
Latex:
\mforall{}[T,T':Type].  \mforall{}[l:T  List].  \mforall{}[y:T'].  \mforall{}[f:T'  {}\mrightarrow{}  T  {}\mrightarrow{}  T'].
    eager-accum(x,a.f[x;a];y;l)  \mmember{}  T'  supposing  valueall-type(T')
By
Latex:
(InductionOnList  THEN  Auto  THEN  RecUnfold  `eager-accum`  0  THEN  Reduce  0  THEN  Auto)
Home
Index