Module Printable.Std

val name : unit -> string
type group = |
val show_group : group -> 'a
val to_group : 'a -> 'b option
val trace_enabled : bool
val tag : 'a -> 'b
val arbitrary : unit -> 'a
val relift : 'a -> 'a