sig
  class type computer =
    object
      method add_lemma : LogicUsage.logic_lemma -> unit
      method add_strategy : WpStrategy.strategy -> unit
      method compute : Wpo.t Bag.t
      method model : WpContext.model
    end
  val compute_ip : WpGenerator.computer -> Property.t -> Wpo.t Bag.t
  val compute_call : WpGenerator.computer -> Cil_types.stmt -> Wpo.t Bag.t
  val compute_kf :
    WpGenerator.computer ->
    ?kf:Kernel_function.t ->
    ?bhv:string list -> ?prop:string list -> unit -> Wpo.t Bag.t
  val compute_selection :
    WpGenerator.computer ->
    ?fct:Wp_parameters.functions ->
    ?bhv:string list -> ?prop:string list -> unit -> Wpo.t Bag.t
  val dumper : unit -> WpGenerator.computer
  val computer : Factory.setup -> Factory.driver -> WpGenerator.computer
end