let declare x _ = try match Hashtbl.find user_axioms x with | Some p -> Formula.Axiom p | None -> raise Not_found with Not_found -> Wp_parameters.fatal "Uncompiled axiom (%s)" x