| author | huffman | 
| Thu, 19 Nov 2009 22:28:36 -0800 | |
| changeset 33810 | 38375b16ffd9 | 
| parent 33809 | 033831fd9ef3 | 
| child 33811 | b1b66441275d | 
--- a/src/HOLCF/Tools/Domain/domain_theorems.ML Thu Nov 19 22:25:11 2009 -0800 +++ b/src/HOLCF/Tools/Domain/domain_theorems.ML Thu Nov 19 22:28:36 2009 -0800 @@ -998,7 +998,7 @@ handle THM _ => (warning "Induction proofs failed (THM raised)."; ([], TrueI)) | ERROR _ => - (warning "Induction proofs failed (ERROR raised)."; ([], TrueI)); + (warning "Cannot prove induction rule"; ([], TrueI)); end; (* local *)