140def aosListLast =
141 (lambda unrestricted list : (family StdList Bytes) .
142 (eliminate
143 StdList
144 (lambda unrestricted current : (family StdList Bytes) . Bytes)
145 list
146 (branch StdListEmpty . b"")
147 (branch
148 StdListCons
149 head
150 tail
151 induction
152 .
153 (aosChoose Bytes (naturalIsZero (aosListLength tail)) head induction))))The compiler supplied declaration spans and resolved links from this source snapshot. This page does not assert that this file belongs to a checked closure.