diff options
| author |  ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-03-11 21:35:19 +0000 |
|---|---|---|
| committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-03-11 21:35:19 +0000 |
| commit | 7c281301637f783beaec858a5fee665e99a6813b (patch) | |
| tree | be517bc917ed6dba36024659335763850918e5d5 /printing | |
| parent | 14d27313ae3bdec2a61ce04cee9129b6e6775252 (diff) | |
Allowing (Co)Fixpoint to be defined local and Let-style.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16266 85f007b7-540e-0410-9357-904b9bb8a0f7
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 850ad2b75..3fe522113 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() ++ |