diff options
| author | gregoire | 2002-12-12 15:42:49 +0000 |
|---|---|---|
| committer | gregoire | 2002-12-12 15:42:49 +0000 |
| commit | 667e4a7870625bc8dedb651b278cbca4f43e793d (patch) | |
| tree | cef23852d980ae4e14d51ae38e7e76489864fff8 /contrib/interface | |
| parent | b5676df44002aa6a347f58e455af780996ed407a (diff) | |
Ajout du vernac Proof with
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3425 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/interface')
| -rw-r--r-- | contrib/interface/centaur.ml4 | 2 | ||||
| -rw-r--r-- | contrib/interface/xlate.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/contrib/interface/centaur.ml4 b/contrib/interface/centaur.ml4 index fd8d64f07d..1a660a89f5 100644 --- a/contrib/interface/centaur.ml4 +++ b/contrib/interface/centaur.ml4 @@ -470,7 +470,7 @@ let logical_kill n = let simulate_solve n tac = let path = History.get_nth_open_path (current_proof_name()) n in - solve_nth n (Tacinterp.hide_interp tac); + solve_nth n (Tacinterp.hide_interp tac (get_end_tac())); traverse_to path; Pfedit.mutate weak_undo_pftreestate; traverse_to [] diff --git a/contrib/interface/xlate.ml b/contrib/interface/xlate.ml index c9079a8fc1..2ceb5789c6 100644 --- a/contrib/interface/xlate.ml +++ b/contrib/interface/xlate.ml @@ -1223,7 +1223,7 @@ let xlate_vernac = | VernacAbort None -> CT_abort ctv_ID_OPT_OR_ALL_NONE | VernacAbortAll -> CT_abort ctv_ID_OPT_OR_ALL_ALL | VernacRestart -> CT_restart - | VernacSolve (n, tac) -> CT_solve (CT_int n, xlate_tactic tac) + | VernacSolve (n, tac, b) -> CT_solve (CT_int n, xlate_tactic tac) | VernacFocus nopt -> CT_focus (xlate_int_opt nopt) | VernacUnfocus -> CT_unfocus | VernacExtend ("HintRewrite", orient :: formula_list :: base :: t) -> |