diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/options.ml | 9 | ||||
| -rw-r--r-- | lib/options.mli | 4 |
2 files changed, 13 insertions, 0 deletions
diff --git a/lib/options.ml b/lib/options.ml index 4e8597aaf5..e0cebb1ebb 100644 --- a/lib/options.ml +++ b/lib/options.ml @@ -24,3 +24,12 @@ let silently f x = with e -> begin silent := oldsilent; raise e end + +(* The number of printed hypothesis in a goal *) + +let print_hyps_limit = ref (None : int option) +let set_print_hyps_limit n = print_hyps_limit := Some n +let unset_print_hyps_limit () = print_hyps_limit := None +let print_hyps_limit () = !print_hyps_limit + + diff --git a/lib/options.mli b/lib/options.mli index 2d2a566bf0..c159767aec 100644 --- a/lib/options.mli +++ b/lib/options.mli @@ -14,3 +14,7 @@ val make_silent : bool -> unit val is_silent : unit -> bool val silently : ('a -> 'b) -> 'a -> 'b +val set_print_hyps_limit : int -> unit +val unset_print_hyps_limit : unit -> unit +val print_hyps_limit : unit -> int option + |