diff options
| author | coqbot-app[bot] | 2021-03-02 21:27:26 +0000 |
|---|---|---|
| committer | GitHub | 2021-03-02 21:27:26 +0000 |
| commit | a5bea627d1fe742229497b466ca24b470c20d269 (patch) | |
| tree | 1528d02c42c27f604f477c154219391317dc6287 /pretyping | |
| parent | 0b08ab59b59fc0ef71fc4a16f6d48a5fb384939c (diff) | |
| parent | 24fc983730031b53f23bea6fcf2699c73a6dc87d (diff) | |
Merge PR #13889: Dead code elimination: not reducible error message is never raised.
Reviewed-by: jfehrle
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/tacred.ml | 4 |
1 files changed, 1 insertions, 3 deletions
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 *) |