Step
*
of Lemma
cbv_list_accum_wf
∀[T,T':Type]. ∀[l:T List]. ∀[y:T']. ∀[f:T' ⟶ T ⟶ T'].  cbv_list_accum(x,a.f[x;a];y;l) ∈ T' supposing value-type(T')
BY
{ (InductionOnList THEN RecUnfold `cbv_list_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'].
    cbv\_list\_accum(x,a.f[x;a];y;l)  \mmember{}  T'  supposing  value-type(T')
By
Latex:
(InductionOnList  THEN  RecUnfold  `cbv\_list\_accum`  0  THEN  Reduce  0  THEN  Auto)
Home
Index