changeset 25923 | 5fe4b543512e |
parent 25921 | 0ca392ab7f37 |
child 26025 | ca6876116bb4 |
--- a/src/HOLCF/Ffun.thy Thu Jan 17 21:44:19 2008 +0100 +++ b/src/HOLCF/Ffun.thy Thu Jan 17 21:56:33 2008 +0100 @@ -179,7 +179,7 @@ \<Longrightarrow> monofun (\<Squnion>i. F i)" apply (rule monofunI) apply (simp add: thelub_fun) -apply (rule lub_mono [rule_format]) +apply (rule lub_mono) apply (erule ch2ch_fun) apply (erule ch2ch_fun) apply (simp add: monofunE)