diff options
| author |  David Aspinall <da@inf.ed.ac.uk> | 2012-02-08 18:14:23 +0000 |
|---|---|---|
| committer | David Aspinall <da@inf.ed.ac.uk> | 2012-02-08 18:14:23 +0000 |
| commit | f0a784052b42a46827f0c1d89046d2c5b5f2c7d1 (patch) | |
| tree | f4cd972753809d748f308f5d8914eee476243fa4 /hol-light/pg_tactics.ml | |
| parent | b794252aab2673cc60ecbfcc8fe8bf454e5468ea (diff) | |
Tweak output strings and prompt matching
Diffstat (limited to 'hol-light/pg_tactics.ml')
| -rw-r--r-- | hol-light/pg_tactics.ml | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/hol-light/pg_tactics.ml b/hol-light/pg_tactics.ml index de6132a9..2943f461 100644 --- a/hol-light/pg_tactics.ml +++ b/hol-light/pg_tactics.ml @@ -314,12 +314,13 @@ let pg_kill() = let n = length (!the_current_xgoalstack) in (dec_pg_global_state n; the_current_xgoalstack := []; - print_string "*** Proof aborted.");; + print_string "*** Proof aborted.\n");; -let pg_forget s = ();; (* TODO *) +let pg_forget s = + print_string ("*** Remove theorem "^s^"\n");; let pg_restart() = - print_string "*** Session restarted.";; + print_string "*** Session restarted.\n";; (* ------------------------------------------------------------------------- *) (* Configure the annotated prompt. *) |