diff options
| author |  msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-06-18 22:35:38 +0000 |
|---|---|---|
| committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-06-18 22:35:38 +0000 |
| commit | 0bb73a5c4b5264ed3c8a7243a818368083602e25 (patch) | |
| tree | 200661003cbf438cda168442801da20229e35d6c /pretyping/pretyping.ml | |
| parent | 9346d0b22d34a48b16f46c663064808063afb4a2 (diff) | |
Use more consistent resolution parameters in Program and regular typing
and add an optional fail_evar flag to control resolution better in
interpretation functions.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12197 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/pretyping.ml')
| -rw-r--r-- | pretyping/pretyping.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/pretyping.ml b/pretyping/pretyping.ml index 91cdff5fb..9f90e53a7 100644 --- a/pretyping/pretyping.ml +++ b/pretyping/pretyping.ml @@ -672,8 +672,8 @@ module Pretyping_F (Coercion : Coercion.S) = struct evdref := fst (consider_remaining_unif_problems env !evdref); if resolve_classes then evdref := - Typeclasses.resolve_typeclasses ~onlyargs:(not fail_evar) - ~split:false ~fail:fail_evar env !evdref; + Typeclasses.resolve_typeclasses ~onlyargs:false + ~split:true ~fail:fail_evar env !evdref; let c = nf_evar !evdref c' in if fail_evar then check_evars env Evd.empty !evdref c; c |