def cat_ok
import bendtorch@1.3.0.0/tensor.bend as Tensorimport Base
576def cat_ok(+a: List<&2, Nat>, +b: List<&2, Nat>, +d: Nat) -> Bool:
577 # bend-lint: disable-next bend-lint-rules/performance/eager_branch -- a shape predicate over a list of rank <= 4, once per operation; the types and LAWS.bend read its Bool form not-expected-because: a match would change the definition the proofs reduce, for no measurable gain
578 Bool.and(Nat.is_lt(d, rank(a)), cat_eq(a, b, d))