2195def decodeAtom =
2196 (lambda unrestricted spelling : Bytes .
2197 (app
2198 (nat-eliminate
2199 (lambda unrestricted matched : Nat .
2200 (pi unrestricted force : Nat . (family TermDecodeResult)))
2201 (lambda unrestricted force : Nat . (decodeNonTextAtom spelling))
2202 (lambda unrestricted predecessor : Nat .
2203 (lambda unrestricted unused : (pi unrestricted force : Nat . (family TermDecodeResult)) .
2204 (lambda unrestricted force : Nat . (decodeQuotedTextAtom spelling))))
2205 (byte-equal (bytes-head spelling) (byte 34)))
2206 zero))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.