Who Cites es-valtype?
es-valtype	Def valtype(e) == if isrcv(e) rcvtype(e) else acttype(e) fi
es-acttype	Def acttype(e) == 1of(2of(2of(2of(es))))(loc(e),act(e))
es-rcvtype	Def rcvtype(e) == 1of(2of(2of(2of(2of(es)))))(lnk(e),tag(e))
es-isrcv	Def isrcv(e) == isrcv(kind(e))
es-act	Def act(e) == act(kind(e))
es-loc	Def loc(e) == 1of(2of(2of(2of(2of(2of(2of(es)))))))(e)
es-tag	Def tag(e) == tag(kind(e))
es-lnk	Def lnk(e) == lnk(kind(e))
es-kind	Def kind(e) == 1of(2of(2of(2of(2of(2of(2of(2of(es))))))))(e)
tagof	Def tag(k) == 2of(outl(k))
	Thm* k:Knd. isrcv(k)  tag(k)  Id
pi2	Def 2of(t) == t.2
	Thm* A:Type, B:(AType), p:(a:AB(a)). 2of(p)  B(1of(p))
lnk	Def lnk(k) == 1of(outl(k))
	Thm* k:Knd. isrcv(k)  lnk(k)  IdLnk
pi1	Def 1of(t) == t.1
	Thm* A:Type, B:(AType), p:(a:AB(a)). 1of(p)  A
isrcv	Def isrcv(k) == isl(k)
	Thm* k:Knd. isrcv(k)
actof	Def act(k) == outr(k)
	Thm* k:Knd. islocal(k)  act(k)  Id
isl	Def isl(x) == InjCase(x; y. true; z. false)
	Thm* A,B:Type, x:A+B. isl(x)
outr	Def outr(x) == InjCase(x; y. "???"; z. z)
	Thm* A,B:Type, x:A+B. isl(x)  outr(x)  B
outl	Def outl(x) == InjCase(x; y. y; z. "???")
	Thm* A,B:Type, x:A+B. isl(x)  outl(x)  A

Syntax:

valtype(e)

has structure:

es-valtype(es; e)

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