diff options
| author | Pierre-Marie Pédrot | 2020-04-17 09:21:22 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-04-17 09:21:22 +0200 |
| commit | 9cd0c1d0b62715dc0c709634372c00cd3b50ebb6 (patch) | |
| tree | 3e7eac47ec0d76b39f24fbd6a8d60723da29eabb /kernel/section.ml | |
| parent | 8ba8c68eeb8653896523b4bce9453f832c919899 (diff) | |
| parent | 088cdbbb205cc97b0e77f9ccce6ae5e8f3d6541d (diff) | |
Merge PR #11972: Fix require in section
Ack-by: Zimmi48
Reviewed-by: ppedrot
Diffstat (limited to 'kernel/section.ml')
| -rw-r--r-- | kernel/section.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/kernel/section.ml b/kernel/section.ml index 948a967f96..8c36f16799 100644 --- a/kernel/section.ml +++ b/kernel/section.ml @@ -45,6 +45,8 @@ let has_poly_univs sec = sec.has_poly_univs let all_poly_univs sec = sec.all_poly_univs +let map_custom f sec = {sec with sec_custom = f sec.sec_custom} + let find_emap e (cmap, imap) = match e with | SecDefinition con -> Cmap.find con cmap | SecInductive ind -> Mindmap.find ind imap |