From f0a784052b42a46827f0c1d89046d2c5b5f2c7d1 Mon Sep 17 00:00:00 2001 From: David Aspinall Date: Wed, 8 Feb 2012 18:14:23 +0000 Subject: Tweak output strings and prompt matching --- hol-light/pg_tactics.ml | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'hol-light/pg_tactics.ml') 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. *) -- cgit v1.2.3