diff options
author | 2009-09-20 14:02:58 +0000 | |
---|---|---|
committer | 2009-09-20 14:02:58 +0000 | |
commit | 98f6a9d847f4fac14696f51096c8334c9bffda6f (patch) | |
tree | 3ab3dabe0f93f38b17434976f0b0c9833b8e3ff5 /plugins/interface/xlate.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/xlate.ml')
-rw-r--r-- | plugins/interface/xlate.ml | 4 |
1 files changed, 2 insertions, 2 deletions
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) |