def round_room

stelliferous@0.0.2.0 · proofs/traversal_lanes_refinement.bend:187

import Base
import stelliferous@0.0.2.0/proofs/nat_order.bend as Order

187def round_room(+start: Nat,+rest: Nat,+capacity: Nat,room: {Nat.is_le(Nat.add(start,8n+rest),capacity) == True{} : Bool}) ->
188  {Nat.is_le(Nat.add(start,8n),capacity) == True{} : Bool}:
189  Order.transitive(Nat.add(start,8n),Nat.add(start,8n+rest),capacity,Order.offset_le(start,8n,8n+rest,Order.le_add(8n,rest)),room)