Commands only when `flag` is nonzero, or only when it is zero.
369def dpoWhen =
370 (lambda unrestricted flag : Nat .
371 (lambda unrestricted commands : (pi unrestricted tail : (family NativePhysicalCommands) . (family NativePhysicalCommands)) .
372 (lambda unrestricted tail : (family NativePhysicalCommands) .
373 (nat-eliminate
374 (lambda unrestricted current : Nat . (family NativePhysicalCommands))
375 tail
376 (lambda unrestricted previous : Nat .
377 (lambda unrestricted ignored : (family NativePhysicalCommands) . (commands tail)))
378 flag))))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.