- tuple-cons-left arg tupprocedure
function (result)
(tuple-cons-left arg tup) requires (%tuple? tup) ensures (and (%tuple result) (= (%tuple-length result) (+ (%tuple-length tup) 1)))
function (result)
(tuple-cons-left arg tup)
requires (%tuple? tup)
ensures (and (%tuple result)
(= (%tuple-length result)
(+ (%tuple-length tup) 1)))