---

Step * of Lemma callbyvalueall-single

∀[F,a:Top].  (let x ⟵ [a] in F[x] ~ let x ⟵ a in F[[a]])
BY
{ ((UnivCD THENA Auto)
   THEN Unfold `callbyvalueall` 0
   THEN RW (AddrC [1;1] (RecUnfoldTopAbC)) 0
   THEN Reduce 0
   THEN Fold `cons` 0
   THEN SqEqualTopToBase
   THEN (GenConcl ⌜evalall(a) = z ∈ Base⌝⋅ THENA Auto)
   THEN LiftAll 0
   THEN SqReasoning
   THEN (RWO "evalall-sqequal" 4⋅ THENM HypSubst' 4 0)
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[F,a:Top].    (let  x  \mleftarrow{}{}  [a]  in  F[x]  \msim{}  let  x  \mleftarrow{}{}  a  in  F[[a]])


By

---

Latex:
((UnivCD  THENA  Auto)
  THEN  Unfold  `callbyvalueall`  0
  THEN  RW  (AddrC  [1;1]  (RecUnfoldTopAbC))  0
  THEN  Reduce  0
  THEN  Fold  `cons`  0
  THEN  SqEqualTopToBase
  THEN  (GenConcl  \mkleeneopen{}evalall(a)  =  z\mkleeneclose{}\mcdot{}  THENA  Auto)
  THEN  LiftAll  0
  THEN  SqReasoning
  THEN  (RWO  "evalall-sqequal"  4\mcdot{}  THENM  HypSubst'  4  0)
  THEN  Auto)

---

Home Index