diff options
author | Enrico Tassi <Enrico.Tassi@inria.fr> | 2018-05-28 16:31:24 +0200 |
---|---|---|
committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2018-06-20 14:22:06 +0200 |
commit | 6ba59cef7e143f1db6e272af165da5334e324e63 (patch) | |
tree | 3f5f555c31e2298fea82ffe206cbc16b6915a3fa | |
parent | 6715e6801c1d285a12eeca55dd8b831d7efb8c0d (diff) |
[ssr] rewrite: turn anomaly into regular error
I think the bug was introduces when apply_type was made safe.
In the test joint to #7255 rewrite (setoid case) generates an
ill-typed goal and apply_type raises a Pretype_error.
It is unclear to me why the tactic monad does not turn the
pretype_error into a UserError
-rw-r--r-- | plugins/ssr/ssrequality.ml | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/plugins/ssr/ssrequality.ml b/plugins/ssr/ssrequality.ml index f929e9430..23cbf49c0 100644 --- a/plugins/ssr/ssrequality.ml +++ b/plugins/ssr/ssrequality.ml @@ -417,8 +417,6 @@ let rwcltac cl rdx dir sr gl = then errorstrm Pp.(str "Rewriting impacts evars") else errorstrm Pp.(str "Dependent type error in rewrite of " ++ pr_constr_env (pf_env gl) (project gl) (Term.mkNamedLambda pattern_id (EConstr.Unsafe.to_constr rdxt) (EConstr.Unsafe.to_constr cl))) - | CErrors.UserError _ as e -> raise e - | e -> anomaly ("cvtac's exception: " ^ Printexc.to_string e); in tclTHEN cvtac' rwtac gl |