proposition: Lemma Zle_uniq {x y: Z} (p q: Zle x y): p = q.
proof: Proof. Admitted. Goal forall z, Z_4th_root_floor_plain z = Zsqrt_plain (Zsqrt_plain z). Proof. intros. unfold Zsqrt_plain. destruct z; try reflexivity. unfold Z_4th_root_floor_plain, Z_4th_root_floor. unfold projT1 at 1. generalize (Zsqrt_plain_is_pos). unfold Zsqrt_plain. admit. admit. admit. Qed.
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