diff options
| author | barras | 2004-09-07 19:28:25 +0000 |
|---|---|---|
| committer | barras | 2004-09-07 19:28:25 +0000 |
| commit | d331f7f1ac0ec2ed12d458597d558a1988db1ba6 (patch) | |
| tree | 0e5addad213aeb1d647a0411285754e8a9cb23f6 /tactics/setoid_replace.ml | |
| parent | 11104cdcb1e53cd83768d2ce9858829b457e2d65 (diff) | |
deuxieme vague de modifs: evar_defs fonctionnel
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6071 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/setoid_replace.ml')
| -rw-r--r-- | tactics/setoid_replace.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tactics/setoid_replace.ml b/tactics/setoid_replace.ml index b8b0cf9aca..195ba3c61b 100644 --- a/tactics/setoid_replace.ml +++ b/tactics/setoid_replace.ml @@ -886,10 +886,10 @@ let relation_rewrite c1 c2 (lft2rgt,cl) gl = *) let general_s_rewrite lft2rgt c gl = - let (wc,_) = Evar_refiner.startWalk gl in let ctype = pf_type_of gl c in let eqclause = - Clenv.make_clenv_binding wc (c,ctype) Rawterm.NoBindings in + Clenv.make_clenv_binding + (Evar_refiner.rc_of_glsigma gl) (c,ctype) Rawterm.NoBindings in let (equiv, args) = decompose_app (Clenv.clenv_instance_template_type eqclause) in let rec get_last_two = function |