--- a/src/HOL/Option.thy Wed Feb 12 08:35:57 2014 +0100
+++ b/src/HOL/Option.thy Wed Feb 12 08:37:06 2014 +0100
@@ -16,7 +16,7 @@
lemma [case_names None Some, cases type: option]:
-- {* for backward compatibility -- names of variables differ *}
- "(y = None \<Longrightarrow> P) \<Longrightarrow> (\<And>option. y = Some option \<Longrightarrow> P) \<Longrightarrow> P"
+ "(y = None \<Longrightarrow> P) \<Longrightarrow> (\<And>a. y = Some a \<Longrightarrow> P) \<Longrightarrow> P"
by (rule option.exhaust)
lemma [case_names None Some, induct type: option]: