diff options
author | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-06-05 13:26:51 +0000 |
---|---|---|
committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-06-05 13:26:51 +0000 |
commit | 0bfa187edddb0de9bb75c55e1b3d0f08830c7ac8 (patch) | |
tree | 0afc6a72e635ebba2fb851a789ef88a333006d6d /tactics/tactics.ml | |
parent | 76cb7a13d714639a8f4d448416dddda86e86f9fb (diff) |
Replacing lists by maps in matching interpretation.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16561 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/tactics.ml')
-rw-r--r-- | tactics/tactics.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index 2c96ef7e3..cee98b7c5 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -324,7 +324,7 @@ let change_on_subterm cv_pb t = function | None -> change_and_check cv_pb t | Some occl -> contextually false occl - (fun subst -> change_and_check Reduction.CONV (replace_vars subst t)) + (fun subst -> change_and_check Reduction.CONV (replace_vars (Id.Map.bindings subst) t)) let change_in_concl occl t = reduct_in_concl ((change_on_subterm Reduction.CUMUL t occl),DEFAULTcast) |