Module Po_navigator


module Po_navigator: sig .. end
Extension of the GUI in order to navigate in Proof obligations. No function is exported.


type row = {
   wpo : Wpo.t;
   visible : bool;
}
module Prover_Column: sig .. end
module SelectionHook: Hook.Build(sig
type t = Wpo.t 
end)
val refresh_current_wpo : (SelectionHook.param * (Wpo.prover * Wpo.result) list) option
Pervasives.ref
val refresh_panel_callback : (unit -> unit) Pervasives.ref
val refresh_status_callback : (unit -> SelectionHook.result) Pervasives.ref
val make_panel : Design.main_window_extension_points -> unit
val extend : Design.main_window_extension_points -> unit
val refresh_panel : unit -> unit
To be called when the set of POs has changed
val refresh_status : unit -> SelectionHook.result
To be called when the status of POs has changed