diff options
| author | Pierre-Marie Pédrot | 2016-03-06 18:34:39 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-03-06 18:54:04 +0100 |
| commit | 6ecbc9990a49a0dd51970c7fc8b13f39f02be773 (patch) | |
| tree | 027928408f8e28263edf98a5bd58cd96d43dffca /intf | |
| parent | d3653c6da5770dfc4d439639b49193e30172763a (diff) | |
Moving Ltac traces to Tacexpr and Tacinterp.
Diffstat (limited to 'intf')
| -rw-r--r-- | intf/tacexpr.mli | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/intf/tacexpr.mli b/intf/tacexpr.mli index f2a567c00d..b1dc174d4b 100644 --- a/intf/tacexpr.mli +++ b/intf/tacexpr.mli @@ -394,3 +394,15 @@ type tactic_arg = type raw_red_expr = (r_trm, r_cst, r_pat) red_expr_gen type glob_red_expr = (g_trm, g_cst, g_pat) red_expr_gen + +(** Traces *) + +type ltac_call_kind = + | LtacMLCall of glob_tactic_expr + | LtacNotationCall of KerName.t + | LtacNameCall of ltac_constant + | LtacAtomCall of glob_atomic_tactic_expr + | LtacVarCall of Id.t * glob_tactic_expr + | LtacConstrInterp of Glob_term.glob_constr * Pretyping.ltac_var_map + +type ltac_trace = (Loc.t * ltac_call_kind) list |