seat — a product as an assay, on Face (guards only, not grown)

0 receipts inline · 7 lines · pinned (not yet) — shasum -a 256 of this file, cut to 16, as pins has it · lake env lean seat.lean prints nothing when every receipt passes

import Face
open Room Face
set_option autoImplicit false

#guard behavior tally (List.replicate 4 ()) == 4
#guard drive (buffered tally) (settleHeld tally ((2 : Nat), [(), ()])) [()]
        == drive (buffered tally) ((2 : Nat), [(), ()]) [()]

the map of relations — every law a node, an arrow for each citation the elaborator reads (bin/counter chart; without --laws the carriers join the map)

graph LR