diff options
| author |  David Aspinall <da@inf.ed.ac.uk> | 2012-02-08 17:42:23 +0000 |
|---|---|---|
| committer | David Aspinall <da@inf.ed.ac.uk> | 2012-02-08 17:42:23 +0000 |
| commit | 855339b0cb7805d184efa31571fb3cc5581df0b1 (patch) | |
| tree | e5551a79eca68bd79d0778e2b79fb5babb69f99e /hol-light | |
| parent | 39b2499da290056f4f26f419da8048f1732c5b7b (diff) | |
Add restart command (does nothing)
Diffstat (limited to 'hol-light')
| -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. *) |