# HG changeset patch
# User haftmann
# Date 1753269771 -7200
# Node ID d9df588f89103ca9baaf1d940a487e1910f55053
# Parent  89da4dcd1fa81204e31f77fec9a4c8fd60a7c72b
internal setting to identify pointless code drop: declarations

diff -r 89da4dcd1fa8 -r d9df588f8910 src/Pure/Isar/code.ML
--- a/src/Pure/Isar/code.ML	Wed Jul 23 14:53:21 2025 +0200
+++ b/src/Pure/Isar/code.ML	Wed Jul 23 13:22:51 2025 +0200
@@ -66,6 +66,7 @@
   (*transitional*)
   val only_single_equation: bool Config.T
   val prepend_allowed: bool Config.T
+  val strict_drop: bool Config.T
 end;
 
 signature CODE_DATA_ARGS =
@@ -113,6 +114,7 @@
 
 val only_single_equation = Attrib.setup_config_bool \<^binding>\<open>code_only_single_equation\<close> (K false);
 val prepend_allowed = Attrib.setup_config_bool \<^binding>\<open>code_prepend_allowed\<close> (K false);
+val strict_drop = Attrib.setup_config_bool \<^binding>\<open>code_strict_drop\<close> (K false);
 
 val _ = Theory.setup (Theory.at_end ((fn thy => if Config.get_global thy prepend_allowed
   then thy |> Config.put_global prepend_allowed false |> SOME
@@ -1529,8 +1531,11 @@
 fun declare_aborting_global c =
   modify_specs (register_fun_spec c aborting);
 
-fun declare_unimplemented_global c =
-  modify_specs (register_fun_spec c unimplemented);
+fun declare_unimplemented_global c thy =
+  if Config.get_global thy strict_drop
+    andalso is_unimplemented (lookup_fun_spec (specs_of thy) c)
+  then error "No implementation to drop"
+  else modify_specs (register_fun_spec c unimplemented) thy;
 
 
 (* cases *)