Spec.G
include sig ... end
type t = [
| `Bot
| `Lifted1 of Lattice.Prod3(Locked)(Unlocked)(MultiThread).t
| `Lifted2 of Lattice.Lift2(BoolDomain.MayBool)(NodeSet).t
| `Top
]
val hash : t -> int
val pretty : unit -> t -> Printable.Pretty.doc
val show :
[< `Bot
| `Lifted1 of Lattice.Prod3(Locked)(Unlocked)(MultiThread).t
| `Lifted2 of Lattice.Lift2(BoolDomain.MayBool)(NodeSet).t
| `Top ] ->
string
val relift :
[< `Bot
| `Lifted1 of Lattice.Prod3(Locked)(Unlocked)(MultiThread).t
| `Lifted2 of Lattice.Lift2(BoolDomain.MayBool)(NodeSet).t
| `Top Lifted1 Lifted2 ] as 'a ->
'a
val printXml :
'a BatInnerIO.output ->
[< `Bot
| `Lifted1 of Lattice.Prod3(Locked)(Unlocked)(MultiThread).t
| `Lifted2 of Lattice.Lift2(BoolDomain.MayBool)(NodeSet).t
| `Top ] ->
unit
val to_yojson :
[< `Bot
| `Lifted1 of Lattice.Prod3(Locked)(Unlocked)(MultiThread).t
| `Lifted2 of Lattice.Lift2(BoolDomain.MayBool)(NodeSet).t
| `Top ] ->
Yojson.Safe.t
val leq :
[> `Bot
| `Lifted1 of Lattice.Prod3(Locked)(Unlocked)(MultiThread).t
| `Lifted2 of Lattice.Lift2(BoolDomain.MayBool)(NodeSet).t
| `Top ] ->
[> `Bot
| `Lifted1 of Lattice.Prod3(Locked)(Unlocked)(MultiThread).t
| `Lifted2 of Lattice.Lift2(BoolDomain.MayBool)(NodeSet).t
| `Top ] ->
bool
val join :
[> `Bot
| `Lifted1 of Lattice.Prod3(Locked)(Unlocked)(MultiThread).t
| `Lifted2 of Lattice.Lift2(BoolDomain.MayBool)(NodeSet).t
| `Top ] as 'a ->
'a ->
'a
val meet :
[> `Bot
| `Lifted1 of Lattice.Prod3(Locked)(Unlocked)(MultiThread).t
| `Lifted2 of Lattice.Lift2(BoolDomain.MayBool)(NodeSet).t
| `Top ] as 'a ->
'a ->
'a
val widen :
[> `Lifted1 of Lattice.Prod3(Locked)(Unlocked)(MultiThread).t
| `Lifted2 of Lattice.Lift2(BoolDomain.MayBool)(NodeSet).t ] ->
[> `Lifted1 of Lattice.Prod3(Locked)(Unlocked)(MultiThread).t
| `Lifted2 of Lattice.Lift2(BoolDomain.MayBool)(NodeSet).t ] as 'a ->
'a
val narrow :
[> `Bot
| `Lifted1 of Lattice.Prod3(Locked)(Unlocked)(MultiThread).t
| `Lifted2 of Lattice.Lift2(BoolDomain.MayBool)(NodeSet).t
| `Top ] as 'a ->
'a ->
'a
val node :
[> `Bot | `Lifted1 of Locked.t * Unlocked.t * MultiThread.t ] ->
Locked.t * Unlocked.t * MultiThread.t
val lock :
[> `Bot | `Lifted2 of [> `Lifted1 of BoolDomain.MayBool.t ] ] ->
BoolDomain.MayBool.t