equal
deleted
inserted
replaced
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!") |