prefer hardwired "nothing";
authorwenzelm
Thu, 04 Aug 2016 21:30:20 +0200
changeset 63609 be0a4a0bf7f5
parent 63608 d83cb0902e4f
child 63610 4b40b8196dc7
prefer hardwired "nothing";
src/Pure/Isar/proof_context.ML
src/Pure/pure_thy.ML
--- a/src/Pure/Isar/proof_context.ML	Thu Aug 04 21:25:16 2016 +0200
+++ b/src/Pure/Isar/proof_context.ML	Thu Aug 04 21:30:20 2016 +0200
@@ -1013,11 +1013,12 @@
   | retrieve pick context (Facts.Named ((xname, pos), sel)) =
       let
         val thy = Context.theory_of context;
-        fun immediate thm = {name = xname, dynamic = false, thms = [Thm.transfer thy thm]};
+        fun immediate thms = {name = xname, dynamic = false, thms = map (Thm.transfer thy) thms};
         val {name, dynamic, thms} =
           (case xname of
-            "" => immediate Drule.dummy_thm
-          | "_" => immediate Drule.asm_rl
+            "" => immediate [Drule.dummy_thm]
+          | "_" => immediate [Drule.asm_rl]
+          | "nothing" => immediate []
           | _ => retrieve_generic context (xname, pos));
         val thms' =
           if dynamic andalso Config.get_generic context dynamic_facts_dummy
--- a/src/Pure/pure_thy.ML	Thu Aug 04 21:25:16 2016 +0200
+++ b/src/Pure/pure_thy.ML	Thu Aug 04 21:30:20 2016 +0200
@@ -223,7 +223,6 @@
       \ (CONST Pure.term :: 'a itself => prop) (CONST Pure.type :: 'a itself)"),
     (Binding.make ("conjunction_def", @{here}),
       prop "(A &&& B) == (!!C::prop. (A ==> B ==> C) ==> C)")] #> snd
-  #> Global_Theory.add_thmss [((Binding.make ("nothing", @{here}), []), [])] #> snd
   #> fold (fn (a, prop) =>
       snd o Thm.add_axiom_global (Binding.make (a, @{here}), prop)) Proofterm.equality_axms);