---

Step * of Lemma lifting-callbyvalueall-inr

∀[a,B:Top].  (let x ⟵ inr a  in B[x] ~ let x ⟵ a in B[inr x ])
BY
{ ((UnivCD THENA Auto)
   THEN Unfold `callbyvalueall` 0
   THEN RW (AddrC [1;1] RecUnfoldTopAbC) 0
   THEN Reduce 0
   THEN (GenConcl ⌜evalall(a) = b ∈ Top⌝⋅ THENA Auto)
   THEN SqReasoning) }

---

Latex:

---

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


By

---

Latex:
((UnivCD  THENA  Auto)
  THEN  Unfold  `callbyvalueall`  0
  THEN  RW  (AddrC  [1;1]  RecUnfoldTopAbC)  0
  THEN  Reduce  0
  THEN  (GenConcl  \mkleeneopen{}evalall(a)  =  b\mkleeneclose{}\mcdot{}  THENA  Auto)
  THEN  SqReasoning)

---

Home Index