Some definitions of interest.
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
rat	Def  ==
	Thm*   Type

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