let add_axiom name labels predicate =
    if labels = [] then
      ( compile_user_axiom name predicate ;
        UserAxiom.define name )
    else
      if Wp_parameters.Axioms.get () then
        compile_user_hypothesis name labels predicate
      else
        Wp_parameters.warning ~once:true
          "Ignoring axiom %s (because of labels)" name