diff options
| author | Théo Zimmermann | 2021-03-02 12:27:26 +0100 |
|---|---|---|
| committer | Théo Zimmermann | 2021-03-02 12:27:26 +0100 |
| commit | 24fc983730031b53f23bea6fcf2699c73a6dc87d (patch) | |
| tree | 7be2a1d090f4b3afc8618d0088852e1f02870c80 | |
| parent | 1c80a79ae2824027edeea2439bf7e53298724be8 (diff) | |
Dead code elimination: not reducible error message is never raised.
| -rw-r--r-- | doc/sphinx/proofs/writing-proofs/rewriting.rst | 3 | ||||
| -rw-r--r-- | pretyping/tacred.ml | 4 |
2 files changed, 1 insertions, 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 *) |