type t =
| Pos 
| Neg

val of_nperm : int -> t
(** Returns the phase obtained by a given number of permuations. *)


(** Formatters *)
val pp_phase : Format.formatter -> t -> unit