---

Step * of Lemma find-combine-cons

∀[cmp,x,l:Top].
  (find-combine(cmp;[x / l]) ~ eval tst = cmp x in
                               if (tst =z 0) then inl x
                               if 0 <z tst then inr ⋅ 
                               else find-combine(cmp;l)
                               fi )
BY
{ (Auto THEN RW (AddrC [1] UnfoldTopAbC) 0 THEN Reduce 0 THEN Fold `find-combine` 0 THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[cmp,x,l:Top].
    (find-combine(cmp;[x  /  l])  \msim{}  eval  tst  =  cmp  x  in
                                                              if  (tst  =\msubz{}  0)  then  inl  x
                                                              if  0  <z  tst  then  inr  \mcdot{} 
                                                              else  find-combine(cmp;l)
                                                              fi  )


By

---

Latex:
(Auto  THEN  RW  (AddrC  [1]  UnfoldTopAbC)  0  THEN  Reduce  0  THEN  Fold  `find-combine`  0  THEN  Auto)

---

Home Index