equal
deleted
inserted
replaced
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; |