diff options
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/evar_refiner.ml | 3 | ||||
| -rw-r--r-- | proofs/proof_type.ml | 3 | ||||
| -rw-r--r-- | proofs/proof_type.mli | 3 |
3 files changed, 4 insertions, 5 deletions
diff --git a/proofs/evar_refiner.ml b/proofs/evar_refiner.ml index 0e317e68e5..efed7f63de 100644 --- a/proofs/evar_refiner.ml +++ b/proofs/evar_refiner.ml @@ -64,5 +64,6 @@ let instantiate_pf_com evk com sigma = let evi = Evd.find sigma evk in let env = Evd.evar_filtered_env evi in let rawc = Constrintern.intern_constr sigma env com in - let sigma' = w_refine (evk,evi) (([],[]),rawc) sigma in + let ltac_vars = (Id.Map.empty, Id.Map.empty) in + let sigma' = w_refine (evk, evi) (ltac_vars, rawc) sigma in sigma' diff --git a/proofs/proof_type.ml b/proofs/proof_type.ml index 609c7782d7..737cea68c4 100644 --- a/proofs/proof_type.ml +++ b/proofs/proof_type.ml @@ -53,8 +53,7 @@ type ltac_call_kind = | LtacNameCall of ltac_constant | LtacAtomCall of glob_atomic_tactic_expr | LtacVarCall of Id.t * glob_tactic_expr - | LtacConstrInterp of glob_constr * - (extended_patvar_map * (Id.t * Id.t option) list) + | LtacConstrInterp of glob_constr * Pretyping.ltac_var_map type ltac_trace = (int * Loc.t * ltac_call_kind) list diff --git a/proofs/proof_type.mli b/proofs/proof_type.mli index 33e1f29c59..f7cd8ad87d 100644 --- a/proofs/proof_type.mli +++ b/proofs/proof_type.mli @@ -80,8 +80,7 @@ type ltac_call_kind = | LtacNameCall of ltac_constant | LtacAtomCall of glob_atomic_tactic_expr | LtacVarCall of Id.t * glob_tactic_expr - | LtacConstrInterp of glob_constr * - (extended_patvar_map * (Id.t * Id.t option) list) + | LtacConstrInterp of glob_constr * Pretyping.ltac_var_map type ltac_trace = (int * Loc.t * ltac_call_kind) list |