diff options
| author | ppedrot | 2013-06-22 15:21:01 +0000 |
|---|---|---|
| committer | ppedrot | 2013-06-22 15:21:01 +0000 |
| commit | 34e80b356fcccd938f114925e91c53cb33b2bd19 (patch) | |
| tree | 517da7072e340d0c36d05a2908079393e431dc43 /proofs | |
| parent | bd7da353ea503423206e329af7a56174cb39f435 (diff) | |
Generalizing the use of maps instead of lists in the interpretation
of tactics.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16602 85f007b7-540e-0410-9357-904b9bb8a0f7
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 |