sig val compute : Cil2cfg.t -> WpAnnot.strategy -> PO.t_prop list * (Format.formatter -> Cil2cfg.edge -> unit) end