diff -r f6b0d827240e -r bdc1e2f0a86a src/HOL/Finite_Set.thy --- a/src/HOL/Finite_Set.thy Tue Sep 01 17:25:36 2015 +0200 +++ b/src/HOL/Finite_Set.thy Tue Sep 01 22:32:58 2015 +0200 @@ -561,13 +561,13 @@ subsection \Class @{text finite}\ class finite = - assumes finite_UNIV: "finite (UNIV \ 'a set)" + assumes finite_UNIV: "finite (UNIV :: 'a set)" begin -lemma finite [simp]: "finite (A \ 'a set)" +lemma finite [simp]: "finite (A :: 'a set)" by (rule subset_UNIV finite_UNIV finite_subset)+ -lemma finite_code [code]: "finite (A \ 'a set) \ True" +lemma finite_code [code]: "finite (A :: 'a set) \ True" by simp end