2 files changed, 7 insertions, 0 deletions
diff --git a/lib/flags.ml b/lib/flags.ml
index 1bf393fd08..da80130283 100644
--- a/lib/flags.ml
+++ b/lib/flags.ml
@@ -55,6 +55,10 @@ let verbosely f x = without_option silent f x
 let if_silent f x = if !silent then f x
 let if_verbose f x = if not !silent then f x
 
+let auto_intros = ref false
+let make_auto_intros flag = auto_intros := flag
+let is_auto_intros () = !auto_intros
+
 let hash_cons_proofs = ref true
 
 let warn = ref true
diff --git a/lib/flags.mli b/lib/flags.mli
index 8bafa8b1f3..e8a7819c89 100644
--- a/lib/flags.mli
+++ b/lib/flags.mli
@@ -42,6 +42,9 @@ val verbosely : ('a -> 'b) -> 'a -> 'b
 val if_silent : ('a -> unit) -> 'a -> unit
 val if_verbose : ('a -> unit) -> 'a -> unit
 
+val make_auto_intros : bool -> unit
+val is_auto_intros : unit -> bool
+
 val make_warn : bool -> unit
 val if_warn : ('a -> unit) -> 'a -> unit