diff options
| author | herbelin | 2009-09-20 14:02:58 +0000 |
|---|---|---|
| committer | herbelin | 2009-09-20 14:02:58 +0000 |
| commit | 98f6a9d847f4fac14696f51096c8334c9bffda6f (patch) | |
| tree | 3ab3dabe0f93f38b17434976f0b0c9833b8e3ff5 /plugins/interface/depends.ml | |
| parent | fbcd19a076f255614012fd076863ca296c1b2626 (diff) | |
Only one "in" clause in "destruct" even for a multiple "destruct".
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12348 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/interface/depends.ml')
| -rw-r--r-- | plugins/interface/depends.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/interface/depends.ml b/plugins/interface/depends.ml index 1a5bfaf33d..a8bad4c66b 100644 --- a/plugins/interface/depends.ml +++ b/plugins/interface/depends.ml @@ -305,7 +305,7 @@ let rec depends_of_gen_tactic_expr depends_of_'constr depends_of_'ind depends_of (* Derived basic tactics *) | TacSimpleInductionDestruct _ | TacDoubleInduction _ -> acc - | TacInductionDestruct (_, _, [cwbial, cwbo, _, _]) -> + | TacInductionDestruct (_, _, ([cwbial, cwbo, _], _)) -> list_union_map (depends_of_'a_induction_arg depends_of_'constr_with_bindings) cwbial (Option.fold_right depends_of_'constr_with_bindings cwbo acc) |