UNUSED - see various.thy/ML