| 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