Who Cites w-first?
w-first	Def first(e) Def == if time(e)=0 true Def == i; isnull(a(loc(e);time(e)-1)) first(<loc(e),time(e)-1>) Def == else false 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)
eq_int	Def i=j == if i=j true ; false fi
	Thm* i,j:. (i=j)
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:

first(e)

has structure:

w-first(w; e)

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