Who Cites kindcase?
kindcase	Def kindcase(k;a.f(a);l,t.g(l;t)) Def == if islocal(k) f(act(k)) else g(lnk(k);tag(k)) fi
	Thm* B:Type, k:Knd, f:(IdB), g:(IdLnkIdB). Thm* kindcase(k;a.f(a);l,t.g(l,t))  B
tagof	Def tag(k) == 2of(outl(k))
	Thm* k:Knd. isrcv(k)  tag(k)  Id
lnk	Def lnk(k) == 1of(outl(k))
	Thm* k:Knd. isrcv(k)  lnk(k)  IdLnk
actof	Def act(k) == outr(k)
	Thm* k:Knd. islocal(k)  act(k)  Id
islocal	Def islocal(k) == isl(k)
	Thm* k:Knd. islocal(k)
outl	Def outl(x) == InjCase(x; y. y; z. "???")
	Thm* A,B:Type, x:A+B. isl(x)  outl(x)  A
pi2	Def 2of(t) == t.2
	Thm* A:Type, B:(AType), p:(a:AB(a)). 2of(p)  B(1of(p))
pi1	Def 1of(t) == t.1
	Thm* A:Type, B:(AType), p:(a:AB(a)). 1of(p)  A
outr	Def outr(x) == InjCase(x; y. "???"; z. z)
	Thm* A,B:Type, x:A+B. isl(x)  outr(x)  B
isl	Def isl(x) == InjCase(x; y. true; z. false)
	Thm* A,B:Type, x:A+B. isl(x)
bnot	Def b == if b false else true fi
	Thm* b:. b

Syntax:

kindcase(k;a.f(a);l,t.g(l;t))

has structure:

kindcase(k; a.f(a); l,t.g(l;t))

About: IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html