def bigA

bend-collections-laws-math@1.0.0.0 · proofs/math/typed/f64addh.bend:46

import Base
import bend-collections-laws-math@1.0.0.0/spec/lib/common.bend as C
import bend-collections-laws-math@1.0.0.0/spec/math/f64.bend as SF
import bend-collections-laws-math@1.0.0.0/spec/math/w64.bend as SW
import bend-collections-laws-math@1.0.0.0/src/math/f64.bend as F
import bend-collections-laws-math@1.0.0.0/src/math/w64.bend as X
import bend-collections-laws-math@1.0.0.0/src/math/u64.bend as WU
import bend-collections-laws-math@1.0.0.0/proofs/math/typed/f64addg.bend as AG

46def bigA(+one: Nat, +h1: {one == 1n : Nat}, +s: Bool, +el: Nat, +fl: WU.U64, +es: Nat, +fs: WU.U64, +Fl: Nat, +Fs: Nat, +hfl: {SW.value(fl) == Fl : Nat}, +hfs: {SW.value(fs) == Fs : Nat}, +hFl: {C.fits(52n, Fl) == True{} : Bool}, +hFs: {C.fits(52n, Fs) == True{} : Bool}, +hlt: {Nat.is_lt(es, el) == True{} : Bool}) -> {F.rp62(s, Nat.add(F.off(), el), X.add(X.add(WU.U64{0, 536870912}, X.shl(fl, 9n)), X.shr_jam(F.am_small(es, X.shl(fs, 9n)), Nat.sub(el, es)))) == SF.round(s, Nat.add(AG.mt(es, Fs), C.shift(Nat.sub(AG.xe(el), AG.xe(es)), AG.mt(el, Fl))), AG.xe(es)) : F.F64}:
47  bigA_c(one, h1, s, el, fl, es, fs, Fl, Fs, hfl, hfs, hFl, hFs, hlt, Nat.is_eq(es, 0n), {==})