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