diff options
| author | msozeau | 2008-01-30 04:16:30 +0000 |
|---|---|---|
| committer | msozeau | 2008-01-30 04:16:30 +0000 |
| commit | 5eca868248b8faf8af73bd3bc015dea00a674752 (patch) | |
| tree | a279361f7870edc0662d8756220f1d9006301c16 /parsing/ppvernac.ml | |
| parent | c10e6e3f2b2eec7350a1e9d9883191ed03f647d0 (diff) | |
Support for substructures in classes using :> notation
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10484 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/ppvernac.ml')
| -rw-r--r-- | parsing/ppvernac.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/parsing/ppvernac.ml b/parsing/ppvernac.ml index 3502a9e86c..96b2a71673 100644 --- a/parsing/ppvernac.ml +++ b/parsing/ppvernac.ml @@ -694,8 +694,8 @@ let rec pr_vernac = function pr_and_type_binders_arg par ++ spc () ++ str":" ++ spc() ++ pr_rawsort (snd ar) ++ spc () ++ str"where" ++ spc () ++ - prlist_with_sep (fun () -> str";" ++ spc()) (pr_lident_constr (spc () ++ str":" ++ spc())) props ) - + prlist_with_sep (fun () -> str";" ++ spc()) + (fun (lid,oc,c) -> pr_lident_constr ((if oc then str" :>" else str" :") ++ spc()) (lid,c)) props ) | VernacInstance (sup, (instid, bk, cl), props) -> hov 1 ( |