src/HOL/Tools/inductive_set_package.ML
changeset 24867 e5b55d7be9bb
parent 24815 f7093e90f36c
child 24925 f38dd8d0a30d
     1.1 --- a/src/HOL/Tools/inductive_set_package.ML	Sat Oct 06 16:41:22 2007 +0200
     1.2 +++ b/src/HOL/Tools/inductive_set_package.ML	Sat Oct 06 16:50:04 2007 +0200
     1.3 @@ -543,14 +543,12 @@
     1.4  
     1.5  val ind_set_decl = InductivePackage.gen_ind_decl add_ind_set_def;
     1.6  
     1.7 -val inductive_setP =
     1.8 +val _ =
     1.9    OuterSyntax.command "inductive_set" "define inductive sets" K.thy_decl (ind_set_decl false);
    1.10  
    1.11 -val coinductive_setP =
    1.12 +val _ =
    1.13    OuterSyntax.command "coinductive_set" "define coinductive sets" K.thy_decl (ind_set_decl true);
    1.14  
    1.15 -val _ = OuterSyntax.add_parsers [inductive_setP, coinductive_setP];
    1.16 -
    1.17  end;
    1.18  
    1.19  end;