author | paulson |
Thu, 19 Feb 2004 10:41:01 +0100 | |
changeset 14396 | 011a2a49d303 |
parent 14395 | cc96cc06abf9 |
child 14397 | b3b15305a1c9 |
--- a/src/HOL/TLA/Buffer/Buffer.ML Thu Feb 19 10:40:28 2004 +0100 +++ b/src/HOL/TLA/Buffer/Buffer.ML Thu Feb 19 10:41:01 2004 +0100 @@ -8,8 +8,8 @@ (* ---------------------------- Data lemmas ---------------------------- *) -context List.thy; -goal List.thy "xs ~= [] --> tl xs ~= xs"; +(*FIXME: move to List.thy? Maybe as (tl xs = xs) = (xs = [])"?*) +Goal "xs ~= [] --> tl xs ~= xs"; by (auto_tac (claset(), simpset() addsimps [neq_Nil_conv])); qed_spec_mp "tl_not_self"; context Buffer.thy;