diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/options.ml | 2 | ||||
| -rw-r--r-- | lib/options.mli | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/lib/options.ml b/lib/options.ml index c6b9621211..3459279bb1 100644 --- a/lib/options.ml +++ b/lib/options.ml @@ -73,6 +73,8 @@ let silently f x = let if_silent f x = if !silent then f x let if_verbose f x = if not !silent then f x +let hash_cons_proofs = ref true + (* The number of printed hypothesis in a goal *) let print_hyps_limit = ref (None : int option) diff --git a/lib/options.mli b/lib/options.mli index 3554bc98e5..d999425e92 100644 --- a/lib/options.mli +++ b/lib/options.mli @@ -44,6 +44,8 @@ val silently : ('a -> 'b) -> 'a -> 'b val if_silent : ('a -> unit) -> 'a -> unit val if_verbose : ('a -> unit) -> 'a -> unit +val hash_cons_proofs : bool ref + (* Temporary activate an option ('c must be an atomic type) *) val with_option : bool ref -> ('a -> 'b) -> 'a -> 'b |