diff -r f04b33ce250f -r a4dc62a46ee4 IOA/meta_theory/Option.ML
--- a/IOA/meta_theory/Option.ML	Tue Oct 24 14:59:17 1995 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,16 +0,0 @@
-(*  Title:      Option.ML
-    ID:         $Id$
-    Author:     Tobias Nipkow
-    Copyright   1994  TU Muenchen
-
-Derived rules
-*)
-
-val option_rws = Let_def :: Option.option.simps;
-val SS = arith_ss addsimps option_rws;
-
-val [prem] = goal Option.thy "P(opt) ==> P(None) | (? x. P(Some(x)))";
- br (prem RS rev_mp) 1;
- by (Option.option.induct_tac "opt" 1);
- by (ALLGOALS(fast_tac HOL_cs));
-val optE = store_thm("optE", standard(result() RS disjE));