src/HOL/Data_Structures/AA_Set.thy
changeset 62160 ff20b44b2fc8
parent 62130 90a3016a6c12
child 62390 842917225d56
--- a/src/HOL/Data_Structures/AA_Set.thy	Wed Jan 13 00:12:43 2016 +0100
+++ b/src/HOL/Data_Structures/AA_Set.thy	Wed Jan 13 09:38:16 2016 +0100
@@ -72,7 +72,7 @@
     else
       case r of
         Leaf \<Rightarrow> Leaf (* unreachable *) |
-        Node _ t1 b t4 \<Rightarrow>
+        Node lvb t1 b t4 \<Rightarrow>
           (case t1 of
              Node lva t2 a t3
                \<Rightarrow> Node (lva+1) (Node (lv-1) l x t2) a