{ 
[k:Knd]. [f,g:Top].
kindcase(k;a.f[a];l,t.g[l;t]) ~ g[lnk(k);tag(k)] supposing 
islocal(k) }
{ Proof }
Definitions occuring in Statement :
kindcase: kindcase(k;a.f[a];l,t.g[l; t]),
tagof: tag(k),
lnk: lnk(k),
islocal: islocal(k),
Knd: Knd,
assert: b,
uimplies: b supposing a,
uall: [x:A]. B[x],
top: Top,
so_apply: x[s1;s2],
so_apply: x[s],
not: A,
sqequal: s ~ t
Definitions :
uall: [x:A]. B[x],
uimplies: b supposing a,
assert: b,
islocal: islocal(k),
kindcase: kindcase(k;a.f[a];l,t.g[l; t]),
lnk: lnk(k),
tagof: tag(k),
member: t 
T,
bnot: 
b,
isl: isl(x),
ifthenelse: if b then t else f fi ,
actof: act(k),
pi1: fst(t),
outl: outl(x),
pi2: snd(t),
btrue: tt,
bfalse: ff,
true: True,
outr: outr(x),
Knd: Knd,
not: A,
false: False,
implies: P 
Q,
prop: 
,
locl: locl(a)
Lemmas :
not_wf,
false_wf,
top_wf,
true_wf,
assert_wf,
islocal_wf,
Knd_wf
\mforall{}[k:Knd]. \mforall{}[f,g:Top]. kindcase(k;a.f[a];l,t.g[l;t]) \msim{} g[lnk(k);tag(k)] supposing \mneg{}\muparrow{}islocal(k)
Date html generated:
2011_08_10-AM-07_46_14
Last ObjectModification:
2011_06_18-AM-08_12_05
Home
Index