changeset 46961 | 5c6955f487e5 |
parent 46949 | 94aa7b81bcf6 |
child 49759 | ecf1d5d87e5e |
--- a/src/HOL/HOLCF/Tools/Domain/domain_isomorphism.ML Fri Mar 16 14:46:13 2012 +0100 +++ b/src/HOL/HOLCF/Tools/Domain/domain_isomorphism.ML Fri Mar 16 18:20:12 2012 +0100 @@ -771,8 +771,7 @@ in val _ = - Outer_Syntax.command "domain_isomorphism" "define domain isomorphisms (HOLCF)" - Keyword.thy_decl + Outer_Syntax.command @{command_spec "domain_isomorphism"} "define domain isomorphisms (HOLCF)" (parse_domain_isos >> (Toplevel.theory o domain_isomorphism_cmd)) end