Step
*
of Lemma
filter-normal-form
∀[P,L:Top].  (rec-case(L) of [] => [] | a::_ => r.if P[a] then [a / r] else r fi  ~ filter(λa.P[a];L))
BY
{ ((UnivCD THENA Auto) THEN SymbolicCompute [] [] [] 0 THEN Auto) }
Latex:
\mforall{}[P,L:Top].
    (rec-case(L)  of
      []  =>  []
      a::$_{}$  =>
        r.if  P[a]  then  [a  /  r]  else  r  fi    \msim{}  filter(\mlambda{}a.P[a];L))
By
((UnivCD  THENA  Auto)  THEN  SymbolicCompute  []  []  []  0  THEN  Auto)
Home
Index