diff options
| author | Matthieu Sozeau | 2018-11-07 19:53:51 +0100 |
|---|---|---|
| committer | Matthieu Sozeau | 2018-11-07 19:53:51 +0100 |
| commit | 65927c22bcad62e1bc9a28a57377d82eba215a2d (patch) | |
| tree | f3f4d9dc5383ac36a6a1cb5838e56711c8b585d4 /proofs | |
| parent | 9185c2ed45319c2b35da0e7af9d8a9126f8035ed (diff) | |
| parent | e2e45e45a09ab25bf33ba49eef5a7cba9a30b337 (diff) | |
Merge PR #8934: Revert "Do not allow spliting in res_pf, this is reserved for pretyping"
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/clenvtac.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/clenvtac.ml b/proofs/clenvtac.ml index 77f5804665..b99cf245fe 100644 --- a/proofs/clenvtac.ml +++ b/proofs/clenvtac.ml @@ -72,7 +72,7 @@ let clenv_refine ?(with_evars=false) ?(with_classes=true) clenv = if with_classes then let evd' = Typeclasses.resolve_typeclasses ~filter:Typeclasses.all_evars - ~fail:(not with_evars) ~split:false clenv.env clenv.evd + ~fail:(not with_evars) clenv.env clenv.evd in Typeclasses.make_unresolvables (fun x -> List.mem_f Evar.equal x evars) evd' else clenv.evd |