{ 
[B:Type]. [k:Knd]. [f:Id 
B]. [g:IdLnk Id B].
(kindcase(k;a.f[a];l,t.g[l;t]) 
B) }
{ Proof }
Definitions occuring in Statement :
kindcase: kindcase(k;a.f[a];l,t.g[l; t]),
Knd: Knd,
IdLnk: IdLnk,
Id: Id,
uall: [x:A]. B[x],
so_apply: x[s1;s2],
so_apply: x[s],
member: t T,
function: x:A B[x],
universe: Type
Definitions :
uall: [x:A]. B[x],
member: t T,
kindcase: kindcase(k;a.f[a];l,t.g[l; t]),
so_apply: x[s],
so_apply: x[s1;s2],
ifthenelse: if b then t else f fi ,
islocal: islocal(k),
actof: act(k),
lnk: lnk(k),
tagof: tag(k),
bnot: 
b,
isl: isl(x),
outr: outr(x),
pi1: fst(t),
outl: outl(x),
pi2: snd(t),
btrue: tt,
bfalse: ff,
Knd: Knd
Lemmas :
IdLnk_wf,
Id_wf,
Knd_wf
\mforall{}[B:Type]. \mforall{}[k:Knd]. \mforall{}[f:Id {}\mrightarrow{} B]. \mforall{}[g:IdLnk {}\mrightarrow{} Id {}\mrightarrow{} B]. (kindcase(k;a.f[a];l,t.g[l;t]) \mmember{} B)
Date html generated:
2011_08_10-AM-07_46_07
Last ObjectModification:
2011_06_18-AM-08_12_02
Home
Index