diff options
-rw-r--r-- | hol-light/pg_tactics.ml | 9 |
1 files 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. *) |