src/HOL/Tools/inductive_set_package.ML
changeset 24867 e5b55d7be9bb
parent 24815 f7093e90f36c
child 24925 f38dd8d0a30d
equal deleted inserted replaced
24866:6e6d9e80ebb4 24867:e5b55d7be9bb
   541 
   541 
   542 local structure P = OuterParse and K = OuterKeyword in
   542 local structure P = OuterParse and K = OuterKeyword in
   543 
   543 
   544 val ind_set_decl = InductivePackage.gen_ind_decl add_ind_set_def;
   544 val ind_set_decl = InductivePackage.gen_ind_decl add_ind_set_def;
   545 
   545 
   546 val inductive_setP =
   546 val _ =
   547   OuterSyntax.command "inductive_set" "define inductive sets" K.thy_decl (ind_set_decl false);
   547   OuterSyntax.command "inductive_set" "define inductive sets" K.thy_decl (ind_set_decl false);
   548 
   548 
   549 val coinductive_setP =
   549 val _ =
   550   OuterSyntax.command "coinductive_set" "define coinductive sets" K.thy_decl (ind_set_decl true);
   550   OuterSyntax.command "coinductive_set" "define coinductive sets" K.thy_decl (ind_set_decl true);
   551 
   551 
   552 val _ = OuterSyntax.add_parsers [inductive_setP, coinductive_setP];
       
   553 
       
   554 end;
   552 end;
   555 
   553 
   556 end;
   554 end;