fact: Definition Z_4th_root_floor (x: Z): (0 <= x)%Z -> {s: Z & {r: Z | x = Zpower s 4 + r /\ Zpower s 4 <= x < Zpower (s + 1) 4}}%Z.
imports: List NPeano QArith Qabs Qpossec Qsums Qround Qmetric ZArith CRArith CRsum util.Qgcd Program uneven_CRplus stdlib_omissions.P stdlib_omissions.Z stdlib_omissions.Q Coq.ZArith.Zsqrt_compat