diff options
| author | herbelin | 2010-04-18 12:05:15 +0000 |
|---|---|---|
| committer | herbelin | 2010-04-18 12:05:15 +0000 |
| commit | 6f89e06a3230c3932cb43bd28e0f07f47d954a3f (patch) | |
| tree | 80e9985d920633e561f0039504e1d6bd5ab19fda /tactics | |
| parent | e15318e086e33f74664eed87322cd3ae20f5e13d (diff) | |
Fixed some printing bugs.
- Notations with coercions to funclass inserted were not working any
longer since r11886. Made a fix but maybe should we eventually type
the notations so that they have a canonical form (and in particular
with coercions pre-inserted?).
- Improved spacing management in printing extra tactic arguments "by" and "in".
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12951 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/extraargs.ml4 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tactics/extraargs.ml4 b/tactics/extraargs.ml4 index e6eefea8ab..adf8275ee8 100644 --- a/tactics/extraargs.ml4 +++ b/tactics/extraargs.ml4 @@ -184,7 +184,7 @@ ARGUMENT EXTEND hloc let pr_by_arg_tac _prc _prlc prtac opt_c = match opt_c with | None -> mt () - | Some t -> spc () ++ hov 2 (str "by" ++ spc () ++ prtac (3,Ppextend.E) t) + | Some t -> hov 2 (str "by" ++ spc () ++ prtac (3,Ppextend.E) t) ARGUMENT EXTEND by_arg_tac TYPED AS tactic_opt @@ -200,8 +200,8 @@ let pr_in_hyp pr_id (lo,concl) : Pp.std_ppcmds = | None,true -> str "in" ++ spc () ++ str "*" | None,false -> str "in" ++ spc () ++ str "*" ++ spc () ++ str "|-" | Some l,_ -> - str "in" ++ spc () ++ - Util.prlist_with_sep spc pr_id l ++ + str "in" ++ + Util.prlist (fun id -> spc () ++ pr_id id) l ++ match concl with | true -> spc () ++ str "|-" ++ spc () ++ str "*" | _ -> mt () |