From 164afe9ffbfdc74a567da3c8ba77b6ef8c848b23 Mon Sep 17 00:00:00 2001 From: Hugo Herbelin Date: Sat, 16 Apr 2016 22:09:24 +0200 Subject: Fixing extra space in printing destruct/induction as. --- printing/pptactic.ml | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'printing/pptactic.ml') diff --git a/printing/pptactic.ml b/printing/pptactic.ml index 4b4f04379..5711e6c4f 100644 --- a/printing/pptactic.ml +++ b/printing/pptactic.ml @@ -523,10 +523,9 @@ module Make let pr_with_induction_names prc = function | None, None -> mt () - | Some eqpat, None -> spc () ++ hov 1 (pr_eqn_ipat eqpat) - | None, Some ipat -> spc () ++ hov 1 (pr_as_disjunctive_ipat prc ipat) + | Some eqpat, None -> hov 1 (pr_eqn_ipat eqpat) + | None, Some ipat -> hov 1 (pr_as_disjunctive_ipat prc ipat) | Some eqpat, Some ipat -> - spc () ++ hov 1 (pr_as_disjunctive_ipat prc ipat ++ spc () ++ pr_eqn_ipat eqpat) let pr_as_intro_pattern prc ipat = -- cgit v1.2.3