{ 
[M:Type 
Type]. [n:
]. [T:Type]. [c:T process-input'(lp.M[lp];n)].
[d:process-input'(lp.M[lp];n) (T + Top)].
(input-code(lp.M[lp];n;T;c;d) 
) }
{ Proof }
Definitions occuring in Statement :
input-code: input-code(lp.M[lp];n;T;code;decode),
process-input': process-input'(lp.M[lp];n),
nat: ,
uall: [x:A]. B[x],
top: Top,
prop: ,
so_apply: x[s],
member: t T,
function: x:A B[x],
union: left + right,
universe: Type
Definitions :
uall: [x:A]. B[x],
so_apply: x[s],
member: t T,
prop: ,
input-code: input-code(lp.M[lp];n;T;code;decode),
and: P 
Q,
all: x:A. B[x],
implies: P 
Q,
so_lambda: 
x.t[x],
uimplies: b supposing a
Lemmas :
top_wf,
assert_wf,
isl_wf,
outl_wf,
process-input'_wf,
nat_wf
\mforall{}[M:Type {}\mrightarrow{} Type]. \mforall{}[n:\mBbbN{}]. \mforall{}[T:Type]. \mforall{}[c:T {}\mrightarrow{} process-input'(lp.M[lp];n)].
\mforall{}[d:process-input'(lp.M[lp];n) {}\mrightarrow{} (T + Top)].
(input-code(lp.M[lp];n;T;c;d) \mmember{} \mBbbP{})
Date html generated:
2011_08_17-PM-06_39_11
Last ObjectModification:
2011_06_18-PM-12_05_04
Home
Index