fact: Definition sqrt2_step (rec: int -> int -> int -> int) (ih il j: int) := if ih <? j then let (quo,_) := diveucl_21 ih il j in if quo <? j then match j +c quo with | C0 m1 => rec ih il (m1 >> 1) | C1 m1 => rec ih il ((m1 >> 1) + high_bit) end else j else j.
imports: Utf8 DoubleType Lia Zpow_facts Zgcd_alt PrimInt63