type t = [ | `Bot| `Lifted of VarLat.t| `Top
]val lift : 'a -> [> `Lifted of 'a ]val show : [< `Bot | `Lifted of VarLat.t | `Top ] -> stringval name : unit -> stringval relift : ([< `Bot | `Lifted of VarLat.t | `Top Lifted ] as 'a) -> 'aval arbitrary : unit -> [ `Bot | `Lifted of VarLat.t | `Top ] QCheck.arbitraryval bot : unit -> [> `Bot ]val is_bot : [> `Bot ] -> boolval top : unit -> [> `Top ]val is_top : [> `Top ] -> boolval leq :
[< `Bot | `Lifted of VarLat.t | `Top ] ->
[< `Bot | `Lifted of VarLat.t | `Top ] ->
boolval join :
([< `Bot | `Lifted of VarLat.t | `Top Lifted Top ] as 'a) ->
'a ->
'aval meet :
([< `Bot | `Lifted of VarLat.t | `Top Bot Lifted ] as 'a) ->
'a ->
'aval narrow : ([> `Bot | `Lifted of VarLat.t | `Top ] as 'a) -> 'a -> 'a