src/HOLCF/Fun3.ML

--- a/src/HOLCF/Fun3.ML	Wed Jul 05 14:26:58 2000 +0200
+++ b/src/HOLCF/Fun3.ML	Wed Jul 05 16:37:52 2000 +0200
@@ -5,6 +5,6 @@
 *)
 
 (* for compatibility with old HOLCF-Version *)
-val prems = goal thy "UU = (%x. UU)";
+Goal "UU = (%x. UU)";
 by (simp_tac (HOL_ss addsimps [UU_def,UU_fun_def]) 1);
 qed "inst_fun_pcpo";