diff options
| author | letouzey | 2013-10-23 22:17:11 +0000 |
|---|---|---|
| committer | letouzey | 2013-10-23 22:17:11 +0000 |
| commit | ef42739eadeb6ec3fc98b5beaa13bd859de44d15 (patch) | |
| tree | d0db75605b1ff04fe13f70f0a02aacbee7465cf0 /parsing | |
| parent | 5e6145c871eea1e94566b252b4bfc4cd752f42d5 (diff) | |
cList.index is now cList.index_f, same for index0
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16921 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_tactic.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/g_tactic.ml4 b/parsing/g_tactic.ml4 index 13e422b54f..b72bb02641 100644 --- a/parsing/g_tactic.ml4 +++ b/parsing/g_tactic.ml4 @@ -114,7 +114,7 @@ let mk_fix_tac (loc,id,bl,ann,ty) = [([_],_,_)], None -> 1 | _, Some x -> let ids = List.map snd (List.flatten (List.map pi1 bl)) in - (try List.index (snd x) ids + (try List.index Names.Name.equal (snd x) ids with Not_found -> error "No such fix variable.") | _ -> error "Cannot guess decreasing argument of fix." in (id,n,CProdN(loc,bl,ty)) |