Def hd == l:'a List. if null(l) then arb('a) else head(l) fi 

is mentioned by

Thm* 'a:S, l:'a List. mt(l)  hd(l) = head(l)	[hhd_nuprl]
Def el == n:. l:'a List. if n=0 then hd(l) else el(n-1,tl(l)) fi  Def (recursive)	[hel]

Try larger context: HOLlib IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html