diff options
| author | Pierre-Marie Pédrot | 2019-10-16 16:27:53 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-10-16 16:27:53 +0200 |
| commit | cc9856e33fa1a15fe699e8d9cd7b76086563683d (patch) | |
| tree | 3a51c6466ff40685d2c126a3997390c227b2ce8b /kernel/section.ml | |
| parent | 5d82451d6d6f591ad81919d8e6529cee48474b9e (diff) | |
| parent | afd214869f050d07f9774d770c289bdc6e602dfd (diff) | |
Merge PR #10885: Remove [in_section] arguments to Safe_typing functions
Reviewed-by: ejgallego
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 babd9fe7a1..a1242f0faf 100644 --- a/kernel/section.ml +++ b/kernel/section.ml @@ -43,6 +43,8 @@ let empty = [] let is_empty = List.is_empty +let depth = List.length + let has_poly_univs = function | [] -> false | sec :: _ -> sec.has_poly_univs |