diff options
Diffstat (limited to 'plugins')
-rw-r--r-- | plugins/interface/depends.ml | 2 | ||||
-rw-r--r-- | plugins/interface/xlate.ml | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/plugins/interface/depends.ml b/plugins/interface/depends.ml index 1a5bfaf33..a8bad4c66 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) diff --git a/plugins/interface/xlate.ml b/plugins/interface/xlate.ml index a322c7a72..613c31db7 100644 --- a/plugins/interface/xlate.ml +++ b/plugins/interface/xlate.ml @@ -1229,11 +1229,11 @@ and xlate_tac = CT_dauto(xlate_int_or_var_opt_to_int_opt a, xlate_int_opt b) | TacDAuto (a, b, _) -> xlate_error "TODO: dauto using" - | TacInductionDestruct(true,false,[a,b,(None,c),None]) -> + | TacInductionDestruct(true,false,([a,b,(None,c)],None)) -> CT_new_destruct (List.map xlate_int_or_constr a, xlate_using b, xlate_with_names c) - | TacInductionDestruct(false,false,[a,b,(None,c),None]) -> + | TacInductionDestruct(false,false,([a,b,(None,c)],None)) -> CT_new_induction (List.map xlate_int_or_constr a, xlate_using b, xlate_with_names c) |