---

Step * of Lemma insert-combine-cons

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

---

Latex:

---

Latex:
\mforall{}cmp,f,x,a,as:Top.
    (insert-combine(cmp;f;x;[a  /  as])  \msim{}  eval  tst  =  cmp  x  a  in
                                                                            if  (tst  =\msubz{}  0)  then  [f  x  a  /  as]
                                                                            if  0  <z  tst  then  [x;  [a  /  as]]
                                                                            else  [a  /  insert-combine(cmp;f;x;as)]
                                                                            fi  )


By

---

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

---

Home Index