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