--- a/src/HOLCF/Domain.thy Wed Jun 08 01:40:39 2005 +0200
+++ b/src/HOLCF/Domain.thy Wed Jun 08 01:41:20 2005 +0200
@@ -90,7 +90,7 @@
apply (rule_tac p=x in upE1)
apply simp
apply fast
- apply (force intro!: defined_up)
+ apply (force intro!: up_defined)
done
lemma ex_sprod_defined_iff: