From 8cd0413c0bd79256b59ffbbfd97d61af86f5cc25 Mon Sep 17 00:00:00 2001 From: Pierre-Marie Pédrot Date: Tue, 11 Jul 2017 14:31:52 +0200 Subject: Properly handling polymorphic inductive subtyping in the checker. This is the followup of the previous commit, this time implementing the correct algorithm in the checker. --- checker/univ.mli | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'checker/univ.mli') diff --git a/checker/univ.mli b/checker/univ.mli index 75c76cd12..01df46fa1 100644 --- a/checker/univ.mli +++ b/checker/univ.mli @@ -212,6 +212,7 @@ sig val size : t -> int val instantiate : Instance.t -> t -> Constraint.t + val repr : t -> UContext.t end @@ -289,7 +290,10 @@ val instantiate_cumulativity_info : abstract_cumulativity_info -> cumulativity_i (** Build the relative instance corresponding to the context *) val make_abstract_instance : abstract_universe_context -> universe_instance - + +(** Check instance subtyping *) +val check_subtype : universes -> AUContext.t -> AUContext.t -> bool + (** {6 Pretty-printing of universes. } *) val pr_constraint_type : constraint_type -> Pp.std_ppcmds -- cgit v1.2.3