| Some definitions of interest. |
|
qadd | Def a +q b == (a.numb.den+b.numa.den)/(a.denb.den) |
| | Thm* p,q:. p +q q |
|
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 |
|
qnumer | Def q.num == 1of(q) |
| | Thm* q:. q.num |
|
rat | Def == |
| | Thm* Type |