let add labels acc a =
let txt = prop_txt a in
let p = prop_named_pred a in
try
let p = NormAtLabels.preproc_annot labels p in
Wp_parameters.debug "take (@[%s:@ %a@])@."
txt !Ast_printer.d_predicate_named p;
(a,p)::acc
with (NormAtLabels.LabelError l) ->
(Wp_parameters.warning "unable to process %s label %a"
txt Macros.pp_logic_label l;
acc)