include module type of struct include Q end
type t = Q.t = {num : Z.t;den : Z.t;
}val make : Z.t -> Z.t -> tval of_int32 : int32 -> tval of_int64 : int64 -> tval of_nativeint : nativeint -> tval of_ints : int -> int -> tval of_float : float -> tval of_string : string -> ttype kind = Q.kind = | ZERO| INF| MINF| UNDEF| NZERO
val equal : t -> t -> boolval to_int32 : t -> int32val to_int64 : t -> int64val to_nativeint : t -> nativeintval to_string : t -> stringval to_float : t -> floatval mul_2exp : t -> int -> tval div_2exp : t -> int -> tval output : Stdlib.out_channel -> t -> unitval sprint : unit -> t -> stringval bprint : Stdlib.Buffer.t -> t -> unitval pp_print : Stdlib.Format.formatter -> t -> unitval (lsl) : t -> int -> tval (asr) : t -> int -> tval (//) : int -> int -> tval (///) : Z.t -> Z.t -> tval (<=) : t -> t -> boolval (>=) : t -> t -> boolval (<>) : t -> t -> boolval compare : t -> t -> intval t_of_sexp : NS__.NS0.Sexp.t -> tval sexp_of_t : t -> NS__.NS0.Sexp.tval pp : Stdlib.Format.formatter -> t -> unit