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