src/Pure/drule.ML
changeset 28713 135317cd34d6
parent 28674 08a77c495dc1
child 29265 5b4247055bd7
--- a/src/Pure/drule.ML	Fri Oct 31 10:37:34 2008 +0100
+++ b/src/Pure/drule.ML	Fri Oct 31 10:39:04 2008 +0100
@@ -584,7 +584,7 @@
 
 (*The rule V/V, obtains assumption solving for eresolve_tac*)
 val asm_rl = store_standard_thm_open "asm_rl" (Thm.trivial (read_prop "?psi"));
-val _ = store_thm "_" asm_rl;
+val _ = store_thm_open "_" asm_rl;
 
 (*Meta-level cut rule: [| V==>W; V |] ==> W *)
 val cut_rl =