---

Step * of Lemma lifting-strict-callbyvalueall

∀[F:Base]. ∀[p,q,r:Top].
  ∀[a,B:Top].  (F[let x ⟵ a in B[x];p;q;r] ~ let x ⟵ a in F[B[x];p;q;r]) supposing strict4(λx,y,z,w. F[x;y;z;w])
BY
{ (Auto
   THEN Unfold `callbyvalueall` 0
   THEN (InstLemma `lifting-strict-callbyvalue` [⌜F⌝]⋅ THENA Auto)
   THEN BHyp (-1)
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[F:Base].  \mforall{}[p,q,r:Top].
    \mforall{}[a,B:Top].    (F[let  x  \mleftarrow{}{}  a  in  B[x];p;q;r]  \msim{}  let  x  \mleftarrow{}{}  a  in  F[B[x];p;q;r]) 
    supposing  strict4(\mlambda{}x,y,z,w.  F[x;y;z;w])


By

---

Latex:
(Auto
  THEN  Unfold  `callbyvalueall`  0
  THEN  (InstLemma  `lifting-strict-callbyvalue`  [\mkleeneopen{}F\mkleeneclose{}]\mcdot{}  THENA  Auto)
  THEN  BHyp  (-1)
  THEN  Auto)

---

Home Index