Model.t ->
object
  val mutable annots : WpStrategy.strategy Bag.t
  val mutable lemmas : LogicUsage.logic_lemma Bag.t
  method add_lemma : LogicUsage.logic_lemma -> unit
  method add_strategy : WpStrategy.strategy -> unit
  method compute : Wpo.t Bag.t
  method lemma : bool
end