sig type t = Neg | Zero | Pos val t_of_sexp : Sexplib.Sexp.t -> Float_intf.S.Sign.t val sexp_of_t : Float_intf.S.Sign.t -> Sexplib.Sexp.t end