diff options
| author | msozeau | 2009-09-22 20:23:05 +0000 |
|---|---|---|
| committer | msozeau | 2009-09-22 20:23:05 +0000 |
| commit | 287058532aefd848df5d83ee29707359672b626f (patch) | |
| tree | 47c55470a6af179ce2ae5fa677bccdb774d32fb2 /lib | |
| parent | 5a183ead91244c881df39bb817a9dded2769bd8f (diff) | |
Add the option to automatically introduce variables declared before the
colon in (mutual) proofs with [Set Automatic Introduction].
Fix a minor test-suite issue in ProgramWf due to new handling of the
default obligation tactic.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12351 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/flags.ml | 4 | ||||
| -rw-r--r-- | lib/flags.mli | 3 |
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 |