From 10d3d803e6b57024dd15df7d61670ce42260948a Mon Sep 17 00:00:00 2001 From: Gaëtan Gilbert Date: Tue, 7 Nov 2017 15:09:27 +0100 Subject: [get_cumulativity_constraints] allowing further code sharing. --- kernel/reduction.mli | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'kernel/reduction.mli') diff --git a/kernel/reduction.mli b/kernel/reduction.mli index 0f1d681bc..059f259ae 100644 --- a/kernel/reduction.mli +++ b/kernel/reduction.mli @@ -39,8 +39,7 @@ type 'a universe_compare = { (* Might raise NotConvertible *) compare_sorts : env -> conv_pb -> Sorts.t -> Sorts.t -> 'a -> 'a; compare_instances: flex:bool -> Univ.Instance.t -> Univ.Instance.t -> 'a -> 'a; - compare_cumul_instances : conv_pb -> Univ.abstract_cumulativity_info -> - Univ.Instance.t -> Univ.Instance.t -> 'a -> 'a } + compare_cumul_instances : Univ.Constraint.t -> 'a -> 'a } type 'a universe_state = 'a * 'a universe_compare -- cgit v1.2.3