diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-08-12 14:03:32 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-09-12 10:39:32 +0200 |
| commit | 012fe1a96ba81ab0a7fa210610e3f25187baaf1d (patch) | |
| tree | 32282ac2f1198738c8c545b19215ff0a0d9ef6ce /intf | |
| parent | b720cd3cbefa46da784b68a8e016a853f577800c (diff) | |
Referring to evars by names. Added a parser for evars (but parsing of
instances still to do). Using heuristics to name after the quantifier
name it comes. Also added a "sigma" to almost all printing functions.
Diffstat (limited to 'intf')
| -rw-r--r-- | intf/constrexpr.mli | 2 | ||||
| -rw-r--r-- | intf/glob_term.mli | 4 |
2 files changed, 4 insertions, 2 deletions
diff --git a/intf/constrexpr.mli b/intf/constrexpr.mli index eb39a9bde..bc2f7df24 100644 --- a/intf/constrexpr.mli +++ b/intf/constrexpr.mli @@ -82,7 +82,7 @@ type constr_expr = * constr_expr * constr_expr | CHole of Loc.t * Evar_kinds.t option * Genarg.raw_generic_argument option | CPatVar of Loc.t * (bool * patvar) - | CEvar of Loc.t * existential_key * constr_expr list option + | CEvar of Loc.t * Glob_term.existential_name * (Id.t * constr_expr) list option | CSort of Loc.t * glob_sort | CCast of Loc.t * constr_expr * constr_expr cast_type | CNotation of Loc.t * notation * constr_notation_substitution diff --git a/intf/glob_term.mli b/intf/glob_term.mli index d0b6939e2..9aca2306a 100644 --- a/intf/glob_term.mli +++ b/intf/glob_term.mli @@ -19,6 +19,8 @@ open Globnames open Decl_kinds open Misctypes +type existential_name = Id.t + (** The kind of patterns that occurs in "match ... with ... end" locs here refers to the ident's location, not whole pat *) @@ -30,7 +32,7 @@ type cases_pattern = type glob_constr = | GRef of (Loc.t * global_reference * glob_level list option) | GVar of (Loc.t * Id.t) - | GEvar of Loc.t * existential_key * glob_constr list option + | GEvar of Loc.t * existential_name * (Id.t * glob_constr) list option | GPatVar of Loc.t * (bool * patvar) (** Used for patterns only *) | GApp of Loc.t * glob_constr * glob_constr list | GLambda of Loc.t * Name.t * binding_kind * glob_constr * glob_constr |