Flambda_kind.Block_shape
type t =
| Scannable of Scannable_block_shape.t
| Float_record
val equal : t -> t -> bool
val compare : t -> t -> int
val print : Format.formatter -> t -> unit
val element_kind : t -> int -> kind