diff options
| author | Pierre-Marie Pédrot | 2020-08-21 16:19:06 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-08-21 16:19:06 +0200 |
| commit | 85dad6f7b52c8b84a87e61eb45dbc1f28c8780ae (patch) | |
| tree | 10093376853620ddc46d27ffc4ba7e5f6ba3f65a /plugins/ssr/ssrequality.ml | |
| parent | 5db27e4dc15e0f4efd0c5707650ac1afbb42fa41 (diff) | |
| parent | af686af3cf333d2d138e5e3e485fd7228b30ab85 (diff) | |
Merge PR #12857: [ssr] when porting v8.2 code no backtracking point has to be added
Reviewed-by: CohenCyril
Reviewed-by: ppedrot
Diffstat (limited to 'plugins/ssr/ssrequality.ml')
| -rw-r--r-- | plugins/ssr/ssrequality.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/ssr/ssrequality.ml b/plugins/ssr/ssrequality.ml index da623703a2..38b26d06b9 100644 --- a/plugins/ssr/ssrequality.ml +++ b/plugins/ssr/ssrequality.ml @@ -465,7 +465,7 @@ let rwcltac ?under ?map_redex cl rdx dir sr = Tactics.apply_type ~typecheck:true cl'' [rdx; EConstr.it_mkLambda_or_LetIn r3 dc], Tacticals.New.tclTHENLIST (itacs @ rwtacs), sigma0 in let cvtac' = - Proofview.tclOR cvtac begin function + Proofview.tclORELSE cvtac begin function | (PRtype_error e, _) -> let error = Option.cata (fun (env, sigma, te) -> Pp.(fnl () ++ str "Type error was: " ++ Himsg.explain_pretype_error env sigma te)) |