mirror of
https://github.com/c-cube/sidekick.git
synced 2026-01-23 09:56:40 -05:00
17 lines
290 B
OCaml
17 lines
290 B
OCaml
|
|
(** {1 Type Cardinality} *)
|
|
|
|
type t = Base_types.ty_card
|
|
|
|
val (+) : t -> t -> t
|
|
val ( * ) : t -> t -> t
|
|
val ( ^ ) : t -> t -> t
|
|
val finite : t
|
|
val infinite : t
|
|
|
|
val sum : t list -> t
|
|
val product : t list -> t
|
|
|
|
val equal : t -> t -> bool
|
|
val compare : t -> t -> int
|
|
val pp : t Intf.printer
|