From 4bf85270a36a0a3f9517d8bce92d843f882af00a Mon Sep 17 00:00:00 2001 From: Amin Timany Date: Tue, 2 May 2017 12:56:14 +0200 Subject: Simplify Univ.ml --- kernel/univ.ml | 4 ---- kernel/univ.mli | 4 ---- 2 files changed, 8 deletions(-) diff --git a/kernel/univ.ml b/kernel/univ.ml index 5de45cf2b..eb45f022e 100644 --- a/kernel/univ.ml +++ b/kernel/univ.ml @@ -1091,10 +1091,6 @@ struct let (ctx, ctx') = (halve_context (UContext.instance subtypcst))in Array.fold_left2 (fun subst l1 l2 -> LMap.add l1 l2 subst) LMap.empty ctx ctx' - let dest x = x - - let size ((x,_), _) = Instance.length x - end type universe_info_ind = UInfoInd.t diff --git a/kernel/univ.mli b/kernel/univ.mli index 114193329..53af80448 100644 --- a/kernel/univ.mli +++ b/kernel/univ.mli @@ -336,8 +336,6 @@ sig val univ_context : t -> universe_context val subtyp_context : t -> universe_context - val dest : t -> universe_context * universe_context - (** This function takes a universe context representing constraints of an inductive and a Instance.t of fresh universe names for the subtyping (with the same length as the context in the given @@ -347,8 +345,6 @@ sig val subtyping_susbst : t -> universe_level_subst - val size : t -> int - end type universe_info_ind = UInfoInd.t -- cgit v1.2.3