fact: Definition sqrt_nat_F: forall n, (forall y, y < n -> ({s : nat & {r : nat | y = s * s + r /\ y < (s + 1) * (s + 1)}})) -> ({s : nat & {r : nat | n = s * s + r /\ n < (s + 1) * (s + 1)}}).
imports: Arith ArithRing Lia Compare_dec Wf_nat