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