diff options
| author | msozeau | 2011-04-20 10:27:32 +0000 |
|---|---|---|
| committer | msozeau | 2011-04-20 10:27:32 +0000 |
| commit | b683d0f2f60df91276a7a1c53660c01097d4e5c0 (patch) | |
| tree | 20cbb0f8108ea5c02952325a0c662a6a73250757 | |
| parent | 2aa939230dde070c5cf20f01a49cb0891e2027e4 (diff) | |
Don't force progress on instance applications, there is always progress when refining dependent instances
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14031 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | tactics/class_tactics.ml4 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tactics/class_tactics.ml4 b/tactics/class_tactics.ml4 index 356752480f..41894ec511 100644 --- a/tactics/class_tactics.ml4 +++ b/tactics/class_tactics.ml4 @@ -104,12 +104,12 @@ END let unify_e_resolve flags (c,clenv) gls = let clenv' = connect_clenv gls clenv in let clenv' = clenv_unique_resolver false ~flags clenv' gls in - tclPROGRESS (Clenvtac.clenv_refine true ~with_classes:false clenv') gls + Clenvtac.clenv_refine true ~with_classes:false clenv' gls let unify_resolve flags (c,clenv) gls = let clenv' = connect_clenv gls clenv in let clenv' = clenv_unique_resolver false ~flags clenv' gls in - tclPROGRESS (Clenvtac.clenv_refine false ~with_classes:false clenv') gls + Clenvtac.clenv_refine false ~with_classes:false clenv' gls let clenv_of_prods nprods (c, clenv) gls = if nprods = 0 then Some clenv |