Module Wpo.GOAL

module GOAL: sig .. end

type t = {
   mutable simplified :bool;
   mutable time :float;
   mutable hyps :Conditions.t;
   mutable goal :Lang.F.pred;
   mutable obligation :Lang.F.pred;
}
val dummy : t
val trivial : t
val make : Conditions.t -> Lang.F.pred -> t
val is_trivial : t -> bool
val apply : (Conditions.t -> Lang.F.pred -> Conditions.t * Lang.F.pred) ->
t -> unit
val preprocess : t -> unit
val dkey : Wp_parameters.category
val compute : t -> unit
val compute_proof : t -> Lang.F.pred
val compute_descr : t -> Conditions.t * Lang.F.pred
val get_descr : t -> Conditions.t * Lang.F.pred
val qed_time : t -> float