let add_glob_axiom name acc labels a =
  try
    let a = NormAtLabels.preproc_annot NormAtLabels.labels_axiom a in
    let labels =
      List.map (NormAtLabels.preproc_label NormAtLabels.labels_axiom) labels in
    let id = mk_axiom_id name in
      Wp_parameters.debug ~level:3 "take (@[%s:@ %a@])@."
        (prop_txt id)
        !Ast_printer.d_predicate_named a;
      (id, (name,labels,a))::acc
  with e -> NormAtLabels.catch_label_error e ("axiom "^name) "axiom"; acc