changeset 40089 | 8adc57fb8454 |
parent 40011 | b974cf829099 |
child 40091 | 1ca61fbd8a79 |
--- a/src/HOLCF/Fun_Cpo.thy Fri Oct 22 06:08:51 2010 -0700 +++ b/src/HOLCF/Fun_Cpo.thy Fri Oct 22 06:58:45 2010 -0700 @@ -128,8 +128,6 @@ thus "\<exists>n. max_in_chain n Y" .. qed -instance "fun" :: (finite, finite_po) finite_po .. - instance "fun" :: (type, discrete_cpo) discrete_cpo proof fix f g :: "'a \<Rightarrow> 'b"