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