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 =