如何编写行为类似于 "destruct ... as" 的策略？

Question

在 coq 中，destruct 策略有一个接受 "conjunctive disjunctive introduction pattern" 的变体，它允许用户为引入的变量分配名称，即使在解包复杂的归纳类型时也是如此。

coq 中的 Ltac 语言允许用户编写自定义策略。我想写（事实上，维护）一个策略，在将控制权移交给 destruct.

之前做一些事情

我希望我的自定义策略允许（或要求，以更容易的为准）用户提供我的策略可以交给 destruct 的介绍模式。

什么 Ltac 语法实现了这一点？

Answer 1

您可以使用 reference manual 中描述的策略符号。例如，

Tactic Notation "foo" simple_intropattern(bar) :=
  match goal with
  | H : ?A /\ ?B |- _ =>
    destruct H as bar
  end.

Goal True /\ True /\ True -> True.
intros. foo (HA & HB & HC).

simple_intropattern 指令指示 Coq 将 bar 解释为介绍模式。因此，对 foo 的调用导致调用 destruct H as (HA & HB & HC).

这是一个更长的示例，显示了更复杂的介绍模式。

Tactic Notation "my_destruct" hyp(H) "as" simple_intropattern(pattern) :=
  destruct H as pattern.

Inductive wondrous : nat -> Prop :=
  | one         : wondrous 1
  | half        : forall n k : nat,         n = 2 * k -> wondrous k -> wondrous n
  | triple_one  : forall n k : nat, 3 * n + 1 = k     -> wondrous k -> wondrous n.

Lemma oneness : forall n : nat, n = 0 \/ wondrous n.
Proof.
  intro n.
  induction n as [ | n IH_n ].

  (* n = 0 *)
  left. reflexivity.

  (* n <> 0 *)
  right. my_destruct IH_n as
    [ H_n_zero
    | [
      | n' k H_half       H_wondrous_k
      | n' k H_triple_one H_wondrous_k ] ].

Admitted.

我们可以检查其中一个生成的目标，以查看这些名称是如何使用的。

oneness < Show 4.
subgoal 4 is:

  n : nat
  n' : nat
  k : nat
  H_triple_one : 3 * n' + 1 = k
  H_wondrous_k : wondrous k
  ============================
   wondrous (S n')

如何编写行为类似于 "destruct ... as" 的策略？

How do I write tactics that behave like "destruct ... as"?

coq

ltac