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/auto.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/auto.ml')
| -rw-r--r-- | tactics/auto.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/auto.ml b/tactics/auto.ml index 853720877..b5586bbd9 100644 --- a/tactics/auto.ml +++ b/tactics/auto.ml @@ -1110,7 +1110,7 @@ let (forward_interp_tactic, extern_interp) = Hook.make () let conclPattern concl pat tac gl = let constr_bindings = match pat with - | None -> [] + | None -> Id.Map.empty | Some pat -> try matches pat concl with PatternMatchingFailure -> error "conclPattern" in |