Some definitions of interest.
rat	Def  ==
	Thm*   Type
nat_plus	Def  == {i:| 0<i }
	Thm*   Type
qadd	Def a +q b == (a.numb.den+b.numa.den)/(a.denb.den)
	Thm* p,q:. p +q q
qdenom	Def q.den == 2of(q)
	Thm* q:. q.den
qnumer	Def q.num == 1of(q)
	Thm* q:. q.num

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