diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-06-23 13:16:38 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-06-23 13:16:38 +0000 |
| commit | b603b1a781382e324925ae566d011e717071917c (patch) | |
| tree | 3e2e188668263c8f917c892e3fa2f27fccd17b49 | |
| parent | 81200e25dec5cb3ee37f3ec6b153d130900258a8 (diff) | |
Suite passage ident -> hyp dans syntaxe de 'replace with in'
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8981 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | contrib/interface/xlate.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/interface/xlate.ml b/contrib/interface/xlate.ml index ecb04e075..e8fd52dba 100644 --- a/contrib/interface/xlate.ml +++ b/contrib/interface/xlate.ml @@ -978,7 +978,7 @@ and xlate_tac = let id_opt = match out_gen Extratactics.rawwit_in_arg_hyp id_opt with | None -> ctv_ID_OPT_NONE - | Some id -> ctf_ID_OPT_SOME (xlate_ident id) + | Some (_,id) -> ctf_ID_OPT_SOME (xlate_ident id) in let tac_opt = match out_gen (Extratactics.rawwit_by_arg_tac) tac_opt with |