{ [M:Type  Type]. [n:].
    lvprocess(lp.M[lp];n)  input(lp.M[lp];n)
     (lvprocess(lp.M[lp];n)  ((Id  process-input'(lp.M[lp];n)) List)) }

{ Proof }



Definitions occuring in Statement :  process-input': process-input'(lp.M[lp];n),  process-input: input(lp.M[lp];n),  lvprocess: lvprocess(lp.M[lp];n),  Id: Id,  ext-eq: A  B,  nat: ,  uall: [x:A]. B[x],  so_apply: x[s],  function: x:A  B[x],  product: x:A  B[x],  list: type List,  universe: Type
Definitions :  uall: [x:A]. B[x],  nat: ,  ext-eq: A  B,  lvprocess: lvprocess(lp.M[lp];n),  so_apply: x[s],  process-input: input(lp.M[lp];n),  process-input': process-input'(lp.M[lp];n),  member: t  T,  so_lambda: x.t[x],  squash: T,  true: True,  ycomb: Y,  and: P  Q,  prop: ,  int_seg: {i..j},  lelt: i  j < k
Lemmas :  dataflow-ext-eq,  process-input_wf,  Id_wf,  process-input'_wf,  ext-eq_wf,  squash_wf,  true_wf,  dataflow_wf,  nat_wf,  ifthenelse_wf,  le_int_wf,  top_wf,  lvprocess_wf,  int_seg_wf,  le_wf

\mforall{}[M:Type  {}\mrightarrow{}  Type].  \mforall{}[n:\mBbbN{}].
    lvprocess(lp.M[lp];n)  \mequiv{}  input(lp.M[lp];n)
    {}\mrightarrow{}  (lvprocess(lp.M[lp];n)  \mtimes{}  ((Id  \mtimes{}  process-input'(lp.M[lp];n))  List))


Date html generated: 2011_08_17-PM-06_37_20
Last ObjectModification: 2011_06_18-PM-12_01_07

Home Index