---

Step * of Lemma reduce-fast-mapfilter2

∀[L,z,k,c,d,f,p:Top].
  (reduce(λx,a. if c[x;a]=d[x;a] then z else a;k;fast-mapfilter(p;f;L)) ~ reduce(λx,a. if p x
                                                                                  then if c[f x;a]=d[f x;a]
                                                                                       then z
                                                                                       else a
                                                                                  else a
                                                                                  fi ;k;L))
BY
{ (RepUR ``fast-mapfilter so_apply`` 0
   THEN ListIndSq `L'
   THEN (RWO  "reduce-ifthenelse" 0 THENA Auto)
   THEN Reduce 0
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[L,z,k,c,d,f,p:Top].
    (reduce(\mlambda{}x,a.  if  c[x;a]=d[x;a]  then  z  else  a;k;fast-mapfilter(p;f;L)) 
    \msim{}  reduce(\mlambda{}x,a.  if  p  x  then  if  c[f  x;a]=d[f  x;a]  then  z  else  a  else  a  fi  ;k;L))


By

---

Latex:
(RepUR  ``fast-mapfilter  so\_apply``  0
  THEN  ListIndSq  `L'
  THEN  (RWO    "reduce-ifthenelse"  0  THENA  Auto)
  THEN  Reduce  0
  THEN  Auto)

---

Home Index