From 855339b0cb7805d184efa31571fb3cc5581df0b1 Mon Sep 17 00:00:00 2001 From: David Aspinall Date: Wed, 8 Feb 2012 17:42:23 +0000 Subject: Add restart command (does nothing) --- hol-light/pg_tactics.ml | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/hol-light/pg_tactics.ml b/hol-light/pg_tactics.ml index c54626b7..de6132a9 100644 --- a/hol-light/pg_tactics.ml +++ b/hol-light/pg_tactics.ml @@ -310,15 +310,16 @@ let pg_undo n = the_current_xgoalstack := snd (chop_list n l); p());; -let pg_kill () = +let pg_kill() = let n = length (!the_current_xgoalstack) in (dec_pg_global_state n; the_current_xgoalstack := []; - p());; - -let pg_forget s = ();; + print_string "*** Proof aborted.");; +let pg_forget s = ();; (* TODO *) +let pg_restart() = + print_string "*** Session restarted.";; (* ------------------------------------------------------------------------- *) (* Configure the annotated prompt. *) -- cgit v1.2.3