diff options
| author | Gaëtan Gilbert | 2020-11-12 11:13:50 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2020-11-13 12:55:35 +0100 |
| commit | 89f5d2503d68dae235b9c2153d34f0def30ff626 (patch) | |
| tree | 3dcf3a5a45b6f91baf7e3f9460fad07ec3b76c51 /kernel/environ.ml | |
| parent | e733f11f54cb847271c13f79538e8823c4d93038 (diff) | |
Make the universe of primitive arrays irrelevant
Fix #13354
This change is very specific to array, but should not be a significant
obstacle to generalization of the feature to eg axioms if we want to later.
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 914c951eb6..716b098995 100644 --- a/kernel/environ.ml +++ b/kernel/environ.ml @@ -569,6 +569,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) |