author | paulson |
Thu, 09 Jan 1997 10:20:03 +0100 | |
changeset 2496 | 40efb87985b5 |
parent 2469 | b50b8c0eec01 |
child 4091 | 771b1f6422a8 |
permissions | -rw-r--r-- |
(* Title: ZF/ex/Enum ID: $Id$ Author: Lawrence C Paulson, Cambridge University Computer Laboratory Copyright 1993 University of Cambridge Example of a BIG enumeration type Can go up to at least 100 constructors, but it takes nearly 7 minutes... *) open Enum; goal Enum.thy "C00 ~= C01"; by (simp_tac (!simpset addsimps enum.free_iffs) 1); result();