Module `Flambda_kind.Flat_suffix_element`

type t = flat_suffix_element

val naked_float : t

val kind : t -> kind

val from_singleton_mixed_block_element : 
  _ Mixed_block_lambda_shape.Singleton_mixed_block_element.t ->
  t

val print : Format.formatter -> t -> unit

val compare : t -> t -> int

val to_kind_with_subkind : t -> With_subkind.t

Module Flambda_kind.Flat_suffix_element