1027def incrementNameLookup :
1028 (pi unrestricted result : (family NameLookupResult) . (family NameLookupResult)) =
1029 (lambda unrestricted result : (family NameLookupResult) .
1030 (eliminate
1031 NameLookupResult
1032 (lambda unrestricted value : (family NameLookupResult) . (family NameLookupResult))
1033 result
1034 (branch NameFound index . (constructor NameLookupResult NameFound (succ index)))
1035 (branch NameNotFound identifier . (constructor NameLookupResult NameNotFound identifier))))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.