ProofList.pl_r_step_le: law of lawful-bytes@0.1.1.0
Import: import lawful-bytes@0.1.1.0/proof_list.bend as ProofList
Lines 98-103 of lawful-bytes@0.1.1.0/proof_list.bend: https://jend.leeeet.dev/read.txt?path=lawful-bytes@0.1.1.0/proof_list.bend&start_line=98&end_line=103

import Base

law pl_r_step_le:
  for +z: Bool
  for +r: Nat
  for +p: Nat
  for +h: {Nat.is_le(r, p) == True{} : Bool}
  {Nat.is_le(Bool.pick(Nat, z, 0n, 1n+r), 1n+p) == True{} : Bool}

Uses (4):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Bool
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Bool.pick
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Nat
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Nat.is_le