Payload admission is non-empty and fixes identity/hash widths.
213def nativePhysicalEmbeddedPayloadValid =
214 (lambda unrestricted payload : (family NativePhysicalEmbeddedPayload) .
215 (naturalAnd
216 (naturalNonzero (bytes-length (nativePhysicalEmbeddedPayloadMaterial payload)))
217 (naturalAnd
218 (naturalEqual
219 (bytes-length (nativePhysicalEmbeddedPayloadIdentityValue payload))
220 nativePhysicalEmbeddedIdentityLength)
221 (naturalEqual
222 (bytes-length (nativePhysicalEmbeddedPayloadDigestValue payload))
223 nativePhysicalEmbeddedDigestLength))))The compiler supplied declaration spans and resolved links from this source snapshot. This page does not assert that this file belongs to a checked closure.