diff options
| author | Emilio Jesus Gallego Arias | 2019-06-17 12:28:14 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2019-06-17 12:28:14 +0200 |
| commit | 5d18dfed8e68dd964bca5d64ca6bdd9f8ffbb1df (patch) | |
| tree | 705d949f1b8ac657d88d4a650d13ed3c7210e495 /vernac/comAssumption.ml | |
| parent | 6c53049049781a71e366edd738747f9b30eb5d94 (diff) | |
| parent | 1e3ca892b208c22956d6c8f89a1d5863711d0cd9 (diff) | |
Merge PR #10231: Adding location in warning telling implicit arguments differ in term and type
Reviewed-by: ejgallego
Ack-by: jashug
Diffstat (limited to 'vernac/comAssumption.ml')
| -rw-r--r-- | vernac/comAssumption.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/vernac/comAssumption.ml b/vernac/comAssumption.ml index 591e4b130f..a27c08d176 100644 --- a/vernac/comAssumption.ml +++ b/vernac/comAssumption.ml @@ -283,8 +283,8 @@ 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 - | Constrexpr.ExplByPos (_, Some id') -> Id.equal id id' + let test x = match x.CAst.v with + | Some (Name id',_) -> Id.equal id id' | _ -> false in let impl = List.exists test impls in |