diff options
| author | Hugo Herbelin | 2019-05-23 15:14:38 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2019-06-16 14:04:19 +0200 |
| commit | f95017c2c69ee258ae570b789bce696357d2c365 (patch) | |
| tree | e7a4057b39f11c5d473025a963b87bba40d440b9 /vernac/comAssumption.ml | |
| parent | 5d58496c27fc5767c7841734c0f01a739cf529ab (diff) | |
Adding location in warning telling implicit arguments differ in term and type.
Diffstat (limited to 'vernac/comAssumption.ml')
| -rw-r--r-- | vernac/comAssumption.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/comAssumption.ml b/vernac/comAssumption.ml index 591e4b130f..c1f676b043 100644 --- a/vernac/comAssumption.ml +++ b/vernac/comAssumption.ml @@ -283,7 +283,7 @@ let context poly l = Classes.declare_instance env sigma (Some Hints.empty_hint_info) true (ConstRef cst); status else - let test (x, _) = match x with + let test {CAst.v = (x, _)} = match x with | Constrexpr.ExplByPos (_, Some id') -> Id.equal id id' | _ -> false in |