def size.cons

import bend-kit-cbor@0.3.0.0/cbor.bend as Cbor

import Base

271def size.cons(hr: Val & Nat, r: Val & Nat) -> Val & Nat:
272  (h, a) = hr
273  (t, b) = r
274  size.arr(h, (t, (1n + a + b : Nat)))

Uses (6)