From 092cb84f074112ab9b33f936d5a79d58102c9eec Mon Sep 17 00:00:00 2001
From: msozeau
Date: Mon, 18 Apr 2011 12:34:08 +0000
Subject: Add a flag to control betaiota reduction during unification to
 maintain backward compatibility.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14022 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tactics/auto.ml           | 1 +
 tactics/class_tactics.ml4 | 1 +
 tactics/equality.ml       | 1 +
 tactics/rewrite.ml4       | 3 +++
 tactics/tactics.ml        | 1 +
 5 files changed, 7 insertions(+)

(limited to 'tactics')

diff --git a/tactics/auto.ml b/tactics/auto.ml
index daedd98921..b51da4fe08 100644
--- a/tactics/auto.ml
+++ b/tactics/auto.ml
@@ -845,6 +845,7 @@ let auto_unif_flags = {
   modulo_delta_types = full_transparent_state;
   resolve_evars = true;
   use_evars_pattern_unification = false;
+  modulo_betaiota = false;
   modulo_eta = true
 }
 
diff --git a/tactics/class_tactics.ml4 b/tactics/class_tactics.ml4
index 2831e5ec37..356752480f 100644
--- a/tactics/class_tactics.ml4
+++ b/tactics/class_tactics.ml4
@@ -79,6 +79,7 @@ let auto_unif_flags = {
   modulo_delta_types = full_transparent_state;
   resolve_evars = false;
   use_evars_pattern_unification = true;
+  modulo_betaiota = true;
   modulo_eta = true
 }
 
diff --git a/tactics/equality.ml b/tactics/equality.ml
index 40514a28fc..7dcd58d4eb 100644
--- a/tactics/equality.ml
+++ b/tactics/equality.ml
@@ -87,6 +87,7 @@ let rewrite_unif_flags = {
   Unification.modulo_delta_types = empty_transparent_state;
   Unification.resolve_evars = true;
   Unification.use_evars_pattern_unification = true;
+  Unification.modulo_betaiota = false;
   Unification.modulo_eta = true
 }
 
diff --git a/tactics/rewrite.ml4 b/tactics/rewrite.ml4
index c633a9c0d5..334d653b12 100644
--- a/tactics/rewrite.ml4
+++ b/tactics/rewrite.ml4
@@ -301,6 +301,7 @@ let rewrite_unif_flags = {
   Unification.modulo_delta_types = full_transparent_state;
   Unification.resolve_evars = true;
   Unification.use_evars_pattern_unification = true;
+  Unification.modulo_betaiota = false;
   Unification.modulo_eta = true
 }
 
@@ -311,6 +312,7 @@ let rewrite2_unif_flags =
      Unification.modulo_delta_types = conv_transparent_state;
      Unification.resolve_evars = true;
      Unification.use_evars_pattern_unification = true;
+     Unification.modulo_betaiota = true;
      Unification.modulo_eta = true
   }
 
@@ -322,6 +324,7 @@ let general_rewrite_unif_flags () =
        Unification.modulo_delta_types = ts;
        Unification.resolve_evars = true;
        Unification.use_evars_pattern_unification = true;
+       Unification.modulo_betaiota = true;
        Unification.modulo_eta = true }
 
 let convertible env evd x y =
diff --git a/tactics/tactics.ml b/tactics/tactics.ml
index d960908337..f259dd9213 100644
--- a/tactics/tactics.ml
+++ b/tactics/tactics.ml
@@ -703,6 +703,7 @@ let elim_flags = {
   modulo_delta_types = full_transparent_state;
   resolve_evars = false;
   use_evars_pattern_unification = true;
+  modulo_betaiota = false;
   modulo_eta = true
 }
 
-- 
cgit v1.2.3