diff options
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/ppvernac.ml | 18 |
1 files changed, 14 insertions, 4 deletions
diff --git a/printing/ppvernac.ml b/printing/ppvernac.ml index 850ad2b759..3fe5221134 100644 --- a/printing/ppvernac.ml +++ b/printing/ppvernac.ml @@ -668,7 +668,12 @@ let rec pr_vernac = function (prlist (fun ind -> fnl() ++ hov 1 (pr_oneind "with" ind)) (List.tl l)) - | VernacFixpoint recs -> + | VernacFixpoint (local, recs) -> + let local = match local with + | Discharge -> "Let " + | Local -> "Local " + | Global -> "" + in let pr_onerec = function | ((loc,id),ro,bl,type_,def),ntn -> let annot = pr_guard_annot pr_lconstr_expr bl ro in @@ -677,17 +682,22 @@ let rec pr_vernac = function ++ pr_opt (fun def -> str":=" ++ brk(1,2) ++ pr_lconstr def) def ++ prlist (pr_decl_notation pr_constr) ntn in - hov 0 (str "Fixpoint" ++ spc() ++ + hov 0 (str local ++ str "Fixpoint" ++ spc() ++ prlist_with_sep (fun _ -> fnl() ++ str"with ") pr_onerec recs) - | VernacCoFixpoint corecs -> + | VernacCoFixpoint (local, corecs) -> + let local = match local with + | Discharge -> "Let " + | Local -> "Local " + | Global -> "" + in let pr_onecorec (((loc,id),bl,c,def),ntn) = pr_id id ++ spc() ++ pr_binders bl ++ spc() ++ str":" ++ spc() ++ pr_lconstr_expr c ++ pr_opt (fun def -> str" :=" ++ brk(1,2) ++ pr_lconstr def) def ++ prlist (pr_decl_notation pr_constr) ntn in - hov 0 (str "CoFixpoint" ++ spc() ++ + hov 0 (str local ++ str "CoFixpoint" ++ spc() ++ prlist_with_sep (fun _ -> fnl() ++ str"with ") pr_onecorec corecs) | VernacScheme l -> hov 2 (str"Scheme" ++ spc() ++ |