diff options
| author | msozeau | 2007-03-13 20:30:36 +0000 |
|---|---|---|
| committer | msozeau | 2007-03-13 20:30:36 +0000 |
| commit | bed901fd770c13c1f9825f51b4ed80c9bce280bc (patch) | |
| tree | b297ea8a0c65c6c792721c6ab9df6255691123e3 /contrib/subtac/g_subtac.ml4 | |
| parent | d3ac30ae99a9e56bdf0718487a4607e1fae79242 (diff) | |
Solve obligation handling bug of trying to solve automatically at Next Obligation time. Now done at Qed or Defined.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9700 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/subtac/g_subtac.ml4')
| -rw-r--r-- | contrib/subtac/g_subtac.ml4 | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/contrib/subtac/g_subtac.ml4 b/contrib/subtac/g_subtac.ml4 index d589c5c1f6..6285599dc8 100644 --- a/contrib/subtac/g_subtac.ml4 +++ b/contrib/subtac/g_subtac.ml4 @@ -105,8 +105,10 @@ VERNAC COMMAND EXTEND Subtac_Obligations END VERNAC COMMAND EXTEND Subtac_Solve_Obligations -| [ "Solve" "Obligations" "of" ident(name) "using" tactic(t) ] -> [ Subtac_obligations.solve_obligations (Some name) (Tacinterp.interp t) ] -| [ "Solve" "Obligations" "using" tactic(t) ] -> [ Subtac_obligations.solve_obligations None (Tacinterp.interp t) ] +| [ "Solve" "Obligations" "of" ident(name) "using" tactic(t) ] -> + [ Subtac_obligations.try_solve_obligations (Some name) (Tacinterp.interp t) ] +| [ "Solve" "Obligations" "using" tactic(t) ] -> + [ Subtac_obligations.try_solve_obligations None (Tacinterp.interp t) ] | [ "Admit" "Obligations" "of" ident(name) ] -> [ Subtac_obligations.admit_obligations (Some name) ] | [ "Admit" "Obligations" ] -> [ Subtac_obligations.admit_obligations None ] END |