diff options
| author | Pierre-Marie Pédrot | 2019-03-18 10:37:15 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-03-18 10:37:15 +0100 |
| commit | 9ac5483132b42e845a0708491843693b70893eef (patch) | |
| tree | 0071caba1b8d408e5739ed7c5c8f3c4e60974bd0 | |
| parent | 68dd7ff4aa71ac35a5023a2f3d471af08c0d276e (diff) | |
| parent | 8ade7303c7745190a9a55c2c6a20cf632ec0dacc (diff) | |
Merge PR #9740: Make NotConvertibleVect exception internal to typeops
Reviewed-by: ppedrot
| -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 8c364602e9..2f11f3dd6b 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 be878dd99b..12ffbf4357 100644 --- a/kernel/typeops.ml +++ b/kernel/typeops.ml @@ -26,6 +26,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 = |