diff options
| author | Enrico Tassi | 2019-04-01 13:32:56 +0200 |
|---|---|---|
| committer | Enrico Tassi | 2019-04-01 13:32:56 +0200 |
| commit | 606aa700cc258ceb01abbead42d38ef2e31ad6cd (patch) | |
| tree | d1aea8e9a50feb0c398c9eda2b0145291768ab26 /vernac | |
| parent | d16633368ba33d05bcae3e98b1e05efc5f530206 (diff) | |
| parent | 7df2d5bb117259b3af15c865903b05ee3a1f083e (diff) | |
Merge PR #9870: Minor refactoring in canonical structures
Reviewed-by: Zimmi48
Reviewed-by: gares
Reviewed-by: ppedrot
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 |