diff options
| author | Pierre-Marie Pédrot | 2016-03-06 23:58:43 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-03-06 23:59:18 +0100 |
| commit | ccd7c003ae56a4f7ad600cfc9532651010fb6bf2 (patch) | |
| tree | f867ef6ff857a18554131dd1f0f85df30e25c6d3 /intf | |
| parent | d3653c6da5770dfc4d439639b49193e30172763a (diff) | |
| parent | a9f6f401e66c0bbf0c50801d597cd18097bf91a6 (diff) | |
Partial disentangling of Ltac codebase.
Diffstat (limited to 'intf')
| -rw-r--r-- | intf/tacexpr.mli | 12 | ||||
| -rw-r--r-- | intf/vernacexpr.mli | 1 |
2 files changed, 12 insertions, 1 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 diff --git a/intf/vernacexpr.mli b/intf/vernacexpr.mli index 7273b92b9a..5501ca7c7f 100644 --- a/intf/vernacexpr.mli +++ b/intf/vernacexpr.mli @@ -69,7 +69,6 @@ type printable = | PrintHint of reference or_by_notation | PrintHintGoal | PrintHintDbName of string - | PrintRewriteHintDbName of string | PrintHintDb | PrintScopes | PrintScope of string |