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 | |
| parent | 74534f84a782f5de740c52cb97b3ca3a02eb6aa2 (diff) | |
Make NotConvertibleVect exception internal to typeops
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/reduction.ml | 2 | ||||
| -rw-r--r-- | kernel/reduction.mli | 1 | ||||
| -rw-r--r-- | kernel/typeops.ml | 2 |
3 files changed, 2 insertions, 3 deletions
diff --git a/kernel/reduction.ml b/kernel/reduction.ml index b583d33e29..6c909d250e 100644 --- a/kernel/reduction.ml +++ b/kernel/reduction.ml @@ -193,8 +193,6 @@ type 'a extended_conversion_function = 'a -> 'a -> unit exception NotConvertible -exception NotConvertibleVect of int - (* Convertibility of sorts *) diff --git a/kernel/reduction.mli b/kernel/reduction.mli index 0408dbf057..7dcafb7d7b 100644 --- a/kernel/reduction.mli +++ b/kernel/reduction.mli @@ -27,7 +27,6 @@ val nf_betaiota : env -> constr -> constr s conversion functions *) exception NotConvertible -exception NotConvertibleVect of int type 'a kernel_conversion_function = env -> 'a -> 'a -> unit type 'a extended_conversion_function = 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 = |