src/HOL/Tools/inductive_package.ML
changeset 12109 bd6eb9194a5d
parent 11991 da6ee05d9f3d
child 12128 25565bbbd246
     1.1 --- a/src/HOL/Tools/inductive_package.ML	Thu Nov 08 23:57:22 2001 +0100
     1.2 +++ b/src/HOL/Tools/inductive_package.ML	Thu Nov 08 23:59:37 2001 +0100
     1.3 @@ -98,6 +98,7 @@
     1.4  
     1.5    val empty = (Symtab.empty, []);
     1.6    val copy = I;
     1.7 +  val finish = I;
     1.8    val prep_ext = I;
     1.9    fun merge ((tab1, monos1), (tab2, monos2)) =
    1.10      (Symtab.merge (K true) (tab1, tab2), Drule.merge_rules (monos1, monos2));