diff options
| author | barras | 2012-11-21 14:36:17 +0000 |
|---|---|---|
| committer | barras | 2012-11-21 14:36:17 +0000 |
| commit | 36f655f6ff08c6b6f744e1d26465e07a95f0fc9a (patch) | |
| tree | c1066afb4604113d2a7816109d3bf62438490ade /printing/prettyp.ml | |
| parent | ad3449aaf7bfed47b476f958f1c1ebfb898effc3 (diff) | |
Print univ constraints generated by a constant or inductive (when flag is set)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15989 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'printing/prettyp.ml')
| -rw-r--r-- | printing/prettyp.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/printing/prettyp.ml b/printing/prettyp.ml index 3136847b03..1e17a8ab08 100644 --- a/printing/prettyp.ml +++ b/printing/prettyp.ml @@ -418,10 +418,12 @@ let print_constant with_values sep sp = | None -> str"*** [ " ++ print_basename sp ++ str " : " ++ cut () ++ pr_ltype typ ++ - str" ]" + str" ]" ++ + Printer.pr_univ_cstr cb.const_constraints | _ -> print_basename sp ++ str sep ++ cut () ++ - (if with_values then print_typed_body (val_0,typ) else pr_ltype typ)) + (if with_values then print_typed_body (val_0,typ) else pr_ltype typ)++ + Printer.pr_univ_cstr cb.const_constraints) let gallina_print_constant_with_infos sp = print_constant true " = " sp ++ |