diff options
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/printer.ml | 5 | ||||
| -rw-r--r-- | printing/printer.mli | 2 |
2 files changed, 7 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 diff --git a/printing/printer.mli b/printing/printer.mli index a72f319636..0855f2d109 100644 --- a/printing/printer.mli +++ b/printing/printer.mli @@ -207,3 +207,5 @@ val pr_assumptionset : env -> evar_map -> types ContextObjectMap.t -> Pp.t val pr_goal_by_id : proof:Proof.t -> Id.t -> Pp.t val pr_goal_emacs : proof:Proof.t option -> int -> int -> Pp.t + +val pr_typing_flags : Declarations.typing_flags -> Pp.t |