diff options
| author |  msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-10-25 15:02:34 +0000 |
|---|---|---|
| committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-10-25 15:02:34 +0000 |
| commit | 47eb59cfa5baf2e67410ba00a0d2b7f32ce80e94 (patch) | |
| tree | 612c352e2d45d1b4ddb6d0c0373ab3d7c89fe08c /proofs/clenvtac.ml | |
| parent | ca3131d423dd32a8b02a2ca5eb9074dff2cae1b7 (diff) | |
More debugging of handling of open constrs with typeclasses:
avoid trying to resolve classes early in open constr arguments for Ltac,
the tactics themselves should do whatever's appropriate with the constraints.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11503 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs/clenvtac.ml')
| -rw-r--r-- | proofs/clenvtac.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/proofs/clenvtac.ml b/proofs/clenvtac.ml index f368ed379..b1dc7c896 100644 --- a/proofs/clenvtac.ml +++ b/proofs/clenvtac.ml @@ -77,8 +77,11 @@ let clenv_pose_dependent_evars with_evars clenv = let clenv_refine with_evars clenv gls = let clenv = clenv_expand_metas clenv in let clenv = clenv_pose_dependent_evars with_evars clenv in + let evd' = Typeclasses.resolve_typeclasses ~fail:(not with_evars) + clenv.env clenv.evd + in tclTHEN - (tclEVARS (evars_of clenv.evd)) + (tclEVARS (evars_of evd')) (refine (clenv_value_cast_meta clenv)) gls |