diff options
Diffstat (limited to 'printing/miscprint.ml')
| -rw-r--r-- | printing/miscprint.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/printing/miscprint.ml b/printing/miscprint.ml index 22db3d0b..7b2c5695 100644 --- a/printing/miscprint.ml +++ b/printing/miscprint.ml @@ -28,14 +28,14 @@ and pr_intro_pattern_action prc = function | IntroInjection pl -> str "[=" ++ hv 0 (prlist_with_sep spc (pr_intro_pattern prc) pl) ++ str "]" - | IntroApplyOn (c,pat) -> pr_intro_pattern prc pat ++ str "/" ++ prc c + | IntroApplyOn (c,pat) -> pr_intro_pattern prc pat ++ str "%" ++ prc c | IntroRewrite true -> str "->" | IntroRewrite false -> str "<-" and pr_or_and_intro_pattern prc = function - | [pl] -> + | IntroAndPattern pl -> str "(" ++ hv 0 (prlist_with_sep pr_comma (pr_intro_pattern prc) pl) ++ str ")" - | pll -> + | IntroOrPattern pll -> str "[" ++ hv 0 (prlist_with_sep pr_bar (prlist_with_sep spc (pr_intro_pattern prc)) pll) ++ str "]" |