Module Flambda_kind.Scannable_block_shape
For now if two block shapes do not compare as equal they will be incompatible. If that changes, a compatible function will be introduced.
val print : Format.formatter -> t -> unitval from_mixed_block_shape : _ Mixed_block_lambda_shape.t -> t