Module `Flambda_primitive.Block_kind`

type t =

val to_shape : 
  Flambda2_terms.Flambda_primitive.Block_kind.t ->
  Flambda2_kinds.Tag.t * Flambda2_kinds.Flambda_kind.Block_shape.t

val print : 
  Stdlib.Format.formatter ->
  Flambda2_terms.Flambda_primitive.Block_kind.t ->
  unit

val compare : 
  Flambda2_terms.Flambda_primitive.Block_kind.t ->
  Flambda2_terms.Flambda_primitive.Block_kind.t ->
  int

Module Flambda_primitive.Block_kind