Avoid evaluating chunk division even in strict artifact realization when
the proposed contract has a zero chunk width.
397def planNativeCheckpoint =
398 (lambda unrestricted contract : (family CheckpointEnvelopeContract) .
399 (lambda unrestricted base : Nat .
400 (lambda unrestricted updates : Nat .
401 (lambda unrestricted invocations : Nat .
402 (lambda unrestricted available : Nat .
403 (nat-eliminate
404 (lambda unrestricted valid : Nat .
405 (family StdResult (family NativeCheckpointFailure) (family NativeCheckpointLayout)))
406 (constructor
407 StdResult
408 StdFailure
409 (family NativeCheckpointFailure)
410 (family NativeCheckpointLayout)
411 (constructor NativeCheckpointFailure NativeCheckpointBounds))
412 (lambda unrestricted previous : Nat .
413 (lambda unrestricted ignored : (family StdResult (family NativeCheckpointFailure) (family NativeCheckpointLayout)) .
414 (planNativeCheckpointNonempty contract base updates invocations available)))
415 (naturalNonzero (checkpointEnvelopeContractChunk contract))))))))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.