diff options
| author | Vincent Laporte | 2019-03-29 09:27:42 +0000 |
|---|---|---|
| committer | Vincent Laporte | 2019-03-30 12:33:46 +0000 |
| commit | 456b282bef4ccdd5e67fdac4e938d02fce0f6901 (patch) | |
| tree | fc3c0be31eda41b5f4ba591ac003403c224c98f1 /vernac | |
| parent | 9b301be7c34f379073f2a35dfafc9fe9d610de10 (diff) | |
[Canonical structures] Minor refactoring
Diffstat (limited to 'vernac')
| -rw-r--r-- | vernac/record.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/record.ml b/vernac/record.ml index 23274040b0..cb67548667 100644 --- a/vernac/record.ml +++ b/vernac/record.ml @@ -443,7 +443,7 @@ let declare_structure ~cum finite ubinders univs paramimpls params template ?(ki let kinds,sp_projs = declare_projections rsp ctx ~kind binder_name.(i) coers fieldimpls fields in let build = ConstructRef cstr in let () = if is_coe then Class.try_add_new_coercion build ~local:false poly in - let () = Recordops.declare_structure(rsp,cstr,List.rev kinds,List.rev sp_projs) in + let () = Recordops.declare_structure(cstr, List.rev kinds, List.rev sp_projs) in rsp in List.mapi map record_data |