fact: Definition float10_of_pos x := let fix aux (n : nat) m e { struct n } := match n, m with | S n, xO p => let (q,r) := Z.pos_div_eucl p 5 in match r, q with | Z0, Zpos q => aux n q (Z.succ e) | _, _ => Float10 (Zpos m) e end | _, _ => Float10 (Zpos m) e end in aux (Digits.digits2_Pnat x) x Z0.
imports: Coq(ZArith Reals List Lia) Flocq(Core) Gappa_library