diff options
| author |  Matthieu Sozeau <mattam@mattam.org> | 2017-07-27 20:32:18 +0200 |
|---|---|---|
| committer |  Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2018-06-15 12:07:01 +0200 |
| commit | 8d8200d4bff3ffc44efc51ad44dccee9eb14ec6a (patch) | |
| tree | 5f97f92e85a0cca596b86a2a1e77cd5ca421c9ac | |
| parent | 31e13998542941040343cb81787a1d7c865d5b65 (diff) | |
Do not allow spliting in res_pf, this is reserved for pretyping
| -rw-r--r-- | proofs/clenvtac.ml | 2 | ||||
| -rw-r--r-- | test-suite/success/Hints.v | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/proofs/clenvtac.ml b/proofs/clenvtac.ml index 544175c6d..ba4cde6d6 100644 --- a/proofs/clenvtac.ml +++ b/proofs/clenvtac.ml @@ -87,7 +87,7 @@ let clenv_refine ?(with_evars=false) ?(with_classes=true) clenv = let evd' = if has_typeclass then Typeclasses.resolve_typeclasses ~fast_path:false ~filter:Typeclasses.all_evars - ~fail:(not with_evars) clenv.env clenv.evd + ~fail:(not with_evars) ~split:false clenv.env clenv.evd else clenv.evd in if has_resolvable then diff --git a/test-suite/success/Hints.v b/test-suite/success/Hints.v index 8d08f5975..717dc0deb 100644 --- a/test-suite/success/Hints.v +++ b/test-suite/success/Hints.v @@ -169,7 +169,7 @@ Proof. Hint Cut [_* (a_is_b | b_is_c | c_is_d | d_is_e) (a_compose | b_compose | c_compose | d_compose | e_compose)] : typeclass_instances. - Timeout 1 Fail apply _. (* 0.06s *) +Timeout 1 Fail apply _. (* 0.06s *) Abort. End HintCut. |