src/HOLCF/LowerPD.thy
changeset 27309 c74270fd72a8
parent 27297 2c42b1505f25
child 27310 d0229bc6c461
     1.1 --- a/src/HOLCF/LowerPD.thy	Fri Jun 20 22:41:41 2008 +0200
     1.2 +++ b/src/HOLCF/LowerPD.thy	Fri Jun 20 22:51:50 2008 +0200
     1.3 @@ -284,7 +284,7 @@
     1.4  
     1.5  lemma lower_unit_less_iff [simp]: "{x}\<flat> \<sqsubseteq> {y}\<flat> \<longleftrightarrow> x \<sqsubseteq> y"
     1.6   apply (rule iffI)
     1.7 -  apply (rule bifinite_less_ext)
     1.8 +  apply (rule profinite_less_ext)
     1.9    apply (drule_tac f="approx i" in monofun_cfun_arg, simp)
    1.10    apply (cut_tac x="approx i\<cdot>x" in compact_basis.compact_imp_principal, simp)
    1.11    apply (cut_tac x="approx i\<cdot>y" in compact_basis.compact_imp_principal, simp)
    1.12 @@ -331,7 +331,7 @@
    1.13  done
    1.14  
    1.15  lemma compact_lower_unit_iff [simp]: "compact {x}\<flat> \<longleftrightarrow> compact x"
    1.16 -unfolding bifinite_compact_iff by simp
    1.17 +unfolding profinite_compact_iff by simp
    1.18  
    1.19  lemma compact_lower_plus [simp]:
    1.20    "\<lbrakk>compact xs; compact ys\<rbrakk> \<Longrightarrow> compact (xs +\<flat> ys)"