Nuprl Lemma : lifting-callbyvalue-decide

∀[a,F,G,H:Top].
  (eval x = case a of inl(u) => F[u] | inr(v) => G[v] in
   H[x] ~ case a of inl(u) => eval x = F[u] in H[x] | inr(v) => eval x = G[v] in H[x])


Proof




Definitions occuring in Statement :  callbyvalue: callbyvalue,  uall: ∀[x:A]. B[x],  top: Top,  so_apply: x[s],  decide: case b of inl(x) => s[x] | inr(y) => t[y],  sqequal: s ~ t
Definitions unfolded in proof :  uall: ∀[x:A]. B[x],  member: t ∈ T,  so_lambda: so_lambda(x,y,z,w.t[x; y; z; w]),  so_apply: x[s1;s2;s3;s4],  so_lambda: λ2x.t[x],  top: Top,  so_apply: x[s],  uimplies: b supposing a,  strict4: strict4(F),  and: P ∧ Q,  all: ∀x:A. B[x],  implies: P ⇒ Q,  has-value: (a)↓,  prop: ℙ,  guard: {T},  or: P ∨ Q,  squash: ↓T
Lemmas referenced :  top_wf,  is-exception_wf,  base_wf,  has-value_wf_base,  lifting-strict-decide
Rules used in proof :  sqequalSubstitution,  sqequalTransitivity,  computationStep,  sqequalReflexivity,  isect_memberFormation,  introduction,  cut,  sqequalRule,  lemma_by_obid,  sqequalHypSubstitution,  isectElimination,  thin,  baseClosed,  isect_memberEquality,  voidElimination,  voidEquality,  independent_isectElimination,  independent_pairFormation,  lambdaFormation,  callbyvalueCallbyvalue,  hypothesis,  callbyvalueReduce,  baseApply,  closedConclusion,  hypothesisEquality,  callbyvalueExceptionCases,  inrFormation,  imageMemberEquality,  imageElimination,  exceptionSqequal,  inlFormation,  sqequalAxiom,  because_Cache

Latex:
\mforall{}[a,F,G,H:Top].
    (eval  x  =  case  a  of  inl(u)  =>  F[u]  |  inr(v)  =>  G[v]  in
      H[x]  \msim{}  case  a  of  inl(u)  =>  eval  x  =  F[u]  in  H[x]  |  inr(v)  =>  eval  x  =  G[v]  in  H[x])



Date html generated: 2016_05_13-PM-03_42_22
Last ObjectModification: 2016_01_14-PM-07_08_47

Theory : computation


Home Index