From 24fc983730031b53f23bea6fcf2699c73a6dc87d Mon Sep 17 00:00:00 2001
From: Théo Zimmermann
Date: Tue, 2 Mar 2021 12:27:26 +0100
Subject: Dead code elimination: not reducible error message is never raised.

---
 doc/sphinx/proofs/writing-proofs/rewriting.rst | 3 ---
 pretyping/tacred.ml                            | 4 +---
 2 files changed, 1 insertion(+), 6 deletions(-)

diff --git a/doc/sphinx/proofs/writing-proofs/rewriting.rst b/doc/sphinx/proofs/writing-proofs/rewriting.rst
index f286533d78..bfaf746a06 100644
--- a/doc/sphinx/proofs/writing-proofs/rewriting.rst
+++ b/doc/sphinx/proofs/writing-proofs/rewriting.rst
@@ -577,9 +577,6 @@ the conversion in hypotheses :n:`{+ @ident}`.
    definition (say :g:`t`) and then reduces
    :g:`(t t`:sub:`1` :g:`... t`:sub:`n` :g:`)` according to :math:`\beta`:math:`\iota`:math:`\zeta`-reduction rules.
 
-.. exn:: Not reducible.
-   :undocumented:
-
 .. exn:: No head constant to reduce.
    :undocumented:
 
diff --git a/pretyping/tacred.ml b/pretyping/tacred.ml
index 430813e874..4e89018656 100644
--- a/pretyping/tacred.ml
+++ b/pretyping/tacred.ml
@@ -1203,9 +1203,7 @@ let unfoldn loccname env sigma c =
 
 (* Re-folding constants tactics: refold com in term c *)
 let fold_one_com com env sigma c =
-  let rcom =
-    try red_product env sigma com
-    with Redelimination -> user_err Pp.(str "Not reducible.") in
+  let rcom = red_product env sigma com in
   (* Reason first on the beta-iota-zeta normal form of the constant as
      unfold produces it, so that the "unfold f; fold f" configuration works
      to refold fix expressions *)
-- 
cgit v1.2.3