diff options
| author | Gaëtan Gilbert | 2019-03-11 20:31:50 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2019-03-11 20:31:50 +0100 |
| commit | 8ade7303c7745190a9a55c2c6a20cf632ec0dacc (patch) | |
| tree | 0d1f0cc35192168aee3c718afed44b2aa2566200 /kernel/typeops.ml | |
| parent | 74534f84a782f5de740c52cb97b3ca3a02eb6aa2 (diff) | |
Make NotConvertibleVect exception internal to typeops
Diffstat (limited to 'kernel/typeops.ml')
| -rw-r--r-- | kernel/typeops.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/kernel/typeops.ml b/kernel/typeops.ml index 7eb8e803b3..a0023c11e6 100644 --- a/kernel/typeops.ml +++ b/kernel/typeops.ml @@ -24,6 +24,8 @@ open Type_errors module RelDecl = Context.Rel.Declaration module NamedDecl = Context.Named.Declaration +exception NotConvertibleVect of int + let conv_leq l2r env x y = default_conv CUMUL ~l2r env x y let conv_leq_vecti env v1 v2 = |