# HG changeset patch
# User wenzelm
# Date 878137399 -3600
# Node ID 42cbf6256d6092d1e4205ee392903a66316bb922
# Parent  ca44afcc259cc1273b91793339d2ee683da7b0af
fixed spaces in qed;

diff -r ca44afcc259c -r 42cbf6256d60 src/HOLCF/Porder.ML
--- 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 =>
         [
diff -r ca44afcc259c -r 42cbf6256d60 src/HOLCF/Sprod2.ML
--- 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 =>
         [