Module `Serlib.Ser_univ`

module Level : SerType.SJ with type t = Univ.Level.t

module Universe : SerType.SJ with type t = Univ.Universe.t

module Variance : SerType.S with type t = Univ.Variance.t

module Instance : SerType.S with type t = Univ.Instance.t

type constraint_type = Univ.constraint_type

val constraint_type_of_sexp : Sexplib.Sexp.t -> constraint_type

val sexp_of_constraint_type : constraint_type -> Sexplib.Sexp.t

val constraint_type_of_yojson : 
  Yojson.Safe.t ->
  (constraint_type, string) Result.result

val constraint_type_to_yojson : constraint_type -> Yojson.Safe.t

type univ_constraint = Univ.univ_constraint

val univ_constraint_of_sexp : Sexplib.Sexp.t -> univ_constraint

val sexp_of_univ_constraint : univ_constraint -> Sexplib.Sexp.t

module Constraint : SerType.SJ with type t = Univ.Constraint.t

module UContext : SerType.S with type t = Univ.UContext.t

module AUContext : SerType.S with type t = Univ.AUContext.t

module ContextSet : SerType.S with type t = Univ.ContextSet.t

type 'a in_universe_context = 'a Univ.in_universe_context

A value in a universe context (resp. context set).

val in_universe_context_of_sexp : 
  (Sexplib.Sexp.t -> 'a) ->
  Sexplib.Sexp.t ->
  'a in_universe_context

val sexp_of_in_universe_context : 
  ('a -> Sexplib.Sexp.t) ->
  'a in_universe_context ->
  Sexplib.Sexp.t

type 'a in_universe_context_set = 'a Univ.in_universe_context_set

val in_universe_context_set_of_sexp : 
  (Sexplib.Sexp.t -> 'a) ->
  Sexplib.Sexp.t ->
  'a in_universe_context_set

val sexp_of_in_universe_context_set : 
  ('a -> Sexplib.Sexp.t) ->
  'a in_universe_context_set ->
  Sexplib.Sexp.t

type 'a puniverses = 'a * Instance.t

val puniverses_of_sexp : 
  (Sexplib.Sexp.t -> 'a) ->
  Sexplib.Sexp.t ->
  'a puniverses

val sexp_of_puniverses : 
  ('a -> Sexplib.Sexp.t) ->
  'a puniverses ->
  Sexplib.Sexp.t

val puniverses_of_yojson : 
  (Yojson.Safe.t -> ('a, string) Result.result) ->
  Yojson.Safe.t ->
  ('a puniverses, string) Result.result

val puniverses_to_yojson : 
  ('a -> Yojson.Safe.t) ->
  'a puniverses ->
  Yojson.Safe.t

type explanation = Univ.explanation

val explanation_of_sexp : Sexplib.Sexp.t -> explanation

val sexp_of_explanation : explanation -> Sexplib.Sexp.t

type univ_inconsistency = Univ.univ_inconsistency

val univ_inconsistency_of_sexp : Sexplib.Sexp.t -> univ_inconsistency

val sexp_of_univ_inconsistency : univ_inconsistency -> Sexplib.Sexp.t

Install