src/HOL/List.thy
changeset 51548 757fa47af981
parent 51540 eea5c4ca4a0e
child 51672 d5c5e088ebdf
     1.1 --- a/src/HOL/List.thy	Tue Mar 26 22:09:39 2013 +0100
     1.2 +++ b/src/HOL/List.thy	Wed Mar 27 10:55:05 2013 +0100
     1.3 @@ -4338,6 +4338,10 @@
     1.4  context linorder
     1.5  begin
     1.6  
     1.7 +lemma set_insort_key:
     1.8 +  "set (insort_key f x xs) = insert x (set xs)"
     1.9 +  by (induct xs) auto
    1.10 +
    1.11  lemma length_insort [simp]:
    1.12    "length (insort_key f x xs) = Suc (length xs)"
    1.13    by (induct xs) simp_all