Who Cites segment?
segment	Def as[m..n] == firstn(n-m;nth_tl(m;as))
	Thm* T:Type, as:T List, m,n:. (as[m..n])  T List
nth_tl	Def nth_tl(n;as) == if n0 as else nth_tl(n-1;tl(as)) fi  (recursive)
	Thm* A:Type, as:A List, i:. nth_tl(i;as)  A List
firstn	Def firstn(n;as) Def == Case of as; nil  nil ; a.as'  if 0<n a.firstn(n-1;as') else nil fi Def (recursive)
	Thm* A:Type, as:A List, n:. firstn(n;as)  A List
tl	Def tl(l) == Case of l; nil  nil ; h.t  t
	Thm* A:Type, l:A List. tl(l)  A List
le_int	Def ij == j<i
	Thm* i,j:. (ij)
lt_int	Def i<j == if i<j true ; false fi
	Thm* i,j:. (i<j)
bnot	Def b == if b false else true fi
	Thm* b:. b

Syntax:

as[m..n]

has structure:

segment(as; m; n)

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