Make.Toplevel**********************
val bottom : tval top : tval is_bottom : t -> bool*********************
val subset : (t, t) Core.All.man -> t Core.All.ctx -> t -> t -> boolval join : (t, t) Core.All.man -> t Core.All.ctx -> t -> t -> tval meet : (t, t) Core.All.man -> t Core.All.ctx -> t -> t -> tval widen : (t, t) Core.All.man -> t Core.All.ctx -> t -> t -> tval merge : t -> (t * Core.All.change_map) -> (t * Core.All.change_map) -> t**********************
val init : Core.All.program -> (t, t) Core.All.man -> t Core.All.flowval exec :
?route:Core.All.route ->
Core.All.stmt ->
(t, t) Core.All.man ->
t Core.All.flow ->
t Core.All.postval eval :
?route:Core.All.route ->
?translate:Core.All.semantic ->
?translate_when:(Core.All.semantic * (Core.All.expr -> bool)) list ->
Core.All.expr ->
(t, t) Core.All.man ->
t Core.All.flow ->
t Core.All.evalval ask :
?route:Core.All.route ->
(t, 'r) Core.All.query ->
(t, t) Core.All.man ->
t Core.All.flow ->
(t, 'r) Core.All.cases*******************
val print_state : ?route:Core.All.route -> Core.All.printer -> t -> unitval print_expr :
?route:Core.All.route ->
(t, t) Core.All.man ->
t Core.All.flow ->
Core.All.printer ->
Core.All.expr ->
unitExceptions
exception SysBreak of t Core.All.flow