diff options
| author | herbelin | 2010-09-17 16:02:50 +0000 |
|---|---|---|
| committer | herbelin | 2010-09-17 16:02:50 +0000 |
| commit | 84aaa74ff9537dfdfc214ab60f8acf42466878b1 (patch) | |
| tree | 6fe6ad11a592f51385f4f82c747c9e08b2929584 /proofs/clenvtac.ml | |
| parent | 2a35022f6e0ed8b5a2b2fce5077104cfa6cea1b3 (diff) | |
In the computation of missing arguments for apply, accept that the
user either gives all missing arguments not dependent in the concl or
all missing arguments not *recursively* dependent in the concl (as
introduced by commit 13367). In practice, this means that "apply
f_equal with A" remains allowed even though the new, recursive,
analysis detects that all arguments of f_equal are inferable,
including the first type argument (which is inferable from the
knowledge of the function).
Sized the opportunity to better explain the behavior of clenv_dependent.
Also made minor code simplification.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13426 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs/clenvtac.ml')
| -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 272eead6c4..85e4580c86 100644 --- a/proofs/clenvtac.ml +++ b/proofs/clenvtac.ml @@ -61,7 +61,7 @@ let clenv_value_cast_meta clenv = clenv_cast_meta clenv (clenv_value clenv) let clenv_pose_dependent_evars with_evars clenv = - let dep_mvs = clenv_dependent false clenv in + let dep_mvs = clenv_dependent clenv in if dep_mvs <> [] & not with_evars then raise (RefinerError (UnresolvedBindings (List.map (meta_name clenv.evd) dep_mvs))); |