--- a/src/HOL/Auth/Smartcard/ShoupRubin.thy Thu May 12 17:17:57 2011 +0200
+++ b/src/HOL/Auth/Smartcard/ShoupRubin.thy Thu May 12 18:17:32 2011 +0200
@@ -1036,7 +1036,7 @@
apply (drule Outpts_parts_used)
apply simp
(*faster than
- by (fast_tac (claset() addDs [Outpts_parts_used] addss (simpset())) 1)
+ apply (fastsimp dest: Outpts_parts_used)
*)
(*SR10*)
apply (fastsimp dest: Outpts_B_Card_form_7)
--- a/src/HOL/Auth/Smartcard/ShoupRubinBella.thy Thu May 12 17:17:57 2011 +0200
+++ b/src/HOL/Auth/Smartcard/ShoupRubinBella.thy Thu May 12 18:17:32 2011 +0200
@@ -1026,7 +1026,7 @@
apply (drule Outpts_parts_used)
apply simp
(*faster than
- by (fast_tac (claset() addDs [Outpts_parts_used] addss (simpset())) 1)
+ apply (fastsimp dest: Outpts_parts_used)
*)
(*SR_U10*)
apply (fastsimp dest: Outpts_B_Card_form_7)