- triple->tuple trpprocedure
function (result)
(triple->tuple trp) requires (%triple? trp) ensures (and (%tuple? result) (= (%tuple-length result) 3))
function (result)
(triple->tuple trp) requires (%triple? trp) ensures (and (%tuple? result) (= (%tuple-length result) 3))