Nuprl Lemma : hdf-sqequal2

  (fix((λmk-hdf,s0. case s0 of inl(y) => inl a.let X',bs in let out ⟵ G[bs] in <mk-hdf X', out>inr(z) => H[\000Cz])) 
   fix((λmk-hdf.(inl m.<mk-hdf, F[m]>)))) fix((λmk-hdf.(inl a.let out ⟵ G[F[a]]
                                                                    in <mk-hdf, out>)))))


Definitions occuring in Statement :  callbyvalueall: callbyvalueall uall: [x:A]. B[x] top: Top so_apply: x[s] apply: a fix: fix(F) lambda: λx.A[x] spread: spread def pair: <a, b> decide: case of inl(x) => s[x] inr(y) => t[y] inl: inl x sqequal: t
Definitions unfolded in proof :  uall: [x:A]. B[x] member: t ∈ T so_apply: x[s] all: x:A. B[x] guard: {T} int_seg: {i..j-} lelt: i ≤ j < k and: P ∧ Q uimplies: supposing a satisfiable_int_formula: satisfiable_int_formula(fmla) exists: x:A. B[x] false: False implies:  Q not: ¬A top: Top prop: decidable: Dec(P) or: P ∨ Q subtype_rel: A ⊆B le: A ≤ B less_than': less_than'(a;b) nat: callbyvalueall: callbyvalueall ge: i ≥  sq_type: SQType(T) so_lambda: λ2x.t[x]

    (fix((\mlambda{}mk-hdf,s0.  case  s0
                                        of  inl(y)  =>
                                        inl  (\mlambda{}a.let  X',bs  =  y  a 
                                                        in  let  out  \mleftarrow{}{}  G[bs]
                                                              in  <mk-hdf  X',  out>)
                                        |  inr(z)  =>
      fix((\mlambda{}mk-hdf.(inl  (\mlambda{}m.<mk-hdf,  F[m]>))))  \msim{}  fix((\mlambda{}mk-hdf.(inl  (\mlambda{}a.let  out  \mleftarrow{}{}  G[F[a]]
                                                                                                                                        in  <mk-hdf,  out>)))))

Date html generated: 2016_05_16-AM-10_44_58
Last ObjectModification: 2016_01_17-AM-11_13_19

Theory : halting!dataflow

Home Index