diff options
| -rw-r--r-- | toplevel/vernacentries.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index fd58ae3ed5..c194917721 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -1583,10 +1583,12 @@ let _ = | _ -> invalid_arg "SOLVE" in (fun () -> + if not (refining ()) then + error "Unknown command of the non proof-editing mode"; solve_nth n (Tacinterp.interp tcom); print_subgoals(); (* in case a strict subtree was completed, - go back to the top of the prooftree *) + go back to the top of the prooftree *) if subtree_solved () then (reset_top_of_tree (); print_subgoals()) )) |