m' = max(m, the row's maximum) in tmp h; alpha = 2^(m - m') in tmp 4 + h;
m = m'; -m' in tmp 6 + h
281def saRescaleFactor = (lambda unrestricted h : Nat . (lambda unrestricted tail : (family SM86Program) .
282 (saFmax (saTmp h) (saTmp h) (saM h) saWaitNone
283 (saFneg (saTmp (naturalAdd 6 h)) (saTmp h)
284 (saFadd (saTmp (naturalAdd 4 h)) (saM h) (saTmp (naturalAdd 6 h)) saWaitNone
285 (saEx2 (saTmp (naturalAdd 4 h)) (saTmp (naturalAdd 4 h)) saWaitNone
286 (saOp (constructor SM86InstructionBody SM86IntegerAddThreeImmediate (saR (saM h)) (saR (saTmp h)) (saU 0) saPlain)
287 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.