Question

如何才能看到Coq中内置策略的确切实现？更具体地说，有Print Ltac <user-defined-tactics>的替代方法可以找到Coq内置战术的确切定义吗？

Answer 1

不，除Print Ltac之外别无选择。在某种程度上，这是因为内置策略是在OCaml中实现的，并且它们所构成的部分并不总是可以用Ltac中更原始的策略来表达（并且几乎从来不会这样的翻译是准确的）。我知道找到定义的唯一方法就是去潜水。如果您搜索，例如"destruct"，则会在plugins/ltac/g_tactic.ml4中找到

行

  | IDENT "destruct"; icl = induction_clause_list ->
  TacAtom (Loc.tag ~loc:!@loc @@ TacInductionDestruct(false,false,icl))

表示destruct被解析为原子战术节点TacInductionDestruct。搜索TacInductionDestruct会在plugins/ltac/tacinterp.ml中提供实施：

  (* Derived basic tactics *)
  | TacInductionDestruct (isrec,ev,(l,el)) ->
      (* spiwack: some unknown part of destruct needs the goal to be
         prenormalised. *)
      Proofview.Goal.nf_enter begin fun gl ->
        let env = Proofview.Goal.env gl in
        let sigma = project gl in
        let sigma,l =
          List.fold_left_map begin fun sigma (c,(ipato,ipats),cls) ->
            (* TODO: move sigma as a side-effect *)
             (* spiwack: the [*p] variants are for printing *)
            let cp = c in
            let c = interp_destruction_arg ist gl c in
            let ipato = interp_intro_pattern_naming_option ist env sigma ipato in
            let ipatsp = ipats in
            let sigma,ipats = interp_or_and_intro_pattern_option ist env sigma ipats in
            let cls = Option.map (interp_clause ist env sigma) cls in
            sigma,((c,(ipato,ipats),cls),(cp,(ipato,ipatsp),cls))
          end sigma l
        in
        let l,lp = List.split l in
        let sigma,el =
          Option.fold_left_map (interp_open_constr_with_bindings ist env) sigma el in
        Tacticals.New.tclTHEN (Proofview.Unsafe.tclEVARS sigma)
        (name_atomic ~env
          (TacInductionDestruct(isrec,ev,(lp,el)))
            (Tactics.induction_destruct isrec ev (l,el)))
      end

您可以在Tactics.induction_destruct中找到tactics/tactics.ml的实施。

大多数原始策略都是以两种方式之一开始的：要么g_tactic.ml4中有一个条目说明如何将该策略解析为原子战术节点，或者某个地方有TACTIC EXTEND，例如，对于revert，我们在plugins/ltac/coretactics.ml4

TACTIC EXTEND revert
  [ "revert" ne_hyp_list(hl) ] -> [ Tactics.revert hl ]
END

如果定义是Ltac AST中的一个节点，那么要查看的地方是tacinterp.ml，它描述了如何解释这些策略。无论哪种方式，您都可以继续追踪OCaml定义，看看如何实施策略。

Coq中构建的Tactic（case，destruct，inversion等）的确切定义

1 个答案: