Some definitions of interest.
qmul	Def a *q b == (a.numb.num)/(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