diff options
| author | Amin Timany | 2017-05-04 19:12:45 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2017-06-16 04:51:18 +0200 |
| commit | 0c94de1f8c598c1869f71fee86bdbe4f0000a502 (patch) | |
| tree | 766e45ea9bd38c8978542ce90dad3ba1d96b0f98 /printing/ppvernac.ml | |
| parent | 47ce63d23b8efe35babe0f4429c550400afd6b4f (diff) | |
Add printing of cumulativity in inductive types
Diffstat (limited to 'printing/ppvernac.ml')
| -rw-r--r-- | printing/ppvernac.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/printing/ppvernac.ml b/printing/ppvernac.ml index 6a47c308d3..4a5cfe6301 100644 --- a/printing/ppvernac.ml +++ b/printing/ppvernac.ml @@ -759,8 +759,10 @@ open Decl_kinds | Inductive_kw -> "Inductive" | CoInductive -> "CoInductive" | Class _ -> "Class" | Variant -> "Variant" in - let cm = if cum then "Cumulative" else "NonCumulative" in - cm ^ " " ^ kind + if p then + let cm = if cum then "Cumulative" else "NonCumulative" in + cm ^ " " ^ kind + else kind in return ( hov 1 (pr_oneind key (List.hd l)) ++ |