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)