fact: Definition of_hexadecimal (d : Hexadecimal.hexadecimal) : IR := let '(i, f, e) := match d with | Hexadecimal.Hexadecimal i f => (i, f, Decimal.Pos Decimal.Nil) | Hexadecimal.HexadecimalExp i f e => (i, f, e) end in let zq := match f with | Hexadecimal.Nil => IRZ (IZ_of_Z (Z.of_hex_int i)) | _ => let num := Z.of_hex_int (Hexadecimal.app_int i f) in let den := Nat.iter (Hexadecimal.nb_digits f) (Pos.mul 16) 1%positive in IRQ (Qmake num den) end in let e := Z.of_int e in match e with | Z0 => zq | Zpos e => IRmult zq (IRZ (IZpow_pos 2 e)) | Zneg e => IRdiv zq (IRZ (IZpow_pos 2 e)) end.
imports: ZArith_base QArith_base ConstructiveCauchyReals ConstructiveCauchyRealsMult ConstructiveRcomplete ClassicalDedekindReals