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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
|
(************************************************************************)
(* v * The Coq Proof Assistant / The Coq Development Team *)
(* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2012 *)
(* \VV/ **************************************************************)
(* // * This file is distributed under the terms of the *)
(* * GNU Lesser General Public License Version 2.1 *)
(************************************************************************)
open Environ
open Evd
open Names
open Libnames
open Term
open Util
open Tacexpr
open Glob_term
open Genarg
open Nametab
open Pattern
(** This module defines the structure of proof tree and the tactic type. So, it
is used by [Proof_tree] and [Refiner] *)
type goal = Goal.goal
type tactic = goal sigma -> goal list sigma
type prim_rule =
| Intro of identifier
| Cut of bool * bool * identifier * types
| FixRule of identifier * int * (identifier * int * constr) list * int
| Cofix of identifier * (identifier * constr) list * int
| Refine of constr
| Convert_concl of types * cast_kind
| Convert_hyp of named_declaration
| Thin of identifier list
| ThinBody of identifier list
| Move of bool * identifier * identifier move_location
| Order of identifier list
| Rename of identifier * identifier
| Change_evars
(** The type [goal sigma] is the type of subgoal. It has the following form
{v it = \{ evar_concl = [the conclusion of the subgoal]
evar_hyps = [the hypotheses of the subgoal]
evar_body = Evar_Empty;
evar_info = \{ pgm : [The Realizer pgm if any]
lc : [Set of evar num occurring in subgoal] \}\}
sigma = \{ stamp = [an int chardacterizing the ed field, for quick compare]
ed : [A set of existential variables depending in the subgoal]
number of first evar,
it = \{ evar_concl = [the type of first evar]
evar_hyps = [the context of the evar]
evar_body = [the body of the Evar if any]
evar_info = \{ pgm : [Useless ??]
lc : [Set of evars occurring
in the type of evar] \} \};
...
number of last evar,
it = \{ evar_concl = [the type of evar]
evar_hyps = [the context of the evar]
evar_body = [the body of the Evar if any]
evar_info = \{ pgm : [Useless ??]
lc : [Set of evars occurring
in the type of evar] \} \} \} v}
*)
(** {6 ... } *)
(** Proof trees.
[ref] = [None] if the goal has still to be proved,
and [Some (r,l)] if the rule [r] was applied to the goal
and gave [l] as subproofs to be completed.
if [ref = (Some(Nested(Tactic t,p),l))] then [p] is the proof
that the goal can be proven if the goals in [l] are solved. *)
type proof_tree = {
goal : goal;
ref : (rule * proof_tree list) option }
and rule =
| Prim of prim_rule
| Nested of compound_rule * proof_tree
| Decl_proof of bool
| Daimon
and compound_rule=
(** the boolean of Tactic tells if the default tactic is used *)
| Tactic of tactic_expr * bool
and tactic_expr =
(constr,
constr_pattern,
evaluable_global_reference,
inductive,
ltac_constant,
identifier,
glob_tactic_expr,
tlevel)
Tacexpr.gen_tactic_expr
and atomic_tactic_expr =
(constr,
constr_pattern,
evaluable_global_reference,
inductive,
ltac_constant,
identifier,
glob_tactic_expr,
tlevel)
Tacexpr.gen_atomic_tactic_expr
and tactic_arg =
(constr,
constr_pattern,
evaluable_global_reference,
inductive,
ltac_constant,
identifier,
glob_tactic_expr,
tlevel)
Tacexpr.gen_tactic_arg
type ltac_call_kind =
| LtacNotationCall of string
| LtacNameCall of ltac_constant
| LtacAtomCall of glob_atomic_tactic_expr * atomic_tactic_expr option ref
| LtacVarCall of identifier * glob_tactic_expr
| LtacConstrInterp of glob_constr *
(extended_patvar_map * (identifier * identifier option) list)
type ltac_trace = (int * loc * ltac_call_kind) list
exception LtacLocated of (int * ltac_call_kind * ltac_trace * loc) * exn
val abstract_tactic_box : atomic_tactic_expr option ref ref
|