1041def sfpScaleRow = (lambda unrestricted scores : (pi unrestricted nt : Nat . Nat) . (lambda unrestricted h : Nat . (lambda unrestricted wait : Nat .
1042 (lambda unrestricted tail : (family SM86Program) .
1043 (saFor 16 (lambda unrestricted i : Nat .
1044 (let unrestricted e = (saElem (scores (naturalDivideUnchecked i 2)) h (naturalModuloUnchecked i 2)) in
1045 (saFmul e e saScale (naturalSelect (naturalIsZero i) wait saWaitNone))))
1046 tail)))))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.