author | haftmann |
Thu, 08 Nov 2018 09:11:52 +0100 | |
changeset 69260 | 0a9688695a1b |
parent 63731 | 9f906a2eb0e7 |
child 69597 | ff784d5a5bfb |
permissions | -rw-r--r-- |
theory Quickcheck_Nesting imports Main begin ML \<open> let open BNF_FP_Def_Sugar open BNF_LFP_Compat val compat_plugin = Plugin_Name.declare_setup @{binding compat}; fun compat fp_sugars = perhaps (try (datatype_compat (map (fst o dest_Type o #T) fp_sugars))); in Theory.setup (fp_sugars_interpretation compat_plugin compat) end \<close> end