diff options
author | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-04-18 12:34:08 +0000 |
---|---|---|
committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-04-18 12:34:08 +0000 |
commit | 092cb84f074112ab9b33f936d5a79d58102c9eec (patch) | |
tree | c603cb12c52f06e3fbb63d752307bf16e6b501fa /tactics | |
parent | 0f78158fe1993b0e680d27b581bcaaad8fc009f7 (diff) |
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
Diffstat (limited to 'tactics')
-rw-r--r-- | tactics/auto.ml | 1 | ||||
-rw-r--r-- | tactics/class_tactics.ml4 | 1 | ||||
-rw-r--r-- | tactics/equality.ml | 1 | ||||
-rw-r--r-- | tactics/rewrite.ml4 | 3 | ||||
-rw-r--r-- | tactics/tactics.ml | 1 |
5 files changed, 7 insertions, 0 deletions
diff --git a/tactics/auto.ml b/tactics/auto.ml index daedd9892..b51da4fe0 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 2831e5ec3..356752480 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 40514a28f..7dcd58d4e 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 c633a9c0d..334d653b1 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 d96090833..f259dd921 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 } |