diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-03-01 15:31:35 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-03-01 15:32:32 +0100 |
| commit | 38fa8db7bd81155deee36c0e5ff6730851a92286 (patch) | |
| tree | 76c3444cbe564e2a5bca6f13d9b9627c59fc1a2b /proofs | |
| parent | d0eb3e2cd98bbeb08db3aa32d233233569d50351 (diff) | |
Removing a fishy use of pervasive equality in Ltac backtrace printing.
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/proof_type.ml | 2 | ||||
| -rw-r--r-- | proofs/proof_type.mli | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/proofs/proof_type.ml b/proofs/proof_type.ml index c04c44193..4394aeff1 100644 --- a/proofs/proof_type.ml +++ b/proofs/proof_type.ml @@ -55,6 +55,6 @@ type ltac_call_kind = | LtacVarCall of Id.t * glob_tactic_expr | LtacConstrInterp of glob_constr * Pretyping.ltac_var_map -type ltac_trace = (int * Loc.t * ltac_call_kind) list +type ltac_trace = (Loc.t * ltac_call_kind) list let (ltac_trace_info : ltac_trace Exninfo.t) = Exninfo.make () diff --git a/proofs/proof_type.mli b/proofs/proof_type.mli index 8cc6bf76f..4abd6f776 100644 --- a/proofs/proof_type.mli +++ b/proofs/proof_type.mli @@ -82,6 +82,6 @@ type ltac_call_kind = | LtacVarCall of Id.t * glob_tactic_expr | LtacConstrInterp of glob_constr * Pretyping.ltac_var_map -type ltac_trace = (int * Loc.t * ltac_call_kind) list +type ltac_trace = (Loc.t * ltac_call_kind) list val ltac_trace_info : ltac_trace Exninfo.t |