{ 
[x:Pi_term]. picomm-body(x) 
Pi_term supposing 
picomm?(x) }
{ Proof }
Definitions occuring in Statement :
picomm-body: picomm-body(x),
picomm?: picomm?(x),
pi_term: Pi_term,
assert: b,
uimplies: b supposing a,
uall: [x:A]. B[x],
member: t T
Definitions :
uall: [x:A]. B[x],
pi_term: Pi_term,
uimplies: b supposing a,
assert: b,
picomm?: picomm?(x),
member: t T,
picomm-body: picomm-body(x),
implies: P 
Q,
bfalse: ff,
btrue: tt,
ifthenelse: if b then t else f fi ,
unit: Unit,
false: False,
it: 
,
pizero: 0,
prop: 
,
picomm: pre.body,
pioption: (left + right),
pipar: (left | right),
pirep: !body,
pinew: (new name. body)
Lemmas :
pi_term_wf,
false_wf,
true_wf,
assert_wf,
picomm?_wf
\mforall{}[x:Pi\_term]. picomm-body(x) \mmember{} Pi\_term supposing \muparrow{}picomm?(x)
Date html generated:
2011_08_17-PM-06_43_20
Last ObjectModification:
2011_06_18-PM-12_11_24
Home
Index