diff options
| author | herbelin | 2002-12-21 11:51:33 +0000 |
|---|---|---|
| committer | herbelin | 2002-12-21 11:51:33 +0000 |
| commit | 0dece739c580b39d77708bb8117442e7e1cd560b (patch) | |
| tree | 3db834fd12224590c4feddd213a41a0edd7c4986 /contrib/interface | |
| parent | 094b40758cb4278b33a87e5633cf4ac716f348b4 (diff) | |
Légère amélioration des messages d'erreur des with-bindings et des Rewrite
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3474 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/interface')
| -rw-r--r-- | contrib/interface/pbp.ml | 2 | ||||
| -rw-r--r-- | contrib/interface/xlate.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/contrib/interface/pbp.ml b/contrib/interface/pbp.ml index 469a067f44..bc9f706c57 100644 --- a/contrib/interface/pbp.ml +++ b/contrib/interface/pbp.ml @@ -196,7 +196,7 @@ let make_pbp_atomic_tactic = function | PbpLApply h -> TacAtom (zz, TacLApply (make_var h)) | PbpApply h -> TacAtom (zz, TacApply (make_var h,NoBindings)) | PbpElim (hyp_name, names) -> - let bind = List.map (fun s -> (NamedHyp s,make_pbp_pattern s)) names in + let bind = List.map (fun s ->(zz,NamedHyp s,make_pbp_pattern s)) names in TacAtom (zz, TacElim ((make_var hyp_name,ExplicitBindings bind),None)) | PbpTryClear l -> diff --git a/contrib/interface/xlate.ml b/contrib/interface/xlate.ml index 0d3739636e..272ca09f50 100644 --- a/contrib/interface/xlate.ml +++ b/contrib/interface/xlate.ml @@ -413,7 +413,7 @@ let xlate_quantified_hypothesis_opt = function | Some (AnonHyp n) -> xlate_int_to_id_or_int_opt n | Some (NamedHyp id) -> xlate_id_to_id_or_int_opt id;; -let xlate_explicit_binding (h,c) = +let xlate_explicit_binding (loc,h,c) = CT_binding (xlate_quantified_hypothesis h, xlate_formula c) let xlate_bindings = function |