fixed spaces in qed;
authorwenzelm
Wed, 29 Oct 1997 16:03:19 +0100
changeset 4031 42cbf6256d60
parent 4030 ca44afcc259c
child 4032 4b1c69d8b767
fixed spaces in qed;
src/HOLCF/Porder.ML
src/HOLCF/Sprod2.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 =>
         [
--- 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 =>
         [