---

Step * of Lemma evalall-pair

∀[x,y:Top].  (evalall(<x, y>) ~ eval x' = evalall(x) in eval y' = evalall(y) in   <x', y'>)
BY
{ (Auto
   THEN RW (AddrC [1] (RecUnfoldC `evalall`)) 0
   THEN RW (AddrC [1] (TagC (mk_tag_term 3))) 0
   THEN Reduce 0
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[x,y:Top].    (evalall(<x,  y>)  \msim{}  eval  x'  =  evalall(x)  in  eval  y'  =  evalall(y)  in      <x',  y'>)


By

---

Latex:
(Auto
  THEN  RW  (AddrC  [1]  (RecUnfoldC  `evalall`))  0
  THEN  RW  (AddrC  [1]  (TagC  (mk\_tag\_term  3)))  0
  THEN  Reduce  0
  THEN  Auto)

---

Home Index