let labels_axiom = function
    | LogicLabel (None, ("Pre"|"Old"|"Post")) as l -> raise (LabelError l)
    | LogicLabel (None, _) as l -> l
    | l -> raise (LabelError l)