src/HOL/Quickcheck_Examples/Quickcheck_Nesting.thy
author wenzelm
Mon, 24 Oct 2022 20:37:32 +0200
changeset 76371 1ac2416e8432
parent 69597 ff784d5a5bfb
child 80634 a90ab1ea6458
permissions -rw-r--r--
tuned signature (again, amending f32ac01aef5e), e.g. relevant for Isabelle/DOF;

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>\<open>compat\<close>;

  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