Who Cites w-pred?
w-pred	Def pred(e) Def == if isnull(a(loc(e);time(e)-1)) pred(<loc(e),time(e)-1>) Def == else <loc(e),time(e)-1> fi Def (recursive)
w-time	Def time(e) == 2of(e)
w-loc	Def loc(e) == 1of(e)
w-a	Def a(i;t) == 1of(2of(2of(2of(2of(w)))))(i,t)
w-isnull	Def isnull(a) == isl(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
isl	Def isl(x) == InjCase(x; y. true; z. false)
	Thm* A,B:Type, x:A+B. isl(x)

Syntax:

pred(e)

has structure:

w-pred(w; e)

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