diff options
| author | letouzey | 2012-04-23 15:14:14 +0000 |
|---|---|---|
| committer | letouzey | 2012-04-23 15:14:14 +0000 |
| commit | e86ea2b51a9f10a0065416e6ec0f49f649129d83 (patch) | |
| tree | fac1cd3ca1c75a2e59fc4b21996c011f9ecfc9fa /toplevel/backtrack.ml | |
| parent | e3fa43b82f5deb61faf2dddca01e7f1576abb352 (diff) | |
correct abort in Function when a proof of inversion fails
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15239 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/backtrack.ml')
| -rw-r--r-- | toplevel/backtrack.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/backtrack.ml b/toplevel/backtrack.ml index a84550a5d3..24a056d738 100644 --- a/toplevel/backtrack.ml +++ b/toplevel/backtrack.ml @@ -167,7 +167,7 @@ let reset_initial () = let init_label = Lib.first_command_label in if Lib.current_command_label () = init_label then () else begin - if Pfedit.refining() then Pfedit.delete_all_proofs (); + Pfedit.delete_all_proofs (); Lib.reset_label init_label; Stack.clear history; Stack.push |