diff options
| author | Pierre-Marie Pédrot | 2020-11-15 00:17:21 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-11-15 00:17:21 +0100 |
| commit | ecea6eda26e18dfacff3793d6ceed5b63e46bb3e (patch) | |
| tree | df01feec359299fb3159d831d0c7735b8f280a74 /kernel/environ.ml | |
| parent | 6b7d6be8eb0b8c12804a53475e33c1489e3bc61e (diff) | |
| parent | 89f5d2503d68dae235b9c2153d34f0def30ff626 (diff) | |
Merge PR #13356: Make the universe of primitive arrays irrelevant
Reviewed-by: ppedrot
Diffstat (limited to 'kernel/environ.ml')
| -rw-r--r-- | kernel/environ.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/kernel/environ.ml b/kernel/environ.ml index 5914e66fc3..69edb1498c 100644 --- a/kernel/environ.ml +++ b/kernel/environ.ml @@ -568,6 +568,11 @@ let is_primitive env c = | Declarations.Primitive _ -> true | _ -> false +let is_array_type env c = + match env.retroknowledge.Retroknowledge.retro_array with + | None -> false + | Some c' -> Constant.CanOrd.equal c c' + let polymorphic_constant cst env = Declareops.constant_is_polymorphic (lookup_constant cst env) |