diff options
| author | Enrico Tassi | 2018-11-12 19:33:09 +0100 |
|---|---|---|
| committer | Enrico Tassi | 2018-11-14 10:49:59 +0100 |
| commit | 68197ed162d0dd5e3a1b9bf490a81b6e840a8408 (patch) | |
| tree | 0b4329b5ee213cbc9c518c4eb374ac23cf489b5e /plugins | |
| parent | 91fb0d2414e478bafbff8aabb8e1238b46f45561 (diff) | |
ssr: elim: do resolve TC once and forall at the very end
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/ssr/ssrelim.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/plugins/ssr/ssrelim.ml b/plugins/ssr/ssrelim.ml index 5067d8af31..d09b81593e 100644 --- a/plugins/ssr/ssrelim.ml +++ b/plugins/ssr/ssrelim.ml @@ -353,6 +353,7 @@ let ssrelim ?(ind=ref None) ?(is_case=false) deps what ?elim eqid elim_intro_tac ppdebug(lazy Pp.(str"elim_pred_ty=" ++ pp_term gl pty)); let gl = pf_unify_HO gl pred elim_pred in let elim = fire_subst gl elim in + let gl = pf_resolve_typeclasses ~where:elim ~fail:false gl in let gl, _ = pf_e_type_of gl elim in (* check that the patterns do not contain non instantiated dependent metas *) let () = |