let add_oblig res label obj = debug "add proof obligation at label %a =@. @[<hov2> %a@]@." Clabels.pretty label W.pretty obj; res.obligs <- LabObligs.add_to_label (res.obligs) label obj