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