type t =
| Pos 
| Neg

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

val add_nperm : t -> int -> t
(** Add to an existing phase a given number of permutations. *)


(** {1 Printers} *)

val pp_phase : Format.formatter -> t -> unit