From 67500967edf584fcddc41c74aea09d48ee80a03c Mon Sep 17 00:00:00 2001 From: Pierre-Marie Pédrot Date: Sat, 2 Aug 2014 16:34:30 +0200 Subject: Better struture for Ltac internalization environments in Constrintern. --- interp/constrintern.mli | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'interp/constrintern.mli') diff --git a/interp/constrintern.mli b/interp/constrintern.mli index 46697253b..b6cae349d 100644 --- a/interp/constrintern.mli +++ b/interp/constrintern.mli @@ -67,7 +67,16 @@ val compute_internalization_env : env -> var_internalization_type -> Id.t list -> types list -> Impargs.manual_explicitation list list -> internalization_env -type ltac_sign = Id.Set.t * Id.Set.t * glob_constr Lazy.t Id.Map.t +type ltac_sign = { + ltac_vars : Id.Set.t; + (** Variables of Ltac which may be bound to a term *) + ltac_bound : Id.Set.t; + (** Other variables of Ltac *) + ltac_subst : glob_constr Lazy.t Id.Map.t; + (** Substitution for untyped terms *) +} + +val empty_ltac_sign : ltac_sign type glob_binder = (Name.t * binding_kind * glob_constr option * glob_constr) -- cgit v1.2.3