diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-02-02 20:21:14 +0100 |
|---|---|---|
| committer |  Maxime Dénès <mail@maximedenes.fr> | 2017-03-24 12:17:35 +0100 |
| commit | 71cd2838bf3eb23a8f29df973d8012ebe2ec77b0 (patch) | |
| tree | 462edc24f28728df8b3aa37bdf0e66b59e1ab171 /intf | |
| parent | 648ce5e08f7245f2a775abd1304783c4167e9f2e (diff) | |
Using the same type of binders for interning and externing.
Previously a union type was used for externing.
In particular, moving extended_glob_local_binder to glob_constr.ml.
Diffstat (limited to 'intf')
| -rw-r--r-- | intf/glob_term.mli | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/intf/glob_term.mli b/intf/glob_term.mli index b3159c860..ce862cf8a 100644 --- a/intf/glob_term.mli +++ b/intf/glob_term.mli @@ -78,6 +78,11 @@ and cases_clause = (Loc.t * Id.t list * cases_pattern list * glob_constr) of [t] are members of [il]. *) and cases_clauses = cases_clause list +type extended_glob_local_binder = + | GLocalAssum of Loc.t * Name.t * binding_kind * glob_constr + | GLocalDef of Loc.t * Name.t * binding_kind * glob_constr * glob_constr + | GLocalPattern of Loc.t * (cases_pattern * Id.t list) * Id.t * binding_kind * glob_constr + (** A globalised term together with a closure representing the value of its free variables. Intended for use when these variables are taken from the Ltac environment. *) |