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