194def lexedFingerprint =
195 (lambda unrestricted stream : (family LexedBytes) .
196 (eliminate
197 LexedBytes
198 (lambda unrestricted value : (family LexedBytes) . Nat)
199 stream
200 (branch LexEnd . zero)
201 (branch
202 LexByte
203 tokenClass
204 tokenSpelling
205 lexedRest
206 ih_lexedRest
207 .
208 (eliminate
209 ByteClass
210 (lambda unrestricted value : (family ByteClass) . Nat)
211 tokenClass
212 (branch OpenDelimiter . (succ ih_lexedRest))
213 (branch CloseDelimiter . (succ (succ ih_lexedRest)))
214 (branch Whitespace . (succ (succ (succ ih_lexedRest))))
215 (branch DecimalDigit . (succ (succ (succ (succ ih_lexedRest)))))
216 (branch IdentifierByte . (succ (succ (succ (succ (succ ih_lexedRest))))))))))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.