From 93a5f1e03e29e375be69a2361ffd6323f5300f86 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 27 Nov 2009 19:48:59 +0000
Subject: Added support for definition of fixpoints using tactics. Fixed some
 bugs in -beautify and robustness of {struct} clause.

Note: I tried to make the Automatic Introduction mode on by default
for version >= 8.3 but it is to complicated to adapt even in the
standard library.



git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12546 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 lib/flags.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib')

diff --git a/lib/flags.ml b/lib/flags.ml
index 971b560ec2..555739b114 100644
--- a/lib/flags.ml
+++ b/lib/flags.ml
@@ -65,7 +65,7 @@ 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 is_auto_intros () = version_strictly_greater V8_2 && !auto_intros
 
 let hash_cons_proofs = ref true
 
-- 
cgit v1.2.3