diff -r bc4d107fb6dd -r 194ae2e0c193 src/HOLCF/Cfun2.ML
--- a/src/HOLCF/Cfun2.ML	Fri May 23 18:55:28 1997 +0200
+++ b/src/HOLCF/Cfun2.ML	Sun May 25 11:07:52 1997 +0200
@@ -12,7 +12,7 @@
 qed_goal "inst_cfun_po" thy "(op <<)=(%f1 f2.fapp f1 << fapp f2)"
  (fn prems => 
         [
-	(fold_goals_tac [po_def,less_cfun_def]),
+	(fold_goals_tac [less_cfun_def]),
 	(rtac refl 1)
         ]);