{ 
[P:Pi_term]. P = picomm-pre(P).picomm-body(P) supposing 
picomm?(P) }
{ Proof }
Definitions occuring in Statement :
picomm-body: picomm-body(x),
picomm-pre: picomm-pre(x),
picomm?: picomm?(x),
picomm: pre.body,
pi_term: Pi_term,
assert: b,
uimplies: b supposing a,
uall: [x:A]. B[x],
equal: s = t
Definitions :
uall: [x:A]. B[x],
pi_term: Pi_term,
uimplies: b supposing a,
picomm?: picomm?(x),
picomm: pre.body,
picomm-pre: picomm-pre(x),
picomm-body: picomm-body(x),
member: t 
T,
squash: 
T,
true: True,
unit: Unit,
false: False,
implies: P 
Q,
prop: 
,
it: 
,
pizero: 0,
not: 
A,
pioption: (left + right),
pipar: (left | right),
pirep: !body,
pinew: (new name. body)
Lemmas :
pi_term_wf,
btrue_neq_bfalse,
assert_wf,
picomm?_wf,
pizero_wf,
picomm_wf,
pioption_wf,
pipar_wf,
pirep_wf,
pinew_wf,
assert_elim,
bfalse_wf,
squash_wf,
true_wf,
pi_prefix_wf
\mforall{}[P:Pi\_term]. P = picomm-pre(P).picomm-body(P) supposing \muparrow{}picomm?(P)
Date html generated:
2011_08_17-PM-06_45_31
Last ObjectModification:
2011_06_18-PM-12_15_52
Home
Index