diff options
| author | msozeau | 2007-12-31 15:16:24 +0000 |
|---|---|---|
| committer | msozeau | 2007-12-31 15:16:24 +0000 |
| commit | c47a4f906b9427c93db441de30dd69898d42d449 (patch) | |
| tree | 71497d4aa0ee7af013bc329f3b05c2b1752c6358 /contrib | |
| parent | 9d48f09f30b1f2e0ca53375b3185d9c3328c3578 (diff) | |
Fix name capture bug and call the right pretyper in subtac.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10414 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib')
| -rw-r--r-- | contrib/subtac/subtac_classes.ml | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/contrib/subtac/subtac_classes.ml b/contrib/subtac/subtac_classes.ml index da91b04062..e6ea17b472 100644 --- a/contrib/subtac/subtac_classes.ml +++ b/contrib/subtac/subtac_classes.ml @@ -62,6 +62,13 @@ let interp_constrs_evars isevars env avoid l = (push_named d env, id :: ids, d::params)) (env, avoid, []) l +let interp_constr_evars_gen evdref env ?(impls=([],[])) kind c = + SPretyping.understand_tcc_evars evdref env kind + (intern_gen (kind=IsType) ~impls (Evd.evars_of !evdref) env c) + +let interp_casted_constr_evars evdref env ?(impls=([],[])) c typ = + interp_constr_evars_gen evdref env ~impls (OfType (Some typ)) c + let type_ctx_instance isevars env ctx inst subst = List.fold_left2 (fun (subst, instctx) (na, _, t) ce -> |