src/HOL/arith_data.ML

--- a/src/HOL/arith_data.ML	Wed Nov 28 00:44:37 2001 +0100
+++ b/src/HOL/arith_data.ML	Wed Nov 28 00:46:26 2001 +0100
@@ -213,7 +213,6 @@
 
   val empty = {splits = [], inj_consts = [], discrete = []};
   val copy = I;
-  val finish = I;
   val prep_ext = I;
   fun merge ({splits= splits1, inj_consts= inj_consts1, discrete= discrete1},
              {splits= splits2, inj_consts= inj_consts2, discrete= discrete2}) =