a choice between verdicts on a 0/1 natural
175def checkpointEnvelopeIf =
176 (lambda unrestricted condition : Nat .
177 (lambda unrestricted whenTrue : (family CheckpointEnvelopeVerdict) .
178 (lambda unrestricted whenFalse : (family CheckpointEnvelopeVerdict) .
179 (nat-eliminate
180 (lambda unrestricted current : Nat . (family CheckpointEnvelopeVerdict))
181 whenFalse
182 (lambda unrestricted p : Nat . (lambda unrestricted ignored : (family CheckpointEnvelopeVerdict) . whenTrue))
183 condition))))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.