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