diff options
| author | Hugo Herbelin | 2018-03-24 13:19:13 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2018-03-24 13:31:36 +0100 |
| commit | 7fd28dc95e3251a10617ddb6758cc00b8960f954 (patch) | |
| tree | 020e1faa27fb091ed10c1576b1cb853b9d4cf3c9 /intf | |
| parent | e128900aee63c972d7977fd47e3fd21649b63409 (diff) | |
Slightly refining some error messages about unresolvable evars.
For instance, error in "Goal forall a f, f a = 0" is now located.
Diffstat (limited to 'intf')
| -rw-r--r-- | intf/evar_kinds.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/intf/evar_kinds.ml b/intf/evar_kinds.ml index c5de383b21..c964ecf1f5 100644 --- a/intf/evar_kinds.ml +++ b/intf/evar_kinds.ml @@ -21,6 +21,8 @@ type obligation_definition_status = Define of bool | Expand type matching_var_kind = FirstOrderPatVar of patvar | SecondOrderPatVar of patvar +type subevar_kind = Domain | Codomain | Body + type t = | ImplicitArg of global_reference * (int * Id.t option) * bool (** Force inference *) @@ -34,4 +36,4 @@ type t = | ImpossibleCase | MatchingVar of matching_var_kind | VarInstance of Id.t - | SubEvar of Evar.t + | SubEvar of subevar_kind option * Evar.t |