G (p.goblint.2.4.0.doc.goblint.lib.Goblint_lib.Control.AnalyzeCFG.CompareGlobSys.Sys.G)

module CSet : sig ... end

type t = [

| `Bot
| `Lifted1 of SpecSys.Spec.G.t
| `Lifted2 of CSet.t
| `Top

]

val equal : t -> t -> Ppx_deriving_runtime.bool

val compare : t -> t -> Ppx_deriving_runtime.int

val hash : t -> int

val tag : 'a -> 'b

val arbitrary : unit -> 'a

val pretty : unit -> t -> Printable.Pretty.doc

val show : 
  [< `Bot | `Lifted1 of SpecSys.Spec.G.t | `Lifted2 of CSet.t | `Top ] ->
  string

val relift : 
  ([< `Bot
   | `Lifted1 of SpecSys.Spec.G.t
   | `Lifted2 of CSet.t
   | `Top Lifted1 Lifted2 ] as 'a) ->
  'a

val name : unit -> string

val to_yojson : 
  [< `Bot | `Lifted1 of SpecSys.Spec.G.t | `Lifted2 of CSet.t | `Top ] ->
  Yojson.Safe.t

val bot : unit -> [> `Bot ]

val is_bot : [> `Bot ] -> bool

val top : unit -> [> `Top ]

val is_top : [> `Top ] -> bool

val leq : 
  [> `Bot | `Lifted1 of SpecSys.Spec.G.t | `Lifted2 of CSet.t | `Top ] ->
  [> `Bot | `Lifted1 of SpecSys.Spec.G.t | `Lifted2 of CSet.t | `Top ] ->
  bool

val pretty_diff : unit -> (t * t) -> Lattice.Pretty.doc

val join : 
  ([> `Bot | `Lifted1 of SpecSys.Spec.G.t | `Lifted2 of CSet.t | `Top ] as 'a) ->
  'a ->
  'a

val meet : 
  ([> `Bot | `Lifted1 of SpecSys.Spec.G.t | `Lifted2 of CSet.t | `Top ] as 'a) ->
  'a ->
  'a

val widen : 
  [> `Lifted1 of SpecSys.Spec.G.t | `Lifted2 of CSet.t ] ->
  ([> `Lifted1 of SpecSys.Spec.G.t | `Lifted2 of CSet.t ] as 'a) ->
  'a

val narrow : 
  ([> `Bot | `Lifted1 of SpecSys.Spec.G.t | `Lifted2 of CSet.t | `Top ] as 'a) ->
  'a ->
  'a

val spec : [> `Bot | `Lifted1 of SpecSys.Spec.G.t ] -> SpecSys.Spec.G.t

val contexts : [> `Bot | `Lifted2 of CSet.t ] -> CSet.t

val create_spec : 'a -> [> `Lifted1 of 'a ]

val create_contexts : 'a -> [> `Lifted2 of 'a ]

val printXml : 
  'a BatInnerIO.output ->
  [< `Bot
  | `Lifted1 of SpecSys.Spec.G.t
  | `Lifted2 of CSet.t
  | `Top Lifted1 Lifted2 ] ->
  unit