diff options
| -rw-r--r-- | tactics/tacinterp.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index 94ea43f45d..1957f04751 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -2421,7 +2421,9 @@ and interp_atomic ist gl tac = | TacChange (Some op,c,cl) -> let sign,op = interp_typed_pattern ist env sigma op in h_change (Some op) - (pf_interp_constr ist (extend_gl_hyps gl sign) c) + (try pf_interp_constr ist (extend_gl_hyps gl sign) c + with Not_found | Anomaly _ (* Hack *) -> + errorlabstrm "" (strbrk "Failed to get enough information from the left-hand side to type the right-hand side.")) (interp_clause ist gl cl) (* Equivalence relations *) |