augment-array: Nat -> Denotable-value -> Array -> Denotable-value augment-array = lambda n.lambda d.lambda (map, lower, upper). inArray([i |->d]map, lower, upper)