diff options
Diffstat (limited to 'src/pretty/Pretty.ml')
-rw-r--r-- | src/pretty/Pretty.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/pretty/Pretty.ml b/src/pretty/Pretty.ml index 8b7ad1a..fa25a40 100644 --- a/src/pretty/Pretty.ml +++ b/src/pretty/Pretty.ml @@ -74,6 +74,7 @@ struct (* TODO: improve indentation *) and pp fmt = function | S.Var ix -> pp_var fmt ix + | S.Def (p, _) -> Ident.pp fmt p | S.Pi (name, base, fam) -> rassoc 1 pp_arg ~sep:" -> " (bind name pp) fmt ((name, base), fam) | S.Lam (name, body) -> Fmt.pf fmt "@[\\@[%a@] -> @[%a@]@]" pp_local_name name (bind name pp) body | S.Sg (name, base, fam) -> rassoc 2 pp_arg ~sep:" * " (bind name pp) fmt ((name, base), fam) |