adding an option functional_induction_rewrite_dependent to make functional induction using not v8.2 version of subst. By default functional induction uses new version of subst

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12592 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 13 insertions, 0 deletions

diff --git a/plugins/funind/indfun_common.ml b/plugins/funind/indfun_common.ml
index fb1204c1f..9c15d9d12 100644
--- a/plugins/funind/indfun_common.ml
+++ b/plugins/funind/indfun_common.ml
@@ -483,9 +483,22 @@ let add_Function is_general f =
 let pr_table () = pr_table !from_function
 (*********************************)
 (* Debuging *)
+let functional_induction_rewrite_dependent_proofs = ref true
 let function_debug = ref false
 open Goptions
 
+let functional_induction_rewrite_dependent_proofs_sig = 
+  {
+    optsync = false;
+    optname = "functional induction rewrite dependent";
+    optkey =  ["functional_induction_rewrite_dependent"];
+    optread = (fun () -> !functional_induction_rewrite_dependent_proofs);
+    optwrite = (fun b -> functional_induction_rewrite_dependent_proofs := b)
+  }
+let _ = declare_bool_option functional_induction_rewrite_dependent_proofs_sig
+
+let do_rewrite_dependent () = !functional_induction_rewrite_dependent_proofs = true
+
 let function_debug_sig =
   {
     optsync = false;