q__Q.ml
colibrilib
1 2 3 4 let floor (a: Q.t) : Z.t = (Z.fdiv (a.Q.num) (a.Q.den)) let ceil (a: Q.t) : Z.t = (Z.cdiv (a.Q.num) (a.Q.den))
1 2 3 4
let floor (a: Q.t) : Z.t = (Z.fdiv (a.Q.num) (a.Q.den)) let ceil (a: Q.t) : Z.t = (Z.cdiv (a.Q.num) (a.Q.den))