--- a/src/HOLCF/Porder.ML Wed Oct 29 14:23:49 1997 +0100
+++ b/src/HOLCF/Porder.ML Wed Oct 29 16:03:19 1997 +0100
@@ -12,7 +12,7 @@
(* lubs are unique *)
(* ------------------------------------------------------------------------ *)
-qed_goalw "unique_lub "thy [is_lub, is_ub]
+qed_goalw "unique_lub" thy [is_lub, is_ub]
"[| S <<| x ; S <<| y |] ==> x=y"
( fn prems =>
[
--- a/src/HOLCF/Sprod2.ML Wed Oct 29 14:23:49 1997 +0100
+++ b/src/HOLCF/Sprod2.ML Wed Oct 29 16:03:19 1997 +0100
@@ -66,7 +66,7 @@
]);
-qed_goal " monofun_Ispair" Sprod2.thy
+qed_goal "monofun_Ispair" Sprod2.thy
"[|x1<<x2; y1<<y2|] ==> Ispair x1 y1 << Ispair x2 y2"
(fn prems =>
[