fact: Definition sqrt2 ih il := let s := iter2_sqrt size (fun ih il j => j) ih il max_int in let (ih1, il1) := mulc s s in match il -c il1 with | C0 il2 => if ih1 <? ih then (s, C1 il2) else (s, C0 il2) | C1 il2 => if ih1 <? (ih - 1) then (s, C1 il2) else (s, C0 il2) end.
imports: Utf8 DoubleType Lia Zpow_facts Zgcd_alt PrimInt63