# HG changeset patch
# User paulson
# Date 953544394 -3600
# Node ID f990040535c9494877e22f0479e89103ea82af22
# Parent  7ffc94f2f42d7333a1098b42672fa72986bdb541
a possibly (?) more perspicous simprule in the "simpset" part

diff -r 7ffc94f2f42d -r f990040535c9 src/HOL/ex/Qsort.thy
--- a/src/HOL/ex/Qsort.thy	Mon Mar 20 10:24:07 2000 +0100
+++ b/src/HOL/ex/Qsort.thy	Mon Mar 20 10:26:34 2000 +0100
@@ -10,7 +10,7 @@
 consts qsort :: "((['a,'a] => bool) * 'a list) => 'a list"
 
 recdef qsort "measure (size o snd)"
-    simpset "simpset() addsimps [less_Suc_eq_le]"
+    simpset "simpset() addsimps [length_filter RS le_less_trans]"
     
     "qsort(le, [])   = []"