Data_ty (sidekick-base.Sidekick_base.Data

type select = Types_.select = {

select_id : ID.t;

select_cstor : Types_.cstor;

select_ty : Types_.ty lazy_t;

select_i : int;

}

type cstor = Types_.cstor = {

cstor_id : ID.t;

cstor_is_a : ID.t;

mutable cstor_arity : int;

cstor_args : select list lazy_t;

cstor_ty_as_data : Types_.data;

cstor_ty : Types_.ty lazy_t;

}

type t = Types_.data = {

data_id : ID.t;

data_cstors : cstor Sidekick_base__.ID.Map.t lazy_t;

data_as_ty : Types_.ty lazy_t;

}

type Types_.Const.view +=

| Data of Types_.data

| Cstor of cstor

| Select of select

| Is_a of cstor

include Sidekick_sigs.EQ_HASH_PRINT with type t := t

include Sidekick_sigs.EQ with type t := t

val equal : t -> t -> bool

include Sidekick_sigs.HASH with type t := t

val hash : t -> int

include Sidekick_sigs.PRINT with type t := t

val pp : t Sidekick_sigs.printer

module Select : sig ... end

module Cstor : sig ... end

val data : Types_.Term.store -> t -> Types_.Term.t

val cstor : Types_.Term.store -> cstor -> Types_.Term.t

val select : Types_.Term.store -> select -> Types_.Term.t

val is_a : Types_.Term.store -> cstor -> Types_.Term.t

val as_data : Types_.ty -> Types_.data option

val as_select : Types_.term -> select option

val as_cstor : Types_.term -> cstor option

val as_is_a : Types_.term -> cstor option