Nuprl Lemma : kindcase-rcv
∀[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
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:
2015_07_17-AM-09_11_56
Last ObjectModification:
2015_01_28-AM-07_56_51
Home
Index