diff options
| author | Maxime Dénès | 2018-11-06 09:30:45 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2018-11-06 14:19:37 +0100 |
| commit | 58f891c100d1a1821ed6385c1d06f9e0a77ecdac (patch) | |
| tree | c0f4df2b872e71c51823ad2b62545b89897a6464 /kernel/sorts.ml | |
| parent | f6033667bd9b8069308d4bcba420c4ce0771e44f (diff) | |
Move debug term printer to kernel
Diffstat (limited to 'kernel/sorts.ml')
| -rw-r--r-- | kernel/sorts.ml | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/kernel/sorts.ml b/kernel/sorts.ml index a7bb08f5b6..566dce04c6 100644 --- a/kernel/sorts.ml +++ b/kernel/sorts.ml @@ -102,3 +102,13 @@ module Hsorts = end) let hcons = Hashcons.simple_hcons Hsorts.generate Hsorts.hcons hcons_univ + +let debug_print = function + | Set -> Pp.(str "Set") + | Prop -> Pp.(str "Prop") + | Type u -> Pp.(str "Type(" ++ Univ.Universe.pr u ++ str ")") + +let pr_sort_family = function + | InSet -> Pp.(str "Set") + | InProp -> Pp.(str "Prop") + | InType -> Pp.(str "Type") |