diff options
| author | coqbot-app[bot] | 2021-01-20 12:10:46 +0000 |
|---|---|---|
| committer | GitHub | 2021-01-20 12:10:46 +0000 |
| commit | 471fc4035adec0e96957aaddbd7fd3034539dc22 (patch) | |
| tree | f7bc0de59394bac0bf528d2cf8a40cd50262dbd9 /vernac | |
| parent | 071c50e9c2755e93766e5fb047b0a9065934e8fe (diff) | |
| parent | e881720a724ffa4e6201cc1d460c66ce373713d9 (diff) | |
Merge PR #13744: Make sure "Print Module" write a dot at the end of inductive definitions.
Reviewed-by: SkySkimmer
Diffstat (limited to 'vernac')
| -rw-r--r-- | vernac/printmod.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/vernac/printmod.ml b/vernac/printmod.ml index fdf7f6c74a..ba4a7857e7 100644 --- a/vernac/printmod.ml +++ b/vernac/printmod.ml @@ -124,7 +124,7 @@ let print_mutual_inductive env mind mib udecl = let sigma = Evd.from_ctx (UState.of_binders bl) in hov 0 (def keyword ++ spc () ++ prlist_with_sep (fun () -> fnl () ++ str" with ") - (print_one_inductive env sigma mib) inds ++ + (print_one_inductive env sigma mib) inds ++ str "." ++ Printer.pr_universes sigma ?variance:mib.mind_variance mib.mind_universes) let get_fields = @@ -173,7 +173,7 @@ let print_record env mind mib udecl = prlist_with_sep (fun () -> str ";" ++ brk(2,0)) (fun (id,b,c) -> Id.print id ++ str (if b then " : " else " := ") ++ - Printer.pr_lconstr_env envpar sigma c) fields) ++ str" }" ++ + Printer.pr_lconstr_env envpar sigma c) fields) ++ str" }." ++ Printer.pr_universes sigma ?variance:mib.mind_variance mib.mind_universes ) |