src/Pure/goals.ML
changeset 253 d7130a753ecf
parent 230 ec8a2b6aa8a7
child 545 fc4ff96bb0e9
--- 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)))