more robust: clarified error when merging Hoare_Logic + Hoare_Logic_Abort;
authorwenzelm
Thu, 24 Dec 2020 13:03:51 +0100
changeset 72998 7ea253f93606
parent 72997 a562a0f656e8
child 72999 f6051c13bffa
more robust: clarified error when merging Hoare_Logic + Hoare_Logic_Abort;
src/HOL/Hoare/hoare_syntax.ML
--- a/src/HOL/Hoare/hoare_syntax.ML	Thu Dec 24 12:58:25 2020 +0100
+++ b/src/HOL/Hoare/hoare_syntax.ML	Thu Dec 24 13:03:51 2020 +0100
@@ -206,11 +206,14 @@
 
 (** setup **)
 
+val _ =
+  Theory.setup
+   (Sign.parse_translation
+    [(\<^syntax_const>\<open>_hoare_vars\<close>, hoare_vars_tr),
+     (\<^syntax_const>\<open>_hoare_vars_tc\<close>, hoare_tc_vars_tr)]);
+
 fun setup consts =
   Data.put (SOME consts) #>
-  Sign.parse_translation
-   [(\<^syntax_const>\<open>_hoare_vars\<close>, hoare_vars_tr),
-    (\<^syntax_const>\<open>_hoare_vars_tc\<close>, hoare_tc_vars_tr)] #>
   Sign.print_translation
    [(#Valid consts, spec_tr' \<^syntax_const>\<open>_hoare\<close>),
     (#ValidTC consts, spec_tr' \<^syntax_const>\<open>_hoare_tc\<close>)];