0 admitted, 1 insufficient destination, 2 incomplete entropy, 3 zero
identity, 4 unsupported contract. A successful byte count alone is not
permission to publish; every role must meet the AOS identity contract.
55def telemetryIdentityAdmission =
56 (lambda unrestricted version : Nat .
57 (lambda unrestricted extent : Nat .
58 (lambda unrestricted received : Nat .
59 (lambda unrestricted valid : Nat .
60 (aosChoose
61 Nat
62 (naturalAnd (naturalEqual version 1) (naturalLessOrEqual valid 1))
63 (aosChoose
64 Nat
65 (naturalLessOrEqual telemetryIdentitySetBytes extent)
66 (aosChoose
67 Nat
68 (naturalEqual received telemetryIdentitySetBytes)
69 (aosChoose Nat valid 0 3)
70 2)
71 1)
72 4)))))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.