5232def coreWorkBind =
5233 (lambda unrestricted result : (family CoreWorkResult) .
5234 (lambda unrestricted continuation : (pi unrestricted term : (family CoreTerm) . (pi unrestricted budget : (family NormalizationBudget) . (family CoreWorkResult))) .
5235 (eliminate
5236 CoreWorkResult
5237 (lambda unrestricted current : (family CoreWorkResult) . (family CoreWorkResult))
5238 result
5239 (branch CoreWorkCompleted term budget . (continuation term budget))
5240 (branch CoreWorkExhausted budget . (constructor CoreWorkResult CoreWorkExhausted budget)))))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.