src/Pure/goals.ML
changeset 2169 31ba286f2307
parent 2126 d927beecedf8
child 2514 ea8881e70f9c
equal deleted inserted replaced
2168:fcf18ada8904 2169:31ba286f2307
   140 	    		handle THM _ => state   (*smash flexflex pairs*)
   140 	    		handle THM _ => state   (*smash flexflex pairs*)
   141 	    val ngoals = nprems_of state
   141 	    val ngoals = nprems_of state
   142             val th = strip_shyps (implies_intr_list cAs state)
   142             val th = strip_shyps (implies_intr_list cAs state)
   143             val {hyps,prop,sign=sign',...} = rep_thm th
   143             val {hyps,prop,sign=sign',...} = rep_thm th
   144             val xshyps = extra_shyps th;
   144             val xshyps = extra_shyps th;
   145         in  if not check then standard th
   145         in  if not check then th
   146 	    else if not (Sign.eq_sg(sign,sign')) then !result_error_ref state
   146 	    else if not (Sign.eq_sg(sign,sign')) then !result_error_ref state
   147 		("Signature of proof state has changed!" ^
   147 		("Signature of proof state has changed!" ^
   148 		 sign_error (sign,sign'))
   148 		 sign_error (sign,sign'))
   149             else if ngoals>0 then !result_error_ref state
   149             else if ngoals>0 then !result_error_ref state
   150 		(string_of_int ngoals ^ " unsolved goals!")
   150 		(string_of_int ngoals ^ " unsolved goals!")