fact: Definition float2_of_pos x := let fix aux (m : positive) e { struct m } := match m with | xO p => aux p (Z.succ e) | _ => Float2 (Zpos m) e end in aux x Z0.
imports: Coq(ZArith Reals List Lia) Flocq(Core) Gappa_library