File tree 2 files changed +4
-4
lines changed
2 files changed +4
-4
lines changed Original file line number Diff line number Diff line change @@ -1039,7 +1039,7 @@ struct
1039
1039
let get_big_int (x :expr ) =
1040
1040
if is_int_numeral x then
1041
1041
let s = (Z3native. get_numeral_string (Expr. gc x) x) in
1042
- Big_int. big_int_of_string s
1042
+ Z. of_string s
1043
1043
else
1044
1044
raise (Error " Conversion failed." )
1045
1045
@@ -1063,7 +1063,7 @@ struct
1063
1063
let get_ratio x =
1064
1064
if is_rat_numeral x then
1065
1065
let s = Z3native. get_numeral_string (Expr. gc x) x in
1066
- Ratio. ratio_of_string s
1066
+ Q. of_string s
1067
1067
else
1068
1068
raise (Error " Conversion failed." )
1069
1069
Original file line number Diff line number Diff line change @@ -1159,7 +1159,7 @@ sig
1159
1159
val mk_sort : context -> Sort .sort
1160
1160
1161
1161
(* * Get a big_int from an integer numeral *)
1162
- val get_big_int : Expr .expr -> Big_int .big_int
1162
+ val get_big_int : Expr .expr -> Z .t
1163
1163
1164
1164
(* * Returns a string representation of a numeral. *)
1165
1165
val numeral_to_string : Expr .expr -> string
@@ -1217,7 +1217,7 @@ sig
1217
1217
val get_denominator : Expr .expr -> Expr .expr
1218
1218
1219
1219
(* * Get a ratio from a real numeral *)
1220
- val get_ratio : Expr .expr -> Ratio .ratio
1220
+ val get_ratio : Expr .expr -> Q .t
1221
1221
1222
1222
(* * Returns a string representation in decimal notation.
1223
1223
The result has at most as many decimal places as indicated by the int argument.*)
You can’t perform that action at this time.
0 commit comments