diff options
| author |  Stephane Glondu <steph@glondu.net> | 2012-12-29 10:57:45 +0100 |
|---|---|---|
| committer | Stephane Glondu <steph@glondu.net> | 2012-12-29 10:57:45 +0100 |
| commit | 357d49cfb956380788efbf6d080ab00e678d29f7 (patch) | |
| tree | 2b133eca4ef9b37eb9245db01db72493e5cbe19b /tactics/extraargs.ml4 | |
| parent | eabf57d06ca1eafa762d7f31262e5515401eff55 (diff) | |
| parent | bf12eb93f3f6a6a824a10878878fadd59745aae0 (diff) | |
Merge tag 'upstream/8.4pl1dfsg' into experimental/master
Upstream version 8.4pl1dfsg
Diffstat (limited to 'tactics/extraargs.ml4')
| -rw-r--r-- | tactics/extraargs.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/extraargs.ml4 b/tactics/extraargs.ml4 index d3403a18..613779c2 100644 --- a/tactics/extraargs.ml4 +++ b/tactics/extraargs.ml4 @@ -194,7 +194,7 @@ let pr_in_hyp pr_id (lo,concl) : Pp.std_ppcmds = | None,false -> str "in" ++ spc () ++ str "*" ++ spc () ++ str "|-" | Some l,_ -> str "in" ++ - Util.prlist (fun id -> spc () ++ pr_id id) l ++ + spc () ++ Util.prlist_with_sep Util.pr_comma pr_id l ++ match concl with | true -> spc () ++ str "|-" ++ spc () ++ str "*" | _ -> mt () |