avoid undeclared variables in facts;
authorwenzelm
Sat, 17 May 2008 23:37:11 +0200
changeset 26936 faf8a5b5ba87
parent 26935 ee6bcb1b8953
child 26937 57e7d045774a
avoid undeclared variables in facts;
src/HOL/Word/WordShift.thy
src/HOLCF/ex/Hoare.thy
--- a/src/HOL/Word/WordShift.thy	Sat May 17 23:37:09 2008 +0200
+++ b/src/HOL/Word/WordShift.thy	Sat May 17 23:37:11 2008 +0200
@@ -1541,7 +1541,7 @@
 
 lemmas ths_map2 [OF lbl_lbl] = rotate_map2 rotater_map2
 
-lemmas ths_map [where xs = "to_bl v"] = rotate_map rotater_map
+lemmas ths_map [where xs = "to_bl v", standard] = rotate_map rotater_map
 
 lemmas th1s [simplified word_rot_defs' [symmetric]] = ths_map2 ths_map
 
--- a/src/HOLCF/ex/Hoare.thy	Sat May 17 23:37:09 2008 +0200
+++ b/src/HOLCF/ex/Hoare.thy	Sat May 17 23:37:11 2008 +0200
@@ -158,7 +158,7 @@
 
 (* -------- results about p for case (EX k. b1$(iterate k$g$x)~=TT) ------- *)
 
-thm hoare_lemma8 [THEN hoare_lemma9 [THEN mp], standard, no_vars]
+thm hoare_lemma8 [THEN hoare_lemma9 [THEN mp], standard]
 
 lemma hoare_lemma10:
   "EX k. b1$(iterate k$g$x) ~= TT