mirror of
https://github.com/c-cube/sidekick.git
synced 2026-03-10 15:45:57 -04:00
60 lines
1.2 KiB
OCaml
60 lines
1.2 KiB
OCaml
open Types_
|
|
|
|
type select = Types_.select = {
|
|
select_id: ID.t;
|
|
select_cstor: cstor;
|
|
select_ty: 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: data;
|
|
cstor_ty: ty lazy_t;
|
|
}
|
|
|
|
type t = data = {
|
|
data_id: ID.t;
|
|
data_cstors: cstor ID.Map.t lazy_t;
|
|
data_as_ty: ty lazy_t;
|
|
}
|
|
|
|
type Const.view +=
|
|
private
|
|
| Data of data
|
|
| Cstor of cstor
|
|
| Select of select
|
|
| Is_a of cstor
|
|
|
|
include Sidekick_sigs.EQ_HASH_PRINT with type t := t
|
|
|
|
module Select : sig
|
|
type t = select
|
|
|
|
include Sidekick_sigs.EQ_HASH_PRINT with type t := t
|
|
end
|
|
|
|
module Cstor : sig
|
|
type t = cstor
|
|
|
|
val ty_args : t -> ty list
|
|
val select_idx : t -> int -> select
|
|
|
|
include Sidekick_sigs.EQ_HASH_PRINT with type t := t
|
|
end
|
|
|
|
val data : Term.store -> t -> Term.t
|
|
val cstor : Term.store -> cstor -> Term.t
|
|
val select : Term.store -> select -> Term.t
|
|
val is_a : Term.store -> cstor -> Term.t
|
|
val data_as_ty : t -> ty
|
|
|
|
(* TODO: select_ : store -> cstor -> int -> term *)
|
|
|
|
val as_data : ty -> data option
|
|
val as_select : term -> select option
|
|
val as_cstor : term -> cstor option
|
|
val as_is_a : term -> cstor option
|