module type Rat = sig endtype q
val eq : q -> q -> bool
val (+) : Euclid.Rat.q -> Euclid.Rat.q -> Euclid.Rat.q| Parameters: |
|
val zero : qval inv : q -> q| Parameters: |
|
val (*) : Euclid.Rat.q -> Euclid.Rat.q -> Euclid.Rat.q| Parameters: |
|
val one : qval (/) : Euclid.Rat.q -> Euclid.Rat.q -> Euclid.Rat.q| Parameters: |
|
val floor : q -> q| Parameters: |
|
val is_int : q -> bool| Parameters: |
|