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