Step
*
of Lemma
update-alist_wf
∀[A,T:Type]. ∀[eq:EqDecider(T)]. ∀[x:T]. ∀[L:(T × A) List]. ∀[z:A]. ∀[f:A ⟶ A].
  (update-alist(eq;L;x;z;v.f[v]) ∈ (T × A) List)
BY
{ (Auto THEN Unfold `update-alist` 0 THEN (ListInd (-3) THEN Reduce 0) THEN Try (D -3) THEN Reduce 0 THEN Auto) }
Latex:
Latex:
\mforall{}[A,T:Type].  \mforall{}[eq:EqDecider(T)].  \mforall{}[x:T].  \mforall{}[L:(T  \mtimes{}  A)  List].  \mforall{}[z:A].  \mforall{}[f:A  {}\mrightarrow{}  A].
    (update-alist(eq;L;x;z;v.f[v])  \mmember{}  (T  \mtimes{}  A)  List)
By
Latex:
(Auto
  THEN  Unfold  `update-alist`  0
  THEN  (ListInd  (-3)  THEN  Reduce  0)
  THEN  Try  (D  -3)
  THEN  Reduce  0
  THEN  Auto)
Home
Index