diff options
| author | barras | 2004-09-03 17:14:02 +0000 |
|---|---|---|
| committer | barras | 2004-09-03 17:14:02 +0000 |
| commit | 85fb5f33b1cac28e1fe4f00741c66f6f58109f84 (patch) | |
| tree | 4913998a925cb148c74a607bf7523ae1d28853ce /tactics/setoid_replace.ml | |
| parent | 31ebb89fe48efe92786b1cddc3ba62e7dfc4e739 (diff) | |
premiere reorganisation de l\'unification
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6057 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/setoid_replace.ml')
| -rw-r--r-- | tactics/setoid_replace.ml | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/tactics/setoid_replace.ml b/tactics/setoid_replace.ml index a5f5f742d4..f092861f10 100644 --- a/tactics/setoid_replace.ml +++ b/tactics/setoid_replace.ml @@ -800,9 +800,12 @@ let apply_coq_setoid_rewrite hole_relation c1 c2 (lft2rgt,h) m = let relation_rewrite c1 c2 (lft2rgt,cl) gl = let but = pf_concl gl in let (hyp,c1,c2) = - let (cl',_) = Clenv.unify_to_subterm cl (c1,but) in - let c1 = Clenv.clenv_instance_term cl' c1 in - let c2 = Clenv.clenv_instance_term cl' c2 in + let cl' = + Clenv.clenv_wtactic + (fun evd -> fst (Unification.w_unify_to_subterm (pf_env gl) (c1,but) evd)) + cl in + let c1 = Clenv.clenv_instance_term cl' c1 in + let c2 = Clenv.clenv_instance_term cl' c2 in (lft2rgt,Clenv.clenv_instance_template cl'), c1, c2 in let input_relation = relation_of_hypothesis_and_term_to_rewrite gl hyp c1 in |