--- a/src/HOLCF/Lift.thy Wed Apr 28 11:41:27 2010 +0200
+++ b/src/HOLCF/Lift.thy Wed Apr 28 12:07:52 2010 +0200
@@ -8,7 +8,7 @@
imports Discrete Up Countable
begin
-defaultsort type
+default_sort type
pcpodef 'a lift = "UNIV :: 'a discr u set"
by simp_all