diff options
| author | coqbot-app[bot] | 2020-10-19 10:43:01 +0000 |
|---|---|---|
| committer | GitHub | 2020-10-19 10:43:01 +0000 |
| commit | 5be9faac2dcf44b383e57f95b4fbd558b8bd24b8 (patch) | |
| tree | 8d089ada60a308f58bb63ac628ffbd71257da455 /stm | |
| parent | 4cb8a7c47972fc15e8f755a99e4a14170580aac1 (diff) | |
| parent | 2b8a11101a1f152f78f0f8c924701e5f3915b4f7 (diff) | |
Merge PR #13166: Fixes #13165: implicit arguments in defined fields of record types not taken into account
Reviewed-by: SkySkimmer
Diffstat (limited to 'stm')
| -rw-r--r-- | stm/vernac_classifier.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stm/vernac_classifier.ml b/stm/vernac_classifier.ml index 3996c64b67..ffae2866c0 100644 --- a/stm/vernac_classifier.ml +++ b/stm/vernac_classifier.ml @@ -128,7 +128,7 @@ let classify_vernac e = | Constructors l -> List.map (fun (_,({v=id},_)) -> id) l | RecordDecl (oid,l) -> (match oid with Some {v=x} -> [x] | _ -> []) @ CList.map_filter (function - | AssumExpr({v=Names.Name n},_), _ -> Some n + | AssumExpr({v=Names.Name n},_,_), _ -> Some n | _ -> None) l) l in VtSideff (List.flatten ids, VtLater) | VernacScheme l -> |