aboutsummaryrefslogtreecommitdiff
path: root/printing/printer.ml
diff options
context:
space:
mode:
Diffstat (limited to 'printing/printer.ml')
-rw-r--r--printing/printer.ml5
1 files changed, 5 insertions, 0 deletions
diff --git a/printing/printer.ml b/printing/printer.ml
index ec1b9b8e49..9c74d8cfbb 100644
--- a/printing/printer.ml
+++ b/printing/printer.ml
@@ -1003,3 +1003,8 @@ let print_and_diff oldp newp =
pr_open_subgoals ~proof
in
Feedback.msg_notice output;;
+
+let pr_typing_flags flags =
+ str "check_guarded: " ++ bool flags.check_guarded ++ fnl ()
+ ++ str "check_positive: " ++ bool flags.check_positive ++ fnl ()
+ ++ str "check_universes: " ++ bool flags.check_universes