diff options
| author | Gaëtan Gilbert | 2020-03-31 11:30:59 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2020-04-13 15:19:25 +0200 |
| commit | 088cdbbb205cc97b0e77f9ccce6ae5e8f3d6541d (patch) | |
| tree | a87010ae5d827f18c5d4747d29972b920dd92cd8 /kernel/section.ml | |
| parent | 0beca74bc90cef03d779a8e4f8668335c9c37716 (diff) | |
Fix #11783 Require in Section
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 |