proposition: Lemma R02 : isqrt n * isqrt n <= n.
proof: Proof. destruct (le_lt_dec (isqrt n * isqrt n) n); auto. case_eq (isqrt n). - cbn; auto with arith. - intros n0 H; assert (H0: n0 < isqrt n). { rewrite H; auto with arith. } generalize (boundedSearch1 P n n0 H0) ; intro H1. unfold P in H1; rewrite Nat.ltb_ge in H1; auto. Qed.
imports: hydras(primRec extEqualNat ssrnat_extracts) Coq(Min ArithRing Lia Compare_dec Arith Lia)