sig   type pending =       Property.Set.t Emitter.Usable_emitter.Map.t       Emitter.Usable_emitter.Map.t   type consolidated_status = private       Never_tried     | Considered_valid     | Valid of Emitter.Usable_emitter.Set.t     | Valid_under_hyp of Property_status.Consolidation.pending     | Unknown of Property_status.Consolidation.pending     | Invalid of Emitter.Usable_emitter.Set.t     | Invalid_under_hyp of Property_status.Consolidation.pending     | Invalid_but_dead of Property_status.Consolidation.pending     | Valid_but_dead of Property_status.Consolidation.pending     | Unknown_but_dead of Property_status.Consolidation.pending     | Inconsistent of string   type t = consolidated_status   val ty : t Type.t   val name : string   val descr : t Descr.t   val packed_descr : Structural_descr.pack   val reprs : t list   val equal : t -> t -> bool   val compare : t -> t -> int   val hash : t -> int   val pretty_code : Format.formatter -> t -> unit   val internal_pretty_code : Type.precedence -> Format.formatter -> t -> unit   val pretty : Format.formatter -> t -> unit   val varname : t -> string   val mem_project : (Project_skeleton.t -> bool) -> t -> bool   val copy : t -> t   val get : Property.t -> t   val get_conjunction : Property.t list -> t end