{ 
[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