diff options
| author | msozeau | 2012-03-14 13:33:09 +0000 |
|---|---|---|
| committer | msozeau | 2012-03-14 13:33:09 +0000 |
| commit | 9f7450858ae9ad3360180fada06e1350680d53e1 (patch) | |
| tree | d45879840f2bfe7db74a876e5c140025e61ddf96 /proofs | |
| parent | a4c0ec668652bf8d9e288fddb88901e272779960 (diff) | |
Revise API of understand_ltac to be parameterized by a flag for resolution of evars.
Used when interpreting a constr in Ltac: resolution is now launched if the constr
is casted.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15038 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/evar_refiner.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/proofs/evar_refiner.ml b/proofs/evar_refiner.ml index 3e6300e090..1eb982b032 100644 --- a/proofs/evar_refiner.ml +++ b/proofs/evar_refiner.ml @@ -41,8 +41,8 @@ let w_refine (evk,evi) (ltac_var,rawc) sigma = error "Instantiate called on already-defined evar"; let env = Evd.evar_env evi in let sigma',typed_c = - try Pretyping.understand_ltac true sigma env ltac_var - (Pretyping.OfType (Some evi.evar_concl)) rawc + try Pretyping.understand_ltac ~resolve_classes:true true + sigma env ltac_var (Pretyping.OfType (Some evi.evar_concl)) rawc with _ -> let loc = Glob_term.loc_of_glob_constr rawc in user_err_loc |