diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2018-03-04 16:45:52 +0100 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2018-03-04 16:45:52 +0100 |
| commit | 0a9a45abbd3421f3b2cfc4f6428938898a933ffe (patch) | |
| tree | 3e1bfbf03731517c48f96b91c3318ed4d0744aca /plugins/ltac | |
| parent | d28726426b048c9c4d521774f6540596a33165c4 (diff) | |
| parent | 30455aa6d2c1a069abbab7092aeb6096ce84446f (diff) | |
Merge PR #6846: Moving code for "simple induction"/"simple destruct" to coretactics.ml4.
Diffstat (limited to 'plugins/ltac')
| -rw-r--r-- | plugins/ltac/coretactics.ml4 | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/plugins/ltac/coretactics.ml4 b/plugins/ltac/coretactics.ml4 index 794a28dd4..ad6c6df5f 100644 --- a/plugins/ltac/coretactics.ml4 +++ b/plugins/ltac/coretactics.ml4 @@ -239,12 +239,20 @@ END (** Simple induction / destruct *) +let simple_induct h = + Tacticals.New.tclTHEN (Tactics.intros_until h) + (Tacticals.New.onLastHyp Tactics.simplest_elim) + TACTIC EXTEND simple_induction - [ "simple" "induction" quantified_hypothesis(h) ] -> [ Tactics.simple_induct h ] + [ "simple" "induction" quantified_hypothesis(h) ] -> [ simple_induct h ] END +let simple_destruct h = + Tacticals.New.tclTHEN (Tactics.intros_until h) + (Tacticals.New.onLastHyp Tactics.simplest_case) + TACTIC EXTEND simple_destruct - [ "simple" "destruct" quantified_hypothesis(h) ] -> [ Tactics.simple_destruct h ] + [ "simple" "destruct" quantified_hypothesis(h) ] -> [ simple_destruct h ] END (** Double induction *) |