replaced eq_sg by Sign.eq_sg;
authorwenzelm
Thu, 03 Feb 1994 13:55:20 +0100
changeset 253 d7130a753ecf
parent 252 7532f95d7f44
child 254 b1fcd27fcac4
replaced eq_sg by Sign.eq_sg;
src/Pure/goals.ML
--- a/src/Pure/goals.ML	Thu Feb 03 13:55:03 1994 +0100
+++ b/src/Pure/goals.ML	Thu Feb 03 13:55:20 1994 +0100
@@ -142,7 +142,7 @@
             val th = implies_intr_list cAs state
             val {hyps,prop,sign=sign',...} = rep_thm th
         in  if not check then standard th
-	    else if not (eq_sg(sign,sign')) then result_error state
+	    else if not (Sign.eq_sg(sign,sign')) then result_error state
 		("Signature of proof state has changed!" ^
 		 sign_error (sign,sign'))
             else if ngoals>0 then result_error state
@@ -156,7 +156,7 @@
 	    else  result_error state "proved a different theorem"
         end
   in  
-     if eq_sg(sign, #sign(rep_thm st0)) 
+     if Sign.eq_sg(sign, #sign(rep_thm st0)) 
      then (prems, st0, mkresult)
      else error ("Definitions would change the proof state's signature" ^
 		 sign_error (sign, #sign(rep_thm st0)))