diff options
| author | aspiwack | 2013-11-02 15:34:24 +0000 |
|---|---|---|
| committer | aspiwack | 2013-11-02 15:34:24 +0000 |
| commit | fe9258c4b228fb086baac7cd3d94207f2c43bb48 (patch) | |
| tree | d2637ba5b43dd97f79e181a15ec54299adb075d2 /tactics | |
| parent | 6e42eb07daf38213853bf4a9b9008c0e9e67f224 (diff) | |
A newly introduced variable inside a named context is no longer α-renamed.
Instead, in case of collision, the older name is substituted for a fresh one.
It should also be made inaccessible from the user, but I'll leave this for later.
The goal is to guarantee that [refine (fun x => _)] introduces a binder named [x].
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16972 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/class_tactics.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/class_tactics.ml b/tactics/class_tactics.ml index 0725825e98..c1c1c5f142 100644 --- a/tactics/class_tactics.ml +++ b/tactics/class_tactics.ml @@ -537,7 +537,7 @@ let evar_dependencies evm p = evm () let resolve_one_typeclass env ?(sigma=Evd.empty) gl = - let nc, gl, subst, _ = Evarutil.push_rel_context_to_named_context env gl in + let nc, gl, subst, _, _ = Evarutil.push_rel_context_to_named_context env gl in let (gl,t,sigma) = Goal.V82.mk_goal sigma nc gl Store.empty in let gls = { it = gl ; sigma = sigma; } in |