Source file `pltac.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
(************************************************************************)
(*         *   The Coq Proof Assistant / The Coq Development Team       *)
(*  v      *         Copyright INRIA, CNRS and contributors             *)
(* <O___,, * (see version control and CREDITS file for authors & dates) *)
(*   \VV/  **************************************************************)
(*    //   *    This file is distributed under the terms of the         *)
(*         *     GNU Lesser General Public License Version 2.1          *)
(*         *     (see LICENSE file for the text of the license)         *)
(************************************************************************)

open Pcoq

(* Main entry for extensions *)
let simple_tactic = Entry.create "simple_tactic"

(* Typically for tactic user extensions *)
let open_constr =
  Entry.create "open_constr"
let constr_with_bindings =
  Entry.create "constr_with_bindings"
let bindings =
  Entry.create "bindings"
let hypident = Entry.create "hypident"
let constr_may_eval = Entry.create "constr_may_eval"
let constr_eval = Entry.create "constr_eval"
let uconstr =
  Entry.create "uconstr"
let quantified_hypothesis =
  Entry.create "quantified_hypothesis"
let destruction_arg = Entry.create "destruction_arg"
let int_or_var = Entry.create "int_or_var"
let nat_or_var = Entry.create "nat_or_var"
let simple_intropattern =
  Entry.create "simple_intropattern"
let in_clause = Entry.create "in_clause"
let clause_dft_concl =
  Entry.create "clause"


(* Main entries for ltac *)
let tactic_value = Entry.create "tactic_value"
let ltac_expr = Entry.create "ltac_expr"
let binder_tactic = Entry.create "binder_tactic"

let tactic = Entry.create "tactic"

(* Main entry for quotations *)
let tactic_eoi = eoi_entry tactic

let () =
  let open Stdarg in
  let open Tacarg in
  register_grammar wit_int_or_var (int_or_var);
  register_grammar wit_nat_or_var (nat_or_var);
  register_grammar wit_intro_pattern (simple_intropattern); (* To remove at end of deprecation phase *)
(* register_grammar wit_intropattern (intropattern); *) (* To be added at end of deprecation phase *)
  register_grammar wit_simple_intropattern (simple_intropattern);
  register_grammar wit_quant_hyp (quantified_hypothesis);
  register_grammar wit_uconstr (uconstr);
  register_grammar wit_open_constr (open_constr);
  register_grammar wit_constr_with_bindings (constr_with_bindings);
  register_grammar wit_bindings (bindings);
  register_grammar wit_tactic (tactic);
  register_grammar wit_ltac (tactic);
  register_grammar wit_clause_dft_concl (clause_dft_concl);
  register_grammar wit_destruction_arg (destruction_arg);
  ()