let compile_user_axiom _name predicate =
let context = push_context "axiom" in
try
let env = axiom_env "WP_nowhere" in
let def = prop env predicate in
flush_context "axiom" context def
with err ->
kill_context "axiom" context ;
raise err