diff options
| author |  Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2015-02-14 15:11:29 +0100 |
|---|---|---|
| committer | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2015-02-14 15:12:38 +0100 |
| commit | bc77234dc5d40d4540793ceead1595b15ab18bb8 (patch) | |
| tree | 9df2e077efa0062ab43f9219211877a9e6d0d3e5 /theories/Program | |
| parent | 01f0c21c6d45d44b1fc78f1a41ea1cb8d1b550f0 (diff) | |
dependent destruction: Fix (part of) bug #3961, by fixing dependent *
generalizing * which was broken since 8.4.
Diffstat (limited to 'theories/Program')
| -rw-r--r-- | theories/Program/Equality.v | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/theories/Program/Equality.v b/theories/Program/Equality.v index a9aa30df5..ae6fe7dd0 100644 --- a/theories/Program/Equality.v +++ b/theories/Program/Equality.v @@ -426,8 +426,9 @@ Ltac depind id := do_depind ltac:(fun hyp => do_ind hyp) id. (** A variant where generalized variables should be given by the user. *) Ltac do_depelim' rev tac H := - (try intros until H) ; block_goal ; rev H ; - (try revert_until H ; block_goal) ; generalize_eqs H ; tac H ; simpl_dep_elim. + (try intros until H) ; block_goal ; + (try revert_until H ; block_goal) ; + generalize_eqs H ; rev H ; tac H ; simpl_dep_elim. (** Calls [destruct] on the generalized hypothesis, results should be similar to inversion. By default, we don't try to generalize the hyp by its variable indices. *) @@ -463,3 +464,9 @@ Tactic Notation "dependent" "induction" ident(H) "generalizing" ne_hyp_list(l) : Tactic Notation "dependent" "induction" ident(H) "generalizing" ne_hyp_list(l) "using" constr(c) := do_depelim' ltac:(fun hyp => revert l) ltac:(fun hyp => induction hyp using c) H. + +Tactic Notation "dependent" "induction" ident(H) "in" ne_hyp_list(l) := + do_depelim' ltac:(fun hyp => idtac) ltac:(fun hyp => induction hyp in l) H. + +Tactic Notation "dependent" "induction" ident(H) "in" ne_hyp_list(l) "using" constr(c) := + do_depelim' ltac:(fun hyp => idtac) ltac:(fun hyp => induction hyp in l using c) H. |