From e1cf5ccd8df7080d7dd2aadf0305a9d3ba9c5d9d Mon Sep 17 00:00:00 2001
From: Maxime Dénès
Date: Sun, 18 May 2014 13:03:54 -0400
Subject: Restored old behavior of injection on proofs by default.

Use Set Injection On Proof to enable the new behavior.
---
 CHANGES             | 6 +++---
 tactics/equality.ml | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/CHANGES b/CHANGES
index 2dd953bf33..66d5a0e0f7 100644
--- a/CHANGES
+++ b/CHANGES
@@ -104,9 +104,9 @@ Tactics
   former behavior obtainable by "Unset Injection L2R Pattern Order").
 - New tactic "rewrite_strat" for generalized rewriting with user-defined
   strategies, subsumming autorewrite.
-- Injection now also deduces equality of arguments of sort Prop. Old behavior
-  can be restored by "Unset Injection On Proofs". Also improved the error
-  messages.
+- Injection can now also deduce equality of arguments of sort Prop, by using
+  the option "Set Injection On Proofs" (disabled by default). Also improved the
+  error messages.
 - Tactic "subst id" now supports id occurring in dependent local definitions.
 
 Program
diff --git a/tactics/equality.ml b/tactics/equality.ml
index 6e50b923b0..15a7746136 100644
--- a/tactics/equality.ml
+++ b/tactics/equality.ml
@@ -611,7 +611,7 @@ let replace_in_clause_maybe_by c2 c1 cl tac_opt =
 exception DiscrFound of
   (constructor * int) list * constructor * constructor
 
-let injection_on_proofs = ref true
+let injection_on_proofs = ref false
 
 let _ =
   declare_bool_option
-- 
cgit v1.2.3