UNUSED - see axiom.thy/ML