diff options
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/reductionops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/reductionops.ml b/pretyping/reductionops.ml index 260a012aad..383066405c 100644 --- a/pretyping/reductionops.ml +++ b/pretyping/reductionops.ml @@ -110,7 +110,7 @@ module ReductionBehaviour = struct let never = List.mem `ReductionNeverUnfold flags in let nomatch = List.mem `ReductionDontExposeCase flags in let pp_nomatch = spc() ++ if nomatch then - str "avoiding to expose match constructs" else str"" in + str "but avoid exposing match constructs" else str"" in let pp_recargs = spc() ++ str "when the " ++ pr_enum (fun x -> pr_nth (x+1)) recargs ++ str (String.plural (List.length recargs) " argument") ++ str (String.plural (if List.length recargs >= 2 then 1 else 2) " evaluate") ++ |