Source/Packages

Runtime.NativePhysicalEmbeddedArtifact

packages/execution/src/Runtime/NativePhysicalEmbeddedArtifact.alpha

976 lines100 declarations49.9 KiBSHA-256 2a58d1c1703e

def · lines 701–740

nativePhysicalEmbeddedHashesValid

Full file
Compares manifest claims only with independently observed raw digests.
701def nativePhysicalEmbeddedHashesValid =
702  (lambda unrestricted host : (family NativePhysicalEmbeddedDescriptor) .
703    (lambda unrestricted program : (family NativePhysicalEmbeddedDescriptor) .
704      (lambda unrestricted qmd : (family NativePhysicalEmbeddedDescriptor) .
705        (lambda unrestricted pushbuffer : (family NativePhysicalEmbeddedDescriptor) .
706          (lambda unrestricted gpfifo : (family NativePhysicalEmbeddedDescriptor) .
707            (lambda unrestricted observed : (family NativePhysicalEmbeddedObservedDigests) .
708              (eliminate
709                NativePhysicalEmbeddedObservedDigests
710                (lambda unrestricted current : (family NativePhysicalEmbeddedObservedDigests) . Nat)
711                observed
712                (branch
713                  NativePhysicalEmbeddedObservedDigestsValue
714                  hostDigest
715                  programDigest
716                  qmdDigest
717                  pushbufferDigest
718                  gpfifoDigest
719                  .
720                  (naturalAnd
721                    (naturalEqual (bytes-length hostDigest) nativePhysicalEmbeddedDigestLength)
722                    (naturalAnd
723                      (bytes-equal
724                        (nativePhysicalEmbeddedDescriptorDigestValue host)
725                        hostDigest)
726                      (naturalAnd
727                        (bytes-equal
728                          (nativePhysicalEmbeddedDescriptorDigestValue program)
729                          programDigest)
730                        (naturalAnd
731                          (bytes-equal
732                            (nativePhysicalEmbeddedDescriptorDigestValue qmd)
733                            qmdDigest)
734                          (naturalAnd
735                            (bytes-equal
736                              (nativePhysicalEmbeddedDescriptorDigestValue pushbuffer)
737                              pushbufferDigest)
738                            (bytes-equal
739                              (nativePhysicalEmbeddedDescriptorDigestValue gpfifo)
740                              gpfifoDigest))))))))))))))

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.