From 6eba90dd509ad062106184139f89634d7235e0b6 Mon Sep 17 00:00:00 2001 From: dkalinichenko-js <118547217+dkalinichenko-js@users.noreply.github.com> Date: Thu, 23 May 2024 11:00:43 -0400 Subject: [PATCH] flambda-backend: Move unboxed types modules to `stdlib_upstream_compatible` (#2588) * Move unboxed types to `stdlib_upstream_compatible` * Search-and-replace moved modules in tests * Disable upstream compatibility warnings on external declarations * Fix includes * Promote changed tests * Modify `lib-extensions` tests --------- Co-authored-by: Diana Kalinichenko --- otherlibs/stable/dune | 8 - otherlibs/stdlib_stable/stdlib_stable.ml | 4 - otherlibs/stdlib_stable/stdlib_stable.mli | 4 - .../float_u.ml | 4 +- .../float_u.mli | 4 +- .../int32_u.ml | 4 +- .../int32_u.mli | 4 +- .../int64_u.ml | 4 +- .../int64_u.mli | 4 +- .../nativeint_u.ml | 4 +- .../nativeint_u.mli | 4 +- .../stdlib_upstream_compatible.ml | 4 + .../stdlib_upstream_compatible.mli | 4 + otherlibs/upstream_compatible/dune | 12 +- .../tests/mixed-blocks/constructor_args.ml | 10 +- .../generate_mixed_blocks_code.ml | 18 +- .../tests/mixed-blocks/generated_byte_test.ml | 2048 ++++++++--------- .../mixed-blocks/generated_native_test.ml | 458 ++-- .../tests/mixed-blocks/test_mixed_blocks.ml | 10 +- .../tests/parsetree/source_jane_street.ml | 8 +- testsuite/tests/parsetree/test_ppx.ml | 2 +- .../tests/typing-layouts-arrays/basics.ml | 12 +- .../typing-layouts-arrays/exp_and_pat.ml | 4 +- .../exp_and_pat_failing.ml | 6 +- .../test_int32_u_array.ml | 6 +- .../test_int64_u_array.ml | 6 +- .../test_nativeint_u_array.ml | 6 +- .../test_stdlib_float_u_array.ml | 6 +- .../tests/typing-layouts-bits32/alloc.ml | 4 +- .../typing-layouts-bits32/test_int32_u.ml | 4 +- .../typing-layouts-bits32/unboxed_bits32s.ml | 4 +- .../unboxed_bits32s_alpha.ml | 4 +- .../tests/typing-layouts-bits64/alloc.ml | 4 +- .../typing-layouts-bits64/test_int64_u.ml | 8 +- .../typing-layouts-bits64/unboxed_bits64s.ml | 4 +- .../unboxed_bits64s_alpha.ml | 4 +- .../tests/typing-layouts-float64/alloc.ml | 4 +- .../tests/typing-layouts-float64/basics.ml | 6 +- .../typing-layouts-float64/basics_beta.ml | 6 +- .../typing-layouts-float64/debug_events.ml | 6 +- .../typing-layouts-float64/stdlib_float_u.ml | 4 +- .../typing-layouts-float64/unboxed_floats.ml | 4 +- .../unboxed_floats_beta.ml | 4 +- testsuite/tests/typing-layouts-word/alloc.ml | 4 +- .../typing-layouts-word/test_nativeint_u.ml | 6 +- .../typing-layouts-word/unboxed_nativeints.ml | 4 +- .../unboxed_nativeints_alpha.ml | 4 +- testsuite/tests/typing-layouts/annots.ml | 6 +- .../tests/typing-layouts/any_in_types.ml | 18 +- testsuite/tests/typing-layouts/basics.ml | 97 +- .../typing-layouts/error_message_attr.ml | 6 +- testsuite/tests/typing-layouts/layout_poly.ml | 6 +- .../typing-layouts/layout_poly_native.ml | 10 +- testsuite/tests/typing-layouts/literals.ml | 18 +- .../tests/typing-layouts/literals_native.ml | 10 +- testsuite/tests/typing-layouts/modules.ml | 6 +- .../unboxed_bigstring_primitives.ml | 10 +- .../unboxed_int_array_indexing.ml | 8 +- 58 files changed, 1479 insertions(+), 1472 deletions(-) rename otherlibs/{stdlib_stable => stdlib_upstream_compatible}/float_u.ml (97%) rename otherlibs/{stdlib_stable => stdlib_upstream_compatible}/float_u.mli (98%) rename otherlibs/{stdlib_stable => stdlib_upstream_compatible}/int32_u.ml (95%) rename otherlibs/{stdlib_stable => stdlib_upstream_compatible}/int32_u.mli (98%) rename otherlibs/{stdlib_stable => stdlib_upstream_compatible}/int64_u.ml (96%) rename otherlibs/{stdlib_stable => stdlib_upstream_compatible}/int64_u.mli (98%) rename otherlibs/{stdlib_stable => stdlib_upstream_compatible}/nativeint_u.ml (98%) rename otherlibs/{stdlib_stable => stdlib_upstream_compatible}/nativeint_u.mli (99%) diff --git a/otherlibs/stable/dune b/otherlibs/stable/dune index 3494b3b69f9..140d465be04 100644 --- a/otherlibs/stable/dune +++ b/otherlibs/stable/dune @@ -44,18 +44,10 @@ (deps (glob_files ../stdlib_stable/*.{ml,mli})) (targets - float_u.ml - float_u.mli iarray.ml iarray.mli iarrayLabels.ml iarrayLabels.mli - int32_u.ml - int32_u.mli - int64_u.ml - int64_u.mli - nativeint_u.ml - nativeint_u.mli stable.ml stable.mli) (action diff --git a/otherlibs/stdlib_stable/stdlib_stable.ml b/otherlibs/stdlib_stable/stdlib_stable.ml index 36054b37698..e4352326765 100644 --- a/otherlibs/stdlib_stable/stdlib_stable.ml +++ b/otherlibs/stdlib_stable/stdlib_stable.ml @@ -1,6 +1,2 @@ -module Float_u = Float_u -module Int32_u = Int32_u -module Int64_u = Int64_u -module Nativeint_u = Nativeint_u module Iarray = Iarray module IarrayLabels = IarrayLabels diff --git a/otherlibs/stdlib_stable/stdlib_stable.mli b/otherlibs/stdlib_stable/stdlib_stable.mli index 36054b37698..e4352326765 100644 --- a/otherlibs/stdlib_stable/stdlib_stable.mli +++ b/otherlibs/stdlib_stable/stdlib_stable.mli @@ -1,6 +1,2 @@ -module Float_u = Float_u -module Int32_u = Int32_u -module Int64_u = Int64_u -module Nativeint_u = Nativeint_u module Iarray = Iarray module IarrayLabels = IarrayLabels diff --git a/otherlibs/stdlib_stable/float_u.ml b/otherlibs/stdlib_upstream_compatible/float_u.ml similarity index 97% rename from otherlibs/stdlib_stable/float_u.ml rename to otherlibs/stdlib_upstream_compatible/float_u.ml index 6dd7face9a0..3f1994728a8 100644 --- a/otherlibs/stdlib_stable/float_u.ml +++ b/otherlibs/stdlib_upstream_compatible/float_u.ml @@ -19,9 +19,9 @@ open! Stdlib type t = float# -external to_float : t -> (float[@local_opt]) = "%box_float" +external to_float : t -> (float[@local_opt]) = "%box_float" [@@warning "-187"] -external of_float : (float[@local_opt]) -> t = "%unbox_float" +external of_float : (float[@local_opt]) -> t = "%unbox_float" [@@warning "-187"] (* CR layouts: Investigate whether it's worth making these things externals. Are there situations where the middle-end won't inline them and remove the diff --git a/otherlibs/stdlib_stable/float_u.mli b/otherlibs/stdlib_upstream_compatible/float_u.mli similarity index 98% rename from otherlibs/stdlib_stable/float_u.mli rename to otherlibs/stdlib_upstream_compatible/float_u.mli index dcbe7fc92d4..0d920c2604b 100644 --- a/otherlibs/stdlib_stable/float_u.mli +++ b/otherlibs/stdlib_upstream_compatible/float_u.mli @@ -51,10 +51,10 @@ type t = float# [infinity]) when we we support [float64]s in structures. *) (* Unboxed-specific stuff at the top. *) -external to_float : t -> (float[@local_opt]) = "%box_float" +external to_float : t -> (float[@local_opt]) = "%box_float" [@@warning "-187"] (** Box a [float#] *) -external of_float : (float[@local_opt]) -> t = "%unbox_float" +external of_float : (float[@local_opt]) -> t = "%unbox_float" [@@warning "-187"] (** Unbox a boxed [float] *) (* Below here, everything also appears in [Float], though most things are diff --git a/otherlibs/stdlib_stable/int32_u.ml b/otherlibs/stdlib_upstream_compatible/int32_u.ml similarity index 95% rename from otherlibs/stdlib_stable/int32_u.ml rename to otherlibs/stdlib_upstream_compatible/int32_u.ml index f7c644b0acc..29b874e808e 100644 --- a/otherlibs/stdlib_stable/int32_u.ml +++ b/otherlibs/stdlib_upstream_compatible/int32_u.ml @@ -19,9 +19,9 @@ open! Stdlib type t = int32# -external to_int32 : t -> (int32[@local_opt]) = "%box_int32" +external to_int32 : t -> (int32[@local_opt]) = "%box_int32" [@@warning "-187"] -external of_int32 : (int32[@local_opt]) -> t = "%unbox_int32" +external of_int32 : (int32[@local_opt]) -> t = "%unbox_int32" [@@warning "-187"] let[@inline always] neg x = of_int32 (Int32.neg (to_int32 x)) diff --git a/otherlibs/stdlib_stable/int32_u.mli b/otherlibs/stdlib_upstream_compatible/int32_u.mli similarity index 98% rename from otherlibs/stdlib_stable/int32_u.mli rename to otherlibs/stdlib_upstream_compatible/int32_u.mli index a4d2d9caa0e..522ae827240 100644 --- a/otherlibs/stdlib_stable/int32_u.mli +++ b/otherlibs/stdlib_upstream_compatible/int32_u.mli @@ -43,10 +43,10 @@ type t = int32# *) (* Unboxed-specific stuff at the top. *) -external to_int32 : t -> (int32[@local_opt]) = "%box_int32" +external to_int32 : t -> (int32[@local_opt]) = "%box_int32" [@@warning "-187"] (** Box a [int32#] *) -external of_int32 : (int32[@local_opt]) -> t = "%unbox_int32" +external of_int32 : (int32[@local_opt]) -> t = "%unbox_int32" [@@warning "-187"] (** Unbox a boxed [int32] *) (* Below here, everything also appears in [Int32], though most things are diff --git a/otherlibs/stdlib_stable/int64_u.ml b/otherlibs/stdlib_upstream_compatible/int64_u.ml similarity index 96% rename from otherlibs/stdlib_stable/int64_u.ml rename to otherlibs/stdlib_upstream_compatible/int64_u.ml index fc92e1794c5..2a85846d4bf 100644 --- a/otherlibs/stdlib_stable/int64_u.ml +++ b/otherlibs/stdlib_upstream_compatible/int64_u.ml @@ -19,9 +19,9 @@ open! Stdlib type t = int64# -external to_int64 : t -> (int64[@local_opt]) = "%box_int64" +external to_int64 : t -> (int64[@local_opt]) = "%box_int64" [@@warning "-187"] -external of_int64 : (int64[@local_opt]) -> t = "%unbox_int64" +external of_int64 : (int64[@local_opt]) -> t = "%unbox_int64" [@@warning "-187"] let[@inline always] neg x = of_int64 (Int64.neg (to_int64 x)) diff --git a/otherlibs/stdlib_stable/int64_u.mli b/otherlibs/stdlib_upstream_compatible/int64_u.mli similarity index 98% rename from otherlibs/stdlib_stable/int64_u.mli rename to otherlibs/stdlib_upstream_compatible/int64_u.mli index b011d86d0d4..b0e6aeb6f46 100644 --- a/otherlibs/stdlib_stable/int64_u.mli +++ b/otherlibs/stdlib_upstream_compatible/int64_u.mli @@ -43,10 +43,10 @@ type t = int64# *) (* Unboxed-specific stuff at the top. *) -external to_int64 : t -> (int64[@local_opt]) = "%box_int64" +external to_int64 : t -> (int64[@local_opt]) = "%box_int64" [@@warning "-187"] (** Box a [int64#] *) -external of_int64 : (int64[@local_opt]) -> t = "%unbox_int64" +external of_int64 : (int64[@local_opt]) -> t = "%unbox_int64" [@@warning "-187"] (** Unbox a boxed [int64] *) (* Below here, everything also appears in [Int64], though most things are diff --git a/otherlibs/stdlib_stable/nativeint_u.ml b/otherlibs/stdlib_upstream_compatible/nativeint_u.ml similarity index 98% rename from otherlibs/stdlib_stable/nativeint_u.ml rename to otherlibs/stdlib_upstream_compatible/nativeint_u.ml index b5e26f309cf..086ca18a1af 100644 --- a/otherlibs/stdlib_stable/nativeint_u.ml +++ b/otherlibs/stdlib_upstream_compatible/nativeint_u.ml @@ -19,10 +19,10 @@ open! Stdlib type t = nativeint# -external to_nativeint : t -> (nativeint[@local_opt]) = "%box_nativeint" +external to_nativeint : t -> (nativeint[@local_opt]) = "%box_nativeint" [@@warning "-187"] external of_nativeint : (nativeint[@local_opt]) -> t = - "%unbox_nativeint" + "%unbox_nativeint" [@@warning "-187"] let[@inline always] neg x = of_nativeint (Nativeint.neg (to_nativeint x)) diff --git a/otherlibs/stdlib_stable/nativeint_u.mli b/otherlibs/stdlib_upstream_compatible/nativeint_u.mli similarity index 99% rename from otherlibs/stdlib_stable/nativeint_u.mli rename to otherlibs/stdlib_upstream_compatible/nativeint_u.mli index 951878b8d4f..23448d20dbc 100644 --- a/otherlibs/stdlib_stable/nativeint_u.mli +++ b/otherlibs/stdlib_upstream_compatible/nativeint_u.mli @@ -44,11 +44,11 @@ type t = nativeint# *) (* Unboxed-specific stuff at the top. *) -external to_nativeint : t -> (nativeint[@local_opt]) = "%box_nativeint" +external to_nativeint : t -> (nativeint[@local_opt]) = "%box_nativeint" [@@warning "-187"] (** Box a [nativeint#] *) external of_nativeint : (nativeint[@local_opt]) -> t = - "%unbox_nativeint" + "%unbox_nativeint" [@@warning "-187"] (** Unbox a boxed [nativeint] *) (* Below here, everything also appears in [Nativeint], though most things are diff --git a/otherlibs/stdlib_upstream_compatible/stdlib_upstream_compatible.ml b/otherlibs/stdlib_upstream_compatible/stdlib_upstream_compatible.ml index e69de29bb2d..928bda4cf85 100644 --- a/otherlibs/stdlib_upstream_compatible/stdlib_upstream_compatible.ml +++ b/otherlibs/stdlib_upstream_compatible/stdlib_upstream_compatible.ml @@ -0,0 +1,4 @@ +module Float_u = Float_u +module Int32_u = Int32_u +module Int64_u = Int64_u +module Nativeint_u = Nativeint_u diff --git a/otherlibs/stdlib_upstream_compatible/stdlib_upstream_compatible.mli b/otherlibs/stdlib_upstream_compatible/stdlib_upstream_compatible.mli index e69de29bb2d..928bda4cf85 100644 --- a/otherlibs/stdlib_upstream_compatible/stdlib_upstream_compatible.mli +++ b/otherlibs/stdlib_upstream_compatible/stdlib_upstream_compatible.mli @@ -0,0 +1,4 @@ +module Float_u = Float_u +module Int32_u = Int32_u +module Int64_u = Int64_u +module Nativeint_u = Nativeint_u diff --git a/otherlibs/upstream_compatible/dune b/otherlibs/upstream_compatible/dune index fc3926ee7c1..6b141b31f34 100644 --- a/otherlibs/upstream_compatible/dune +++ b/otherlibs/upstream_compatible/dune @@ -44,7 +44,17 @@ (rule (deps (glob_files ../stdlib_upstream_compatible/*.{ml,mli})) - (targets upstream_compatible.ml upstream_compatible.mli) + (targets + float_u.ml + float_u.mli + int32_u.ml + int32_u.mli + int64_u.ml + int64_u.mli + nativeint_u.ml + nativeint_u.mli + upstream_compatible.ml + upstream_compatible.mli) (action (bash "cp ../stdlib_upstream_compatible/*.{ml,mli} .; mv stdlib_upstream_compatible.ml upstream_compatible.ml; mv stdlib_upstream_compatible.mli upstream_compatible.mli"))) diff --git a/testsuite/tests/mixed-blocks/constructor_args.ml b/testsuite/tests/mixed-blocks/constructor_args.ml index b58ecd85ba8..1f5f882e383 100644 --- a/testsuite/tests/mixed-blocks/constructor_args.ml +++ b/testsuite/tests/mixed-blocks/constructor_args.ml @@ -2,7 +2,7 @@ flags = "-extension layouts_beta -extension small_numbers"; include beta; flambda2; - include stable; + include stdlib_upstream_compatible; { native; }{ @@ -15,10 +15,10 @@ module Float32_u = Beta.Float32_u module Float32 = Beta.Float32 -module Float_u = Stable.Float_u -module Int32_u = Stable.Int32_u -module Int64_u = Stable.Int64_u -module Nativeint_u = Stable.Nativeint_u +module Float_u = Stdlib_upstream_compatible.Float_u +module Int32_u = Stdlib_upstream_compatible.Int32_u +module Int64_u = Stdlib_upstream_compatible.Int64_u +module Nativeint_u = Stdlib_upstream_compatible.Nativeint_u let print_floatu prefix x = Printf.printf "%s: %.2f\n" prefix (Float_u.to_float x) let print_float prefix x = Printf.printf "%s: %.2f\n" prefix x diff --git a/testsuite/tests/mixed-blocks/generate_mixed_blocks_code.ml b/testsuite/tests/mixed-blocks/generate_mixed_blocks_code.ml index bd6e3788a60..3401036dba8 100644 --- a/testsuite/tests/mixed-blocks/generate_mixed_blocks_code.ml +++ b/testsuite/tests/mixed-blocks/generate_mixed_blocks_code.ml @@ -233,11 +233,11 @@ let type_to_field_integrity_check type_ ~access1 ~access2 ~message = | Str -> "check_string", None | Imm -> "check_int", None | Float -> "check_float", None - | Float64 -> "check_float", Some "Stable.Float_u.to_float" + | Float64 -> "check_float", Some "Stdlib_upstream_compatible.Float_u.to_float" | Float32 -> "check_float32", Some "Beta.Float32_u.to_float32" - | Bits32 -> "check_int32", Some "Stable.Int32_u.to_int32" - | Bits64 -> "check_int64", Some "Stable.Int64_u.to_int64" - | Word -> "check_int", Some "Stable.Nativeint_u.to_int" + | Bits32 -> "check_int32", Some "Stdlib_upstream_compatible.Int32_u.to_int32" + | Bits64 -> "check_int64", Some "Stdlib_upstream_compatible.Int64_u.to_int64" + | Word -> "check_int", Some "Stdlib_upstream_compatible.Nativeint_u.to_int" in let transform access = match transformation with @@ -567,7 +567,7 @@ let main n ~bytecode = line {|(* TEST flags = "-extension layouts_beta -extension small_numbers"; include beta; - include stable;|}; + include stdlib_upstream_compatible;|}; if bytecode then ( line {| bytecode;|}; ) else ( @@ -582,11 +582,11 @@ let main n ~bytecode = line {|let create_int () = Random.int 0x3FFF_FFFF|}; line {|let create_float () = Random.float Float.max_float|}; line {|let create_float32 () = Beta.Float32.of_float (Random.float Float.max_float)|}; - line {|let create_float_u () = Stable.Float_u.of_float (create_float ())|}; + line {|let create_float_u () = Stdlib_upstream_compatible.Float_u.of_float (create_float ())|}; line {|let create_float32_u () = Beta.Float32_u.of_float32 (create_float32 ())|}; - line {|let create_int32_u () = Stable.Int32_u.of_int32 (Random.int32 0x7FFF_FFFFl)|}; - line {|let create_int64_u () = Stable.Int64_u.of_int64 (Random.int64 0x7FFF_FFFF_FFFF_FFFFL)|}; - line {|let create_nativeint_u () = Stable.Nativeint_u.of_nativeint (Random.nativeint 0x7FFF_FFFF_FFFF_FFFFn)|}; + line {|let create_int32_u () = Stdlib_upstream_compatible.Int32_u.of_int32 (Random.int32 0x7FFF_FFFFl)|}; + line {|let create_int64_u () = Stdlib_upstream_compatible.Int64_u.of_int64 (Random.int64 0x7FFF_FFFF_FFFF_FFFFL)|}; + line {|let create_nativeint_u () = Stdlib_upstream_compatible.Nativeint_u.of_nativeint (Random.nativeint 0x7FFF_FFFF_FFFF_FFFFn)|}; line {|let check_gen ~equal ~to_string ~message y1 y2 = if equal y1 y2 then () else diff --git a/testsuite/tests/mixed-blocks/generated_byte_test.ml b/testsuite/tests/mixed-blocks/generated_byte_test.ml index f0ab59138db..efd31eefd2c 100644 --- a/testsuite/tests/mixed-blocks/generated_byte_test.ml +++ b/testsuite/tests/mixed-blocks/generated_byte_test.ml @@ -1,7 +1,7 @@ (* TEST flags = "-extension layouts_beta -extension small_numbers"; include beta; - include stable; + include stdlib_upstream_compatible; bytecode; *) (** This is code generated by [generate_mixed_blocks_code.ml]. *) @@ -11,11 +11,11 @@ let create_string () = String.make (Random.int 100) 'a' let create_int () = Random.int 0x3FFF_FFFF let create_float () = Random.float Float.max_float let create_float32 () = Beta.Float32.of_float (Random.float Float.max_float) -let create_float_u () = Stable.Float_u.of_float (create_float ()) +let create_float_u () = Stdlib_upstream_compatible.Float_u.of_float (create_float ()) let create_float32_u () = Beta.Float32_u.of_float32 (create_float32 ()) -let create_int32_u () = Stable.Int32_u.of_int32 (Random.int32 0x7FFF_FFFFl) -let create_int64_u () = Stable.Int64_u.of_int64 (Random.int64 0x7FFF_FFFF_FFFF_FFFFL) -let create_nativeint_u () = Stable.Nativeint_u.of_nativeint (Random.nativeint 0x7FFF_FFFF_FFFF_FFFFn) +let create_int32_u () = Stdlib_upstream_compatible.Int32_u.of_int32 (Random.int32 0x7FFF_FFFFl) +let create_int64_u () = Stdlib_upstream_compatible.Int64_u.of_int64 (Random.int64 0x7FFF_FFFF_FFFF_FFFFL) +let create_nativeint_u () = Stdlib_upstream_compatible.Nativeint_u.of_nativeint (Random.nativeint 0x7FFF_FFFF_FFFF_FFFFn) let check_gen ~equal ~to_string ~message y1 y2 = if equal y1 y2 then () else failwith @@ -7379,250 +7379,250 @@ let t_orig599_A = t599_A;; compare_expect_failure t599_A t0; print_endline " - Checking field values"; check_float t0.float0 t_orig0.float0 ~message:"t0.float0"; - check_float (Stable.Float_u.to_float t0.float_u1) (Stable.Float_u.to_float t_orig0.float_u1) ~message:"t0.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t0.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig0.float_u1) ~message:"t0.float_u1"; check_float t1.float0 t_orig1.float0 ~message:"t1.float0"; - check_float (Stable.Float_u.to_float t1.float_u1) (Stable.Float_u.to_float t_orig1.float_u1) ~message:"t1.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t1.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig1.float_u1) ~message:"t1.float_u1"; check_float t2.float0 t_orig2.float0 ~message:"t2.float0"; - check_float (Stable.Float_u.to_float t2.float_u1) (Stable.Float_u.to_float t_orig2.float_u1) ~message:"t2.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t2.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig2.float_u1) ~message:"t2.float_u1"; check_float t3.float0 t_orig3.float0 ~message:"t3.float0"; - check_float (Stable.Float_u.to_float t3.float_u1) (Stable.Float_u.to_float t_orig3.float_u1) ~message:"t3.float_u1"; - check_float (Stable.Float_u.to_float t4.float_u0) (Stable.Float_u.to_float t_orig4.float_u0) ~message:"t4.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t3.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig3.float_u1) ~message:"t3.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t4.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig4.float_u0) ~message:"t4.float_u0"; check_float t4.float1 t_orig4.float1 ~message:"t4.float1"; - check_float (Stable.Float_u.to_float t5.float_u0) (Stable.Float_u.to_float t_orig5.float_u0) ~message:"t5.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t5.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig5.float_u0) ~message:"t5.float_u0"; check_float t5.float1 t_orig5.float1 ~message:"t5.float1"; - check_float (Stable.Float_u.to_float t6.float_u0) (Stable.Float_u.to_float t_orig6.float_u0) ~message:"t6.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t6.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig6.float_u0) ~message:"t6.float_u0"; check_float t6.float1 t_orig6.float1 ~message:"t6.float1"; - check_float (Stable.Float_u.to_float t7.float_u0) (Stable.Float_u.to_float t_orig7.float_u0) ~message:"t7.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t7.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig7.float_u0) ~message:"t7.float_u0"; check_float t7.float1 t_orig7.float1 ~message:"t7.float1"; check_float t8.float0 t_orig8.float0 ~message:"t8.float0"; - check_float (Stable.Float_u.to_float t8.float_u1) (Stable.Float_u.to_float t_orig8.float_u1) ~message:"t8.float_u1"; - check_float (Stable.Float_u.to_float t8.float_u2) (Stable.Float_u.to_float t_orig8.float_u2) ~message:"t8.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t8.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig8.float_u1) ~message:"t8.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t8.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig8.float_u2) ~message:"t8.float_u2"; check_float t9.float0 t_orig9.float0 ~message:"t9.float0"; - check_float (Stable.Float_u.to_float t9.float_u1) (Stable.Float_u.to_float t_orig9.float_u1) ~message:"t9.float_u1"; - check_float (Stable.Float_u.to_float t9.float_u2) (Stable.Float_u.to_float t_orig9.float_u2) ~message:"t9.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t9.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig9.float_u1) ~message:"t9.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t9.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig9.float_u2) ~message:"t9.float_u2"; check_float t10.float0 t_orig10.float0 ~message:"t10.float0"; - check_float (Stable.Float_u.to_float t10.float_u1) (Stable.Float_u.to_float t_orig10.float_u1) ~message:"t10.float_u1"; - check_float (Stable.Float_u.to_float t10.float_u2) (Stable.Float_u.to_float t_orig10.float_u2) ~message:"t10.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t10.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig10.float_u1) ~message:"t10.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t10.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig10.float_u2) ~message:"t10.float_u2"; check_float t11.float0 t_orig11.float0 ~message:"t11.float0"; - check_float (Stable.Float_u.to_float t11.float_u1) (Stable.Float_u.to_float t_orig11.float_u1) ~message:"t11.float_u1"; - check_float (Stable.Float_u.to_float t11.float_u2) (Stable.Float_u.to_float t_orig11.float_u2) ~message:"t11.float_u2"; - check_float (Stable.Float_u.to_float t12.float_u0) (Stable.Float_u.to_float t_orig12.float_u0) ~message:"t12.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t11.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig11.float_u1) ~message:"t11.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t11.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig11.float_u2) ~message:"t11.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t12.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig12.float_u0) ~message:"t12.float_u0"; check_float t12.float1 t_orig12.float1 ~message:"t12.float1"; - check_float (Stable.Float_u.to_float t12.float_u2) (Stable.Float_u.to_float t_orig12.float_u2) ~message:"t12.float_u2"; - check_float (Stable.Float_u.to_float t13.float_u0) (Stable.Float_u.to_float t_orig13.float_u0) ~message:"t13.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t12.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig12.float_u2) ~message:"t12.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t13.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig13.float_u0) ~message:"t13.float_u0"; check_float t13.float1 t_orig13.float1 ~message:"t13.float1"; - check_float (Stable.Float_u.to_float t13.float_u2) (Stable.Float_u.to_float t_orig13.float_u2) ~message:"t13.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t13.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig13.float_u2) ~message:"t13.float_u2"; check_float t14.float0 t_orig14.float0 ~message:"t14.float0"; check_float t14.float1 t_orig14.float1 ~message:"t14.float1"; - check_float (Stable.Float_u.to_float t14.float_u2) (Stable.Float_u.to_float t_orig14.float_u2) ~message:"t14.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t14.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig14.float_u2) ~message:"t14.float_u2"; check_float t15.float0 t_orig15.float0 ~message:"t15.float0"; check_float t15.float1 t_orig15.float1 ~message:"t15.float1"; - check_float (Stable.Float_u.to_float t15.float_u2) (Stable.Float_u.to_float t_orig15.float_u2) ~message:"t15.float_u2"; - check_float (Stable.Float_u.to_float t16.float_u0) (Stable.Float_u.to_float t_orig16.float_u0) ~message:"t16.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t15.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig15.float_u2) ~message:"t15.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t16.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig16.float_u0) ~message:"t16.float_u0"; check_float t16.float1 t_orig16.float1 ~message:"t16.float1"; - check_float (Stable.Float_u.to_float t16.float_u2) (Stable.Float_u.to_float t_orig16.float_u2) ~message:"t16.float_u2"; - check_float (Stable.Float_u.to_float t17.float_u0) (Stable.Float_u.to_float t_orig17.float_u0) ~message:"t17.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t16.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig16.float_u2) ~message:"t16.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t17.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig17.float_u0) ~message:"t17.float_u0"; check_float t17.float1 t_orig17.float1 ~message:"t17.float1"; - check_float (Stable.Float_u.to_float t17.float_u2) (Stable.Float_u.to_float t_orig17.float_u2) ~message:"t17.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t17.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig17.float_u2) ~message:"t17.float_u2"; check_float t18.float0 t_orig18.float0 ~message:"t18.float0"; check_float t18.float1 t_orig18.float1 ~message:"t18.float1"; - check_float (Stable.Float_u.to_float t18.float_u2) (Stable.Float_u.to_float t_orig18.float_u2) ~message:"t18.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t18.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig18.float_u2) ~message:"t18.float_u2"; check_float t19.float0 t_orig19.float0 ~message:"t19.float0"; check_float t19.float1 t_orig19.float1 ~message:"t19.float1"; - check_float (Stable.Float_u.to_float t19.float_u2) (Stable.Float_u.to_float t_orig19.float_u2) ~message:"t19.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t19.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig19.float_u2) ~message:"t19.float_u2"; check_float t20.float0 t_orig20.float0 ~message:"t20.float0"; - check_float (Stable.Float_u.to_float t20.float_u1) (Stable.Float_u.to_float t_orig20.float_u1) ~message:"t20.float_u1"; - check_float (Stable.Float_u.to_float t20.float_u2) (Stable.Float_u.to_float t_orig20.float_u2) ~message:"t20.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t20.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig20.float_u1) ~message:"t20.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t20.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig20.float_u2) ~message:"t20.float_u2"; check_float t21.float0 t_orig21.float0 ~message:"t21.float0"; - check_float (Stable.Float_u.to_float t21.float_u1) (Stable.Float_u.to_float t_orig21.float_u1) ~message:"t21.float_u1"; - check_float (Stable.Float_u.to_float t21.float_u2) (Stable.Float_u.to_float t_orig21.float_u2) ~message:"t21.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t21.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig21.float_u1) ~message:"t21.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t21.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig21.float_u2) ~message:"t21.float_u2"; check_float t22.float0 t_orig22.float0 ~message:"t22.float0"; - check_float (Stable.Float_u.to_float t22.float_u1) (Stable.Float_u.to_float t_orig22.float_u1) ~message:"t22.float_u1"; - check_float (Stable.Float_u.to_float t22.float_u2) (Stable.Float_u.to_float t_orig22.float_u2) ~message:"t22.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t22.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig22.float_u1) ~message:"t22.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t22.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig22.float_u2) ~message:"t22.float_u2"; check_float t23.float0 t_orig23.float0 ~message:"t23.float0"; - check_float (Stable.Float_u.to_float t23.float_u1) (Stable.Float_u.to_float t_orig23.float_u1) ~message:"t23.float_u1"; - check_float (Stable.Float_u.to_float t23.float_u2) (Stable.Float_u.to_float t_orig23.float_u2) ~message:"t23.float_u2"; - check_float (Stable.Float_u.to_float t24.float_u0) (Stable.Float_u.to_float t_orig24.float_u0) ~message:"t24.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t23.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig23.float_u1) ~message:"t23.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t23.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig23.float_u2) ~message:"t23.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t24.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig24.float_u0) ~message:"t24.float_u0"; check_float t24.float1 t_orig24.float1 ~message:"t24.float1"; - check_float (Stable.Float_u.to_float t24.float_u2) (Stable.Float_u.to_float t_orig24.float_u2) ~message:"t24.float_u2"; - check_float (Stable.Float_u.to_float t25.float_u0) (Stable.Float_u.to_float t_orig25.float_u0) ~message:"t25.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t24.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig24.float_u2) ~message:"t24.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t25.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig25.float_u0) ~message:"t25.float_u0"; check_float t25.float1 t_orig25.float1 ~message:"t25.float1"; - check_float (Stable.Float_u.to_float t25.float_u2) (Stable.Float_u.to_float t_orig25.float_u2) ~message:"t25.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t25.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig25.float_u2) ~message:"t25.float_u2"; check_float t26.float0 t_orig26.float0 ~message:"t26.float0"; check_float t26.float1 t_orig26.float1 ~message:"t26.float1"; - check_float (Stable.Float_u.to_float t26.float_u2) (Stable.Float_u.to_float t_orig26.float_u2) ~message:"t26.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t26.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig26.float_u2) ~message:"t26.float_u2"; check_float t27.float0 t_orig27.float0 ~message:"t27.float0"; check_float t27.float1 t_orig27.float1 ~message:"t27.float1"; - check_float (Stable.Float_u.to_float t27.float_u2) (Stable.Float_u.to_float t_orig27.float_u2) ~message:"t27.float_u2"; - check_float (Stable.Float_u.to_float t28.float_u0) (Stable.Float_u.to_float t_orig28.float_u0) ~message:"t28.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t27.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig27.float_u2) ~message:"t27.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t28.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig28.float_u0) ~message:"t28.float_u0"; check_float t28.float1 t_orig28.float1 ~message:"t28.float1"; - check_float (Stable.Float_u.to_float t28.float_u2) (Stable.Float_u.to_float t_orig28.float_u2) ~message:"t28.float_u2"; - check_float (Stable.Float_u.to_float t29.float_u0) (Stable.Float_u.to_float t_orig29.float_u0) ~message:"t29.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t28.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig28.float_u2) ~message:"t28.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t29.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig29.float_u0) ~message:"t29.float_u0"; check_float t29.float1 t_orig29.float1 ~message:"t29.float1"; - check_float (Stable.Float_u.to_float t29.float_u2) (Stable.Float_u.to_float t_orig29.float_u2) ~message:"t29.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t29.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig29.float_u2) ~message:"t29.float_u2"; check_float t30.float0 t_orig30.float0 ~message:"t30.float0"; check_float t30.float1 t_orig30.float1 ~message:"t30.float1"; - check_float (Stable.Float_u.to_float t30.float_u2) (Stable.Float_u.to_float t_orig30.float_u2) ~message:"t30.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t30.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig30.float_u2) ~message:"t30.float_u2"; check_float t31.float0 t_orig31.float0 ~message:"t31.float0"; check_float t31.float1 t_orig31.float1 ~message:"t31.float1"; - check_float (Stable.Float_u.to_float t31.float_u2) (Stable.Float_u.to_float t_orig31.float_u2) ~message:"t31.float_u2"; - check_float (Stable.Float_u.to_float t32.float_u0) (Stable.Float_u.to_float t_orig32.float_u0) ~message:"t32.float_u0"; - check_float (Stable.Float_u.to_float t32.float_u1) (Stable.Float_u.to_float t_orig32.float_u1) ~message:"t32.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t31.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig31.float_u2) ~message:"t31.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t32.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig32.float_u0) ~message:"t32.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t32.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig32.float_u1) ~message:"t32.float_u1"; check_float t32.float2 t_orig32.float2 ~message:"t32.float2"; - check_float (Stable.Float_u.to_float t33.float_u0) (Stable.Float_u.to_float t_orig33.float_u0) ~message:"t33.float_u0"; - check_float (Stable.Float_u.to_float t33.float_u1) (Stable.Float_u.to_float t_orig33.float_u1) ~message:"t33.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t33.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig33.float_u0) ~message:"t33.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t33.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig33.float_u1) ~message:"t33.float_u1"; check_float t33.float2 t_orig33.float2 ~message:"t33.float2"; check_float t34.float0 t_orig34.float0 ~message:"t34.float0"; - check_float (Stable.Float_u.to_float t34.float_u1) (Stable.Float_u.to_float t_orig34.float_u1) ~message:"t34.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t34.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig34.float_u1) ~message:"t34.float_u1"; check_float t34.float2 t_orig34.float2 ~message:"t34.float2"; check_float t35.float0 t_orig35.float0 ~message:"t35.float0"; - check_float (Stable.Float_u.to_float t35.float_u1) (Stable.Float_u.to_float t_orig35.float_u1) ~message:"t35.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t35.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig35.float_u1) ~message:"t35.float_u1"; check_float t35.float2 t_orig35.float2 ~message:"t35.float2"; - check_float (Stable.Float_u.to_float t36.float_u0) (Stable.Float_u.to_float t_orig36.float_u0) ~message:"t36.float_u0"; - check_float (Stable.Float_u.to_float t36.float_u1) (Stable.Float_u.to_float t_orig36.float_u1) ~message:"t36.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t36.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig36.float_u0) ~message:"t36.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t36.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig36.float_u1) ~message:"t36.float_u1"; check_float t36.float2 t_orig36.float2 ~message:"t36.float2"; - check_float (Stable.Float_u.to_float t37.float_u0) (Stable.Float_u.to_float t_orig37.float_u0) ~message:"t37.float_u0"; - check_float (Stable.Float_u.to_float t37.float_u1) (Stable.Float_u.to_float t_orig37.float_u1) ~message:"t37.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t37.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig37.float_u0) ~message:"t37.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t37.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig37.float_u1) ~message:"t37.float_u1"; check_float t37.float2 t_orig37.float2 ~message:"t37.float2"; check_float t38.float0 t_orig38.float0 ~message:"t38.float0"; - check_float (Stable.Float_u.to_float t38.float_u1) (Stable.Float_u.to_float t_orig38.float_u1) ~message:"t38.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t38.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig38.float_u1) ~message:"t38.float_u1"; check_float t38.float2 t_orig38.float2 ~message:"t38.float2"; check_float t39.float0 t_orig39.float0 ~message:"t39.float0"; - check_float (Stable.Float_u.to_float t39.float_u1) (Stable.Float_u.to_float t_orig39.float_u1) ~message:"t39.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t39.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig39.float_u1) ~message:"t39.float_u1"; check_float t39.float2 t_orig39.float2 ~message:"t39.float2"; - check_float (Stable.Float_u.to_float t40.float_u0) (Stable.Float_u.to_float t_orig40.float_u0) ~message:"t40.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t40.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig40.float_u0) ~message:"t40.float_u0"; check_float t40.float1 t_orig40.float1 ~message:"t40.float1"; check_float t40.float2 t_orig40.float2 ~message:"t40.float2"; - check_float (Stable.Float_u.to_float t41.float_u0) (Stable.Float_u.to_float t_orig41.float_u0) ~message:"t41.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t41.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig41.float_u0) ~message:"t41.float_u0"; check_float t41.float1 t_orig41.float1 ~message:"t41.float1"; check_float t41.float2 t_orig41.float2 ~message:"t41.float2"; - check_float (Stable.Float_u.to_float t42.float_u0) (Stable.Float_u.to_float t_orig42.float_u0) ~message:"t42.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t42.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig42.float_u0) ~message:"t42.float_u0"; check_float t42.float1 t_orig42.float1 ~message:"t42.float1"; check_float t42.float2 t_orig42.float2 ~message:"t42.float2"; - check_float (Stable.Float_u.to_float t43.float_u0) (Stable.Float_u.to_float t_orig43.float_u0) ~message:"t43.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t43.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig43.float_u0) ~message:"t43.float_u0"; check_float t43.float1 t_orig43.float1 ~message:"t43.float1"; check_float t43.float2 t_orig43.float2 ~message:"t43.float2"; - check_float (Stable.Float_u.to_float t44.float_u0) (Stable.Float_u.to_float t_orig44.float_u0) ~message:"t44.float_u0"; - check_float (Stable.Float_u.to_float t44.float_u1) (Stable.Float_u.to_float t_orig44.float_u1) ~message:"t44.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t44.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig44.float_u0) ~message:"t44.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t44.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig44.float_u1) ~message:"t44.float_u1"; check_float t44.float2 t_orig44.float2 ~message:"t44.float2"; - check_float (Stable.Float_u.to_float t45.float_u0) (Stable.Float_u.to_float t_orig45.float_u0) ~message:"t45.float_u0"; - check_float (Stable.Float_u.to_float t45.float_u1) (Stable.Float_u.to_float t_orig45.float_u1) ~message:"t45.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t45.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig45.float_u0) ~message:"t45.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t45.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig45.float_u1) ~message:"t45.float_u1"; check_float t45.float2 t_orig45.float2 ~message:"t45.float2"; check_float t46.float0 t_orig46.float0 ~message:"t46.float0"; - check_float (Stable.Float_u.to_float t46.float_u1) (Stable.Float_u.to_float t_orig46.float_u1) ~message:"t46.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t46.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig46.float_u1) ~message:"t46.float_u1"; check_float t46.float2 t_orig46.float2 ~message:"t46.float2"; check_float t47.float0 t_orig47.float0 ~message:"t47.float0"; - check_float (Stable.Float_u.to_float t47.float_u1) (Stable.Float_u.to_float t_orig47.float_u1) ~message:"t47.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t47.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig47.float_u1) ~message:"t47.float_u1"; check_float t47.float2 t_orig47.float2 ~message:"t47.float2"; - check_float (Stable.Float_u.to_float t48.float_u0) (Stable.Float_u.to_float t_orig48.float_u0) ~message:"t48.float_u0"; - check_float (Stable.Float_u.to_float t48.float_u1) (Stable.Float_u.to_float t_orig48.float_u1) ~message:"t48.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t48.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig48.float_u0) ~message:"t48.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t48.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig48.float_u1) ~message:"t48.float_u1"; check_float t48.float2 t_orig48.float2 ~message:"t48.float2"; - check_float (Stable.Float_u.to_float t49.float_u0) (Stable.Float_u.to_float t_orig49.float_u0) ~message:"t49.float_u0"; - check_float (Stable.Float_u.to_float t49.float_u1) (Stable.Float_u.to_float t_orig49.float_u1) ~message:"t49.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t49.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig49.float_u0) ~message:"t49.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t49.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig49.float_u1) ~message:"t49.float_u1"; check_float t49.float2 t_orig49.float2 ~message:"t49.float2"; check_float t50.float0 t_orig50.float0 ~message:"t50.float0"; - check_float (Stable.Float_u.to_float t50.float_u1) (Stable.Float_u.to_float t_orig50.float_u1) ~message:"t50.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t50.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig50.float_u1) ~message:"t50.float_u1"; check_float t50.float2 t_orig50.float2 ~message:"t50.float2"; check_float t51.float0 t_orig51.float0 ~message:"t51.float0"; - check_float (Stable.Float_u.to_float t51.float_u1) (Stable.Float_u.to_float t_orig51.float_u1) ~message:"t51.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t51.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig51.float_u1) ~message:"t51.float_u1"; check_float t51.float2 t_orig51.float2 ~message:"t51.float2"; - check_float (Stable.Float_u.to_float t52.float_u0) (Stable.Float_u.to_float t_orig52.float_u0) ~message:"t52.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t52.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig52.float_u0) ~message:"t52.float_u0"; check_float t52.float1 t_orig52.float1 ~message:"t52.float1"; check_float t52.float2 t_orig52.float2 ~message:"t52.float2"; - check_float (Stable.Float_u.to_float t53.float_u0) (Stable.Float_u.to_float t_orig53.float_u0) ~message:"t53.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t53.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig53.float_u0) ~message:"t53.float_u0"; check_float t53.float1 t_orig53.float1 ~message:"t53.float1"; check_float t53.float2 t_orig53.float2 ~message:"t53.float2"; - check_float (Stable.Float_u.to_float t54.float_u0) (Stable.Float_u.to_float t_orig54.float_u0) ~message:"t54.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t54.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig54.float_u0) ~message:"t54.float_u0"; check_float t54.float1 t_orig54.float1 ~message:"t54.float1"; check_float t54.float2 t_orig54.float2 ~message:"t54.float2"; - check_float (Stable.Float_u.to_float t55.float_u0) (Stable.Float_u.to_float t_orig55.float_u0) ~message:"t55.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t55.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig55.float_u0) ~message:"t55.float_u0"; check_float t55.float1 t_orig55.float1 ~message:"t55.float1"; check_float t55.float2 t_orig55.float2 ~message:"t55.float2"; check_float t56.float0 t_orig56.float0 ~message:"t56.float0"; - check_float (Stable.Float_u.to_float t56.float_u1) (Stable.Float_u.to_float t_orig56.float_u1) ~message:"t56.float_u1"; - check_float (Stable.Float_u.to_float t56.float_u2) (Stable.Float_u.to_float t_orig56.float_u2) ~message:"t56.float_u2"; - check_float (Stable.Float_u.to_float t56.float_u3) (Stable.Float_u.to_float t_orig56.float_u3) ~message:"t56.float_u3"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t56.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig56.float_u1) ~message:"t56.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t56.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig56.float_u2) ~message:"t56.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t56.float_u3) (Stdlib_upstream_compatible.Float_u.to_float t_orig56.float_u3) ~message:"t56.float_u3"; check_float t57.float0 t_orig57.float0 ~message:"t57.float0"; - check_float (Stable.Float_u.to_float t57.float_u1) (Stable.Float_u.to_float t_orig57.float_u1) ~message:"t57.float_u1"; - check_float (Stable.Float_u.to_float t57.float_u2) (Stable.Float_u.to_float t_orig57.float_u2) ~message:"t57.float_u2"; - check_float (Stable.Float_u.to_float t57.float_u3) (Stable.Float_u.to_float t_orig57.float_u3) ~message:"t57.float_u3"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t57.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig57.float_u1) ~message:"t57.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t57.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig57.float_u2) ~message:"t57.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t57.float_u3) (Stdlib_upstream_compatible.Float_u.to_float t_orig57.float_u3) ~message:"t57.float_u3"; check_float t58.float0 t_orig58.float0 ~message:"t58.float0"; - check_float (Stable.Float_u.to_float t58.float_u1) (Stable.Float_u.to_float t_orig58.float_u1) ~message:"t58.float_u1"; - check_float (Stable.Float_u.to_float t58.float_u2) (Stable.Float_u.to_float t_orig58.float_u2) ~message:"t58.float_u2"; - check_float (Stable.Float_u.to_float t58.float_u3) (Stable.Float_u.to_float t_orig58.float_u3) ~message:"t58.float_u3"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t58.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig58.float_u1) ~message:"t58.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t58.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig58.float_u2) ~message:"t58.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t58.float_u3) (Stdlib_upstream_compatible.Float_u.to_float t_orig58.float_u3) ~message:"t58.float_u3"; check_float t59.float0 t_orig59.float0 ~message:"t59.float0"; - check_float (Stable.Float_u.to_float t59.float_u1) (Stable.Float_u.to_float t_orig59.float_u1) ~message:"t59.float_u1"; - check_float (Stable.Float_u.to_float t59.float_u2) (Stable.Float_u.to_float t_orig59.float_u2) ~message:"t59.float_u2"; - check_float (Stable.Float_u.to_float t59.float_u3) (Stable.Float_u.to_float t_orig59.float_u3) ~message:"t59.float_u3"; - check_float (Stable.Float_u.to_float t60.float_u0) (Stable.Float_u.to_float t_orig60.float_u0) ~message:"t60.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t59.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig59.float_u1) ~message:"t59.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t59.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig59.float_u2) ~message:"t59.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t59.float_u3) (Stdlib_upstream_compatible.Float_u.to_float t_orig59.float_u3) ~message:"t59.float_u3"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t60.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig60.float_u0) ~message:"t60.float_u0"; check_float t60.float1 t_orig60.float1 ~message:"t60.float1"; - check_float (Stable.Float_u.to_float t60.float_u2) (Stable.Float_u.to_float t_orig60.float_u2) ~message:"t60.float_u2"; - check_float (Stable.Float_u.to_float t60.float_u3) (Stable.Float_u.to_float t_orig60.float_u3) ~message:"t60.float_u3"; - check_float (Stable.Float_u.to_float t61.float_u0) (Stable.Float_u.to_float t_orig61.float_u0) ~message:"t61.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t60.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig60.float_u2) ~message:"t60.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t60.float_u3) (Stdlib_upstream_compatible.Float_u.to_float t_orig60.float_u3) ~message:"t60.float_u3"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t61.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig61.float_u0) ~message:"t61.float_u0"; check_float t61.float1 t_orig61.float1 ~message:"t61.float1"; - check_float (Stable.Float_u.to_float t61.float_u2) (Stable.Float_u.to_float t_orig61.float_u2) ~message:"t61.float_u2"; - check_float (Stable.Float_u.to_float t61.float_u3) (Stable.Float_u.to_float t_orig61.float_u3) ~message:"t61.float_u3"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t61.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig61.float_u2) ~message:"t61.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t61.float_u3) (Stdlib_upstream_compatible.Float_u.to_float t_orig61.float_u3) ~message:"t61.float_u3"; check_float t62.float0 t_orig62.float0 ~message:"t62.float0"; check_float t62.float1 t_orig62.float1 ~message:"t62.float1"; - check_float (Stable.Float_u.to_float t62.float_u2) (Stable.Float_u.to_float t_orig62.float_u2) ~message:"t62.float_u2"; - check_float (Stable.Float_u.to_float t62.float_u3) (Stable.Float_u.to_float t_orig62.float_u3) ~message:"t62.float_u3"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t62.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig62.float_u2) ~message:"t62.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t62.float_u3) (Stdlib_upstream_compatible.Float_u.to_float t_orig62.float_u3) ~message:"t62.float_u3"; check_float t63.float0 t_orig63.float0 ~message:"t63.float0"; check_float t63.float1 t_orig63.float1 ~message:"t63.float1"; - check_float (Stable.Float_u.to_float t63.float_u2) (Stable.Float_u.to_float t_orig63.float_u2) ~message:"t63.float_u2"; - check_float (Stable.Float_u.to_float t63.float_u3) (Stable.Float_u.to_float t_orig63.float_u3) ~message:"t63.float_u3"; - check_float (Stable.Float_u.to_float t64.float_u0) (Stable.Float_u.to_float t_orig64.float_u0) ~message:"t64.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t63.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig63.float_u2) ~message:"t63.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t63.float_u3) (Stdlib_upstream_compatible.Float_u.to_float t_orig63.float_u3) ~message:"t63.float_u3"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t64.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig64.float_u0) ~message:"t64.float_u0"; check_float t64.float1 t_orig64.float1 ~message:"t64.float1"; - check_float (Stable.Float_u.to_float t64.float_u2) (Stable.Float_u.to_float t_orig64.float_u2) ~message:"t64.float_u2"; - check_float (Stable.Float_u.to_float t64.float_u3) (Stable.Float_u.to_float t_orig64.float_u3) ~message:"t64.float_u3"; - check_float (Stable.Float_u.to_float t65.float_u0) (Stable.Float_u.to_float t_orig65.float_u0) ~message:"t65.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t64.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig64.float_u2) ~message:"t64.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t64.float_u3) (Stdlib_upstream_compatible.Float_u.to_float t_orig64.float_u3) ~message:"t64.float_u3"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t65.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig65.float_u0) ~message:"t65.float_u0"; check_float t65.float1 t_orig65.float1 ~message:"t65.float1"; - check_float (Stable.Float_u.to_float t65.float_u2) (Stable.Float_u.to_float t_orig65.float_u2) ~message:"t65.float_u2"; - check_float (Stable.Float_u.to_float t65.float_u3) (Stable.Float_u.to_float t_orig65.float_u3) ~message:"t65.float_u3"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t65.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig65.float_u2) ~message:"t65.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t65.float_u3) (Stdlib_upstream_compatible.Float_u.to_float t_orig65.float_u3) ~message:"t65.float_u3"; check_float t66.float0 t_orig66.float0 ~message:"t66.float0"; check_float t66.float1 t_orig66.float1 ~message:"t66.float1"; - check_float (Stable.Float_u.to_float t66.float_u2) (Stable.Float_u.to_float t_orig66.float_u2) ~message:"t66.float_u2"; - check_float (Stable.Float_u.to_float t66.float_u3) (Stable.Float_u.to_float t_orig66.float_u3) ~message:"t66.float_u3"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t66.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig66.float_u2) ~message:"t66.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t66.float_u3) (Stdlib_upstream_compatible.Float_u.to_float t_orig66.float_u3) ~message:"t66.float_u3"; check_float t67.float0 t_orig67.float0 ~message:"t67.float0"; check_float t67.float1 t_orig67.float1 ~message:"t67.float1"; - check_float (Stable.Float_u.to_float t67.float_u2) (Stable.Float_u.to_float t_orig67.float_u2) ~message:"t67.float_u2"; - check_float (Stable.Float_u.to_float t67.float_u3) (Stable.Float_u.to_float t_orig67.float_u3) ~message:"t67.float_u3"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t67.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig67.float_u2) ~message:"t67.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t67.float_u3) (Stdlib_upstream_compatible.Float_u.to_float t_orig67.float_u3) ~message:"t67.float_u3"; check_float t68.float0 t_orig68.float0 ~message:"t68.float0"; - check_float (Stable.Float_u.to_float t68.float_u1) (Stable.Float_u.to_float t_orig68.float_u1) ~message:"t68.float_u1"; - check_float (Stable.Float_u.to_float t68.float_u2) (Stable.Float_u.to_float t_orig68.float_u2) ~message:"t68.float_u2"; - check_float (Stable.Float_u.to_float t68.float_u3) (Stable.Float_u.to_float t_orig68.float_u3) ~message:"t68.float_u3"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t68.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig68.float_u1) ~message:"t68.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t68.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig68.float_u2) ~message:"t68.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t68.float_u3) (Stdlib_upstream_compatible.Float_u.to_float t_orig68.float_u3) ~message:"t68.float_u3"; check_float t69.float0 t_orig69.float0 ~message:"t69.float0"; - check_float (Stable.Float_u.to_float t69.float_u1) (Stable.Float_u.to_float t_orig69.float_u1) ~message:"t69.float_u1"; - check_float (Stable.Float_u.to_float t69.float_u2) (Stable.Float_u.to_float t_orig69.float_u2) ~message:"t69.float_u2"; - check_float (Stable.Float_u.to_float t69.float_u3) (Stable.Float_u.to_float t_orig69.float_u3) ~message:"t69.float_u3"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t69.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig69.float_u1) ~message:"t69.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t69.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig69.float_u2) ~message:"t69.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t69.float_u3) (Stdlib_upstream_compatible.Float_u.to_float t_orig69.float_u3) ~message:"t69.float_u3"; check_float t70.float0 t_orig70.float0 ~message:"t70.float0"; - check_float (Stable.Float_u.to_float t70.float_u1) (Stable.Float_u.to_float t_orig70.float_u1) ~message:"t70.float_u1"; - check_float (Stable.Float_u.to_float t70.float_u2) (Stable.Float_u.to_float t_orig70.float_u2) ~message:"t70.float_u2"; - check_float (Stable.Float_u.to_float t70.float_u3) (Stable.Float_u.to_float t_orig70.float_u3) ~message:"t70.float_u3"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t70.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig70.float_u1) ~message:"t70.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t70.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig70.float_u2) ~message:"t70.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t70.float_u3) (Stdlib_upstream_compatible.Float_u.to_float t_orig70.float_u3) ~message:"t70.float_u3"; check_float t71.float0 t_orig71.float0 ~message:"t71.float0"; - check_float (Stable.Float_u.to_float t71.float_u1) (Stable.Float_u.to_float t_orig71.float_u1) ~message:"t71.float_u1"; - check_float (Stable.Float_u.to_float t71.float_u2) (Stable.Float_u.to_float t_orig71.float_u2) ~message:"t71.float_u2"; - check_float (Stable.Float_u.to_float t71.float_u3) (Stable.Float_u.to_float t_orig71.float_u3) ~message:"t71.float_u3"; - check_float (Stable.Float_u.to_float t72.float_u0) (Stable.Float_u.to_float t_orig72.float_u0) ~message:"t72.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t71.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig71.float_u1) ~message:"t71.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t71.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig71.float_u2) ~message:"t71.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t71.float_u3) (Stdlib_upstream_compatible.Float_u.to_float t_orig71.float_u3) ~message:"t71.float_u3"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t72.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig72.float_u0) ~message:"t72.float_u0"; check_float t72.float1 t_orig72.float1 ~message:"t72.float1"; - check_float (Stable.Float_u.to_float t72.float_u2) (Stable.Float_u.to_float t_orig72.float_u2) ~message:"t72.float_u2"; - check_float (Stable.Float_u.to_float t72.float_u3) (Stable.Float_u.to_float t_orig72.float_u3) ~message:"t72.float_u3"; - check_float (Stable.Float_u.to_float t73.float_u0) (Stable.Float_u.to_float t_orig73.float_u0) ~message:"t73.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t72.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig72.float_u2) ~message:"t72.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t72.float_u3) (Stdlib_upstream_compatible.Float_u.to_float t_orig72.float_u3) ~message:"t72.float_u3"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t73.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig73.float_u0) ~message:"t73.float_u0"; check_float t73.float1 t_orig73.float1 ~message:"t73.float1"; - check_float (Stable.Float_u.to_float t73.float_u2) (Stable.Float_u.to_float t_orig73.float_u2) ~message:"t73.float_u2"; - check_float (Stable.Float_u.to_float t73.float_u3) (Stable.Float_u.to_float t_orig73.float_u3) ~message:"t73.float_u3"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t73.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig73.float_u2) ~message:"t73.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t73.float_u3) (Stdlib_upstream_compatible.Float_u.to_float t_orig73.float_u3) ~message:"t73.float_u3"; check_float t74.float0 t_orig74.float0 ~message:"t74.float0"; check_float t74.float1 t_orig74.float1 ~message:"t74.float1"; - check_float (Stable.Float_u.to_float t74.float_u2) (Stable.Float_u.to_float t_orig74.float_u2) ~message:"t74.float_u2"; - check_float (Stable.Float_u.to_float t74.float_u3) (Stable.Float_u.to_float t_orig74.float_u3) ~message:"t74.float_u3"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t74.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig74.float_u2) ~message:"t74.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t74.float_u3) (Stdlib_upstream_compatible.Float_u.to_float t_orig74.float_u3) ~message:"t74.float_u3"; check_string t75.str0 t_orig75.str0 ~message:"t75.str0"; - check_float (Stable.Float_u.to_float t75.float_u1) (Stable.Float_u.to_float t_orig75.float_u1) ~message:"t75.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t75.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig75.float_u1) ~message:"t75.float_u1"; check_string t76.str0 t_orig76.str0 ~message:"t76.str0"; - check_float (Stable.Float_u.to_float t76.float_u1) (Stable.Float_u.to_float t_orig76.float_u1) ~message:"t76.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t76.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig76.float_u1) ~message:"t76.float_u1"; check_string t77.str0 t_orig77.str0 ~message:"t77.str0"; - check_float (Stable.Float_u.to_float t77.float_u1) (Stable.Float_u.to_float t_orig77.float_u1) ~message:"t77.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t77.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig77.float_u1) ~message:"t77.float_u1"; check_float32 (Beta.Float32_u.to_float32 t78.float32_u0) (Beta.Float32_u.to_float32 t_orig78.float32_u0) ~message:"t78.float32_u0"; check_string t79.str0 t_orig79.str0 ~message:"t79.str0"; - check_float (Stable.Float_u.to_float t79.float_u1) (Stable.Float_u.to_float t_orig79.float_u1) ~message:"t79.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t79.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig79.float_u1) ~message:"t79.float_u1"; check_string t80.str0 t_orig80.str0 ~message:"t80.str0"; check_float32 (Beta.Float32_u.to_float32 t80.float32_u1) (Beta.Float32_u.to_float32 t_orig80.float32_u1) ~message:"t80.float32_u1"; check_float32 (Beta.Float32_u.to_float32 t81.float32_u0) (Beta.Float32_u.to_float32 t_orig81.float32_u0) ~message:"t81.float32_u0"; @@ -7630,56 +7630,56 @@ let t_orig599_A = t599_A;; check_float32 (Beta.Float32_u.to_float32 t82.float32_u1) (Beta.Float32_u.to_float32 t_orig82.float32_u1) ~message:"t82.float32_u1"; check_string t83.str0 t_orig83.str0 ~message:"t83.str0"; check_float32 (Beta.Float32_u.to_float32 t83.float32_u1) (Beta.Float32_u.to_float32 t_orig83.float32_u1) ~message:"t83.float32_u1"; - check_int32 (Stable.Int32_u.to_int32 t84.i32_0) (Stable.Int32_u.to_int32 t_orig84.i32_0) ~message:"t84.i32_0"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t84.i32_0) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig84.i32_0) ~message:"t84.i32_0"; check_string t85.str0 t_orig85.str0 ~message:"t85.str0"; check_string t85.str1 t_orig85.str1 ~message:"t85.str1"; - check_float (Stable.Float_u.to_float t85.float_u2) (Stable.Float_u.to_float t_orig85.float_u2) ~message:"t85.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t85.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig85.float_u2) ~message:"t85.float_u2"; check_float t86.float0 t_orig86.float0 ~message:"t86.float0"; check_float32 (Beta.Float32_u.to_float32 t86.float32_u1) (Beta.Float32_u.to_float32 t_orig86.float32_u1) ~message:"t86.float32_u1"; check_string t87.str0 t_orig87.str0 ~message:"t87.str0"; check_float32 (Beta.Float32_u.to_float32 t87.float32_u1) (Beta.Float32_u.to_float32 t_orig87.float32_u1) ~message:"t87.float32_u1"; check_string t88.str0 t_orig88.str0 ~message:"t88.str0"; - check_int32 (Stable.Int32_u.to_int32 t88.i32_1) (Stable.Int32_u.to_int32 t_orig88.i32_1) ~message:"t88.i32_1"; - check_int32 (Stable.Int32_u.to_int32 t89.i32_0) (Stable.Int32_u.to_int32 t_orig89.i32_0) ~message:"t89.i32_0"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t88.i32_1) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig88.i32_1) ~message:"t88.i32_1"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t89.i32_0) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig89.i32_0) ~message:"t89.i32_0"; check_string t90.str0 t_orig90.str0 ~message:"t90.str0"; check_string t90.str1 t_orig90.str1 ~message:"t90.str1"; - check_float (Stable.Float_u.to_float t90.float_u2) (Stable.Float_u.to_float t_orig90.float_u2) ~message:"t90.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t90.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig90.float_u2) ~message:"t90.float_u2"; check_string t91.str0 t_orig91.str0 ~message:"t91.str0"; check_string t91.str1 t_orig91.str1 ~message:"t91.str1"; - check_float (Stable.Float_u.to_float t91.float_u2) (Stable.Float_u.to_float t_orig91.float_u2) ~message:"t91.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t91.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig91.float_u2) ~message:"t91.float_u2"; check_float t92.float0 t_orig92.float0 ~message:"t92.float0"; check_float32 (Beta.Float32_u.to_float32 t92.float32_u1) (Beta.Float32_u.to_float32 t_orig92.float32_u1) ~message:"t92.float32_u1"; check_float t93.float0 t_orig93.float0 ~message:"t93.float0"; check_float32 (Beta.Float32_u.to_float32 t93.float32_u1) (Beta.Float32_u.to_float32 t_orig93.float32_u1) ~message:"t93.float32_u1"; check_string t94.str0 t_orig94.str0 ~message:"t94.str0"; - check_int32 (Stable.Int32_u.to_int32 t94.i32_1) (Stable.Int32_u.to_int32 t_orig94.i32_1) ~message:"t94.i32_1"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t94.i32_1) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig94.i32_1) ~message:"t94.i32_1"; check_string t95.str0 t_orig95.str0 ~message:"t95.str0"; - check_int32 (Stable.Int32_u.to_int32 t95.i32_1) (Stable.Int32_u.to_int32 t_orig95.i32_1) ~message:"t95.i32_1"; - check_int64 (Stable.Int64_u.to_int64 t96.i64_0) (Stable.Int64_u.to_int64 t_orig96.i64_0) ~message:"t96.i64_0"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t95.i32_1) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig95.i32_1) ~message:"t95.i32_1"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t96.i64_0) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig96.i64_0) ~message:"t96.i64_0"; check_float t97.float0 t_orig97.float0 ~message:"t97.float0"; check_string t97.str1 t_orig97.str1 ~message:"t97.str1"; - check_float (Stable.Float_u.to_float t97.float_u2) (Stable.Float_u.to_float t_orig97.float_u2) ~message:"t97.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t97.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig97.float_u2) ~message:"t97.float_u2"; check_string t98.str0 t_orig98.str0 ~message:"t98.str0"; check_string t98.str1 t_orig98.str1 ~message:"t98.str1"; - check_float (Stable.Float_u.to_float t98.float_u2) (Stable.Float_u.to_float t_orig98.float_u2) ~message:"t98.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t98.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig98.float_u2) ~message:"t98.float_u2"; check_string t99.str0 t_orig99.str0 ~message:"t99.str0"; check_string t99.str1 t_orig99.str1 ~message:"t99.str1"; check_float32 (Beta.Float32_u.to_float32 t99.float32_u2) (Beta.Float32_u.to_float32 t_orig99.float32_u2) ~message:"t99.float32_u2"; check_float t100.float0 t_orig100.float0 ~message:"t100.float0"; check_float32 (Beta.Float32_u.to_float32 t100.float32_u1) (Beta.Float32_u.to_float32 t_orig100.float32_u1) ~message:"t100.float32_u1"; check_float t101.float0 t_orig101.float0 ~message:"t101.float0"; - check_int32 (Stable.Int32_u.to_int32 t101.i32_1) (Stable.Int32_u.to_int32 t_orig101.i32_1) ~message:"t101.i32_1"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t101.i32_1) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig101.i32_1) ~message:"t101.i32_1"; check_string t102.str0 t_orig102.str0 ~message:"t102.str0"; - check_int32 (Stable.Int32_u.to_int32 t102.i32_1) (Stable.Int32_u.to_int32 t_orig102.i32_1) ~message:"t102.i32_1"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t102.i32_1) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig102.i32_1) ~message:"t102.i32_1"; check_string t103.str0 t_orig103.str0 ~message:"t103.str0"; - check_int64 (Stable.Int64_u.to_int64 t103.i64_1) (Stable.Int64_u.to_int64 t_orig103.i64_1) ~message:"t103.i64_1"; - check_int64 (Stable.Int64_u.to_int64 t104.i64_0) (Stable.Int64_u.to_int64 t_orig104.i64_0) ~message:"t104.i64_0"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t103.i64_1) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig103.i64_1) ~message:"t103.i64_1"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t104.i64_0) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig104.i64_0) ~message:"t104.i64_0"; check_float t105.float0 t_orig105.float0 ~message:"t105.float0"; check_string t105.str1 t_orig105.str1 ~message:"t105.str1"; - check_float (Stable.Float_u.to_float t105.float_u2) (Stable.Float_u.to_float t_orig105.float_u2) ~message:"t105.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t105.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig105.float_u2) ~message:"t105.float_u2"; check_float t106.float0 t_orig106.float0 ~message:"t106.float0"; check_string t106.str1 t_orig106.str1 ~message:"t106.str1"; - check_float (Stable.Float_u.to_float t106.float_u2) (Stable.Float_u.to_float t_orig106.float_u2) ~message:"t106.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t106.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig106.float_u2) ~message:"t106.float_u2"; check_string t107.str0 t_orig107.str0 ~message:"t107.str0"; check_string t107.str1 t_orig107.str1 ~message:"t107.str1"; check_float32 (Beta.Float32_u.to_float32 t107.float32_u2) (Beta.Float32_u.to_float32 t_orig107.float32_u2) ~message:"t107.float32_u2"; @@ -7687,20 +7687,20 @@ let t_orig599_A = t599_A;; check_string t108.str1 t_orig108.str1 ~message:"t108.str1"; check_float32 (Beta.Float32_u.to_float32 t108.float32_u2) (Beta.Float32_u.to_float32 t_orig108.float32_u2) ~message:"t108.float32_u2"; check_float t109.float0 t_orig109.float0 ~message:"t109.float0"; - check_int32 (Stable.Int32_u.to_int32 t109.i32_1) (Stable.Int32_u.to_int32 t_orig109.i32_1) ~message:"t109.i32_1"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t109.i32_1) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig109.i32_1) ~message:"t109.i32_1"; check_float t110.float0 t_orig110.float0 ~message:"t110.float0"; - check_int32 (Stable.Int32_u.to_int32 t110.i32_1) (Stable.Int32_u.to_int32 t_orig110.i32_1) ~message:"t110.i32_1"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t110.i32_1) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig110.i32_1) ~message:"t110.i32_1"; check_string t111.str0 t_orig111.str0 ~message:"t111.str0"; - check_int64 (Stable.Int64_u.to_int64 t111.i64_1) (Stable.Int64_u.to_int64 t_orig111.i64_1) ~message:"t111.i64_1"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t111.i64_1) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig111.i64_1) ~message:"t111.i64_1"; check_string t112.str0 t_orig112.str0 ~message:"t112.str0"; - check_int64 (Stable.Int64_u.to_int64 t112.i64_1) (Stable.Int64_u.to_int64 t_orig112.i64_1) ~message:"t112.i64_1"; - check_int (Stable.Nativeint_u.to_int t113.n0) (Stable.Nativeint_u.to_int t_orig113.n0) ~message:"t113.n0"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t112.i64_1) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig112.i64_1) ~message:"t112.i64_1"; + check_int (Stdlib_upstream_compatible.Nativeint_u.to_int t113.n0) (Stdlib_upstream_compatible.Nativeint_u.to_int t_orig113.n0) ~message:"t113.n0"; check_int t114.imm0 t_orig114.imm0 ~message:"t114.imm0"; check_string t114.str1 t_orig114.str1 ~message:"t114.str1"; - check_float (Stable.Float_u.to_float t114.float_u2) (Stable.Float_u.to_float t_orig114.float_u2) ~message:"t114.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t114.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig114.float_u2) ~message:"t114.float_u2"; check_float t115.float0 t_orig115.float0 ~message:"t115.float0"; check_string t115.str1 t_orig115.str1 ~message:"t115.str1"; - check_float (Stable.Float_u.to_float t115.float_u2) (Stable.Float_u.to_float t_orig115.float_u2) ~message:"t115.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t115.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig115.float_u2) ~message:"t115.float_u2"; check_float t116.float0 t_orig116.float0 ~message:"t116.float0"; check_string t116.str1 t_orig116.str1 ~message:"t116.str1"; check_float32 (Beta.Float32_u.to_float32 t116.float32_u2) (Beta.Float32_u.to_float32 t_orig116.float32_u2) ~message:"t116.float32_u2"; @@ -7709,22 +7709,22 @@ let t_orig599_A = t599_A;; check_float32 (Beta.Float32_u.to_float32 t117.float32_u2) (Beta.Float32_u.to_float32 t_orig117.float32_u2) ~message:"t117.float32_u2"; check_string t118.str0 t_orig118.str0 ~message:"t118.str0"; check_string t118.str1 t_orig118.str1 ~message:"t118.str1"; - check_int32 (Stable.Int32_u.to_int32 t118.i32_2) (Stable.Int32_u.to_int32 t_orig118.i32_2) ~message:"t118.i32_2"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t118.i32_2) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig118.i32_2) ~message:"t118.i32_2"; check_float t119.float0 t_orig119.float0 ~message:"t119.float0"; - check_int32 (Stable.Int32_u.to_int32 t119.i32_1) (Stable.Int32_u.to_int32 t_orig119.i32_1) ~message:"t119.i32_1"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t119.i32_1) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig119.i32_1) ~message:"t119.i32_1"; check_float t120.float0 t_orig120.float0 ~message:"t120.float0"; - check_int64 (Stable.Int64_u.to_int64 t120.i64_1) (Stable.Int64_u.to_int64 t_orig120.i64_1) ~message:"t120.i64_1"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t120.i64_1) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig120.i64_1) ~message:"t120.i64_1"; check_string t121.str0 t_orig121.str0 ~message:"t121.str0"; - check_int64 (Stable.Int64_u.to_int64 t121.i64_1) (Stable.Int64_u.to_int64 t_orig121.i64_1) ~message:"t121.i64_1"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t121.i64_1) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig121.i64_1) ~message:"t121.i64_1"; check_string t122.str0 t_orig122.str0 ~message:"t122.str0"; - check_int (Stable.Nativeint_u.to_int t122.n1) (Stable.Nativeint_u.to_int t_orig122.n1) ~message:"t122.n1"; - check_int (Stable.Nativeint_u.to_int t123.n0) (Stable.Nativeint_u.to_int t_orig123.n0) ~message:"t123.n0"; + check_int (Stdlib_upstream_compatible.Nativeint_u.to_int t122.n1) (Stdlib_upstream_compatible.Nativeint_u.to_int t_orig122.n1) ~message:"t122.n1"; + check_int (Stdlib_upstream_compatible.Nativeint_u.to_int t123.n0) (Stdlib_upstream_compatible.Nativeint_u.to_int t_orig123.n0) ~message:"t123.n0"; check_int t124.imm0 t_orig124.imm0 ~message:"t124.imm0"; check_string t124.str1 t_orig124.str1 ~message:"t124.str1"; - check_float (Stable.Float_u.to_float t124.float_u2) (Stable.Float_u.to_float t_orig124.float_u2) ~message:"t124.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t124.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig124.float_u2) ~message:"t124.float_u2"; check_int t125.imm0 t_orig125.imm0 ~message:"t125.imm0"; check_string t125.str1 t_orig125.str1 ~message:"t125.str1"; - check_float (Stable.Float_u.to_float t125.float_u2) (Stable.Float_u.to_float t_orig125.float_u2) ~message:"t125.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t125.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig125.float_u2) ~message:"t125.float_u2"; check_float t126.float0 t_orig126.float0 ~message:"t126.float0"; check_string t126.str1 t_orig126.str1 ~message:"t126.str1"; check_float32 (Beta.Float32_u.to_float32 t126.float32_u2) (Beta.Float32_u.to_float32 t_orig126.float32_u2) ~message:"t126.float32_u2"; @@ -7733,26 +7733,26 @@ let t_orig599_A = t599_A;; check_float32 (Beta.Float32_u.to_float32 t127.float32_u2) (Beta.Float32_u.to_float32 t_orig127.float32_u2) ~message:"t127.float32_u2"; check_string t128.str0 t_orig128.str0 ~message:"t128.str0"; check_string t128.str1 t_orig128.str1 ~message:"t128.str1"; - check_int32 (Stable.Int32_u.to_int32 t128.i32_2) (Stable.Int32_u.to_int32 t_orig128.i32_2) ~message:"t128.i32_2"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t128.i32_2) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig128.i32_2) ~message:"t128.i32_2"; check_string t129.str0 t_orig129.str0 ~message:"t129.str0"; check_string t129.str1 t_orig129.str1 ~message:"t129.str1"; - check_int32 (Stable.Int32_u.to_int32 t129.i32_2) (Stable.Int32_u.to_int32 t_orig129.i32_2) ~message:"t129.i32_2"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t129.i32_2) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig129.i32_2) ~message:"t129.i32_2"; check_float t130.float0 t_orig130.float0 ~message:"t130.float0"; - check_int64 (Stable.Int64_u.to_int64 t130.i64_1) (Stable.Int64_u.to_int64 t_orig130.i64_1) ~message:"t130.i64_1"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t130.i64_1) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig130.i64_1) ~message:"t130.i64_1"; check_float t131.float0 t_orig131.float0 ~message:"t131.float0"; - check_int64 (Stable.Int64_u.to_int64 t131.i64_1) (Stable.Int64_u.to_int64 t_orig131.i64_1) ~message:"t131.i64_1"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t131.i64_1) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig131.i64_1) ~message:"t131.i64_1"; check_string t132.str0 t_orig132.str0 ~message:"t132.str0"; - check_int (Stable.Nativeint_u.to_int t132.n1) (Stable.Nativeint_u.to_int t_orig132.n1) ~message:"t132.n1"; + check_int (Stdlib_upstream_compatible.Nativeint_u.to_int t132.n1) (Stdlib_upstream_compatible.Nativeint_u.to_int t_orig132.n1) ~message:"t132.n1"; check_string t133.str0 t_orig133.str0 ~message:"t133.str0"; - check_int (Stable.Nativeint_u.to_int t133.n1) (Stable.Nativeint_u.to_int t_orig133.n1) ~message:"t133.n1"; - check_float (Stable.Float_u.to_float t134.float_u0) (Stable.Float_u.to_float t_orig134.float_u0) ~message:"t134.float_u0"; + check_int (Stdlib_upstream_compatible.Nativeint_u.to_int t133.n1) (Stdlib_upstream_compatible.Nativeint_u.to_int t_orig133.n1) ~message:"t133.n1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t134.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig134.float_u0) ~message:"t134.float_u0"; check_int t134.imm1 t_orig134.imm1 ~message:"t134.imm1"; check_string t135.str0 t_orig135.str0 ~message:"t135.str0"; check_string t135.str1 t_orig135.str1 ~message:"t135.str1"; - check_float (Stable.Float_u.to_float t135.float_u2) (Stable.Float_u.to_float t_orig135.float_u2) ~message:"t135.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t135.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig135.float_u2) ~message:"t135.float_u2"; check_int t136.imm0 t_orig136.imm0 ~message:"t136.imm0"; check_string t136.str1 t_orig136.str1 ~message:"t136.str1"; - check_float (Stable.Float_u.to_float t136.float_u2) (Stable.Float_u.to_float t_orig136.float_u2) ~message:"t136.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t136.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig136.float_u2) ~message:"t136.float_u2"; check_int t137.imm0 t_orig137.imm0 ~message:"t137.imm0"; check_string t137.str1 t_orig137.str1 ~message:"t137.str1"; check_float32 (Beta.Float32_u.to_float32 t137.float32_u2) (Beta.Float32_u.to_float32 t_orig137.float32_u2) ~message:"t137.float32_u2"; @@ -7761,30 +7761,30 @@ let t_orig599_A = t599_A;; check_float32 (Beta.Float32_u.to_float32 t138.float32_u2) (Beta.Float32_u.to_float32 t_orig138.float32_u2) ~message:"t138.float32_u2"; check_float t139.float0 t_orig139.float0 ~message:"t139.float0"; check_string t139.str1 t_orig139.str1 ~message:"t139.str1"; - check_int32 (Stable.Int32_u.to_int32 t139.i32_2) (Stable.Int32_u.to_int32 t_orig139.i32_2) ~message:"t139.i32_2"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t139.i32_2) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig139.i32_2) ~message:"t139.i32_2"; check_string t140.str0 t_orig140.str0 ~message:"t140.str0"; check_string t140.str1 t_orig140.str1 ~message:"t140.str1"; - check_int32 (Stable.Int32_u.to_int32 t140.i32_2) (Stable.Int32_u.to_int32 t_orig140.i32_2) ~message:"t140.i32_2"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t140.i32_2) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig140.i32_2) ~message:"t140.i32_2"; check_string t141.str0 t_orig141.str0 ~message:"t141.str0"; check_string t141.str1 t_orig141.str1 ~message:"t141.str1"; - check_int64 (Stable.Int64_u.to_int64 t141.i64_2) (Stable.Int64_u.to_int64 t_orig141.i64_2) ~message:"t141.i64_2"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t141.i64_2) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig141.i64_2) ~message:"t141.i64_2"; check_float t142.float0 t_orig142.float0 ~message:"t142.float0"; - check_int64 (Stable.Int64_u.to_int64 t142.i64_1) (Stable.Int64_u.to_int64 t_orig142.i64_1) ~message:"t142.i64_1"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t142.i64_1) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig142.i64_1) ~message:"t142.i64_1"; check_float t143.float0 t_orig143.float0 ~message:"t143.float0"; - check_int (Stable.Nativeint_u.to_int t143.n1) (Stable.Nativeint_u.to_int t_orig143.n1) ~message:"t143.n1"; + check_int (Stdlib_upstream_compatible.Nativeint_u.to_int t143.n1) (Stdlib_upstream_compatible.Nativeint_u.to_int t_orig143.n1) ~message:"t143.n1"; check_string t144.str0 t_orig144.str0 ~message:"t144.str0"; - check_int (Stable.Nativeint_u.to_int t144.n1) (Stable.Nativeint_u.to_int t_orig144.n1) ~message:"t144.n1"; + check_int (Stdlib_upstream_compatible.Nativeint_u.to_int t144.n1) (Stdlib_upstream_compatible.Nativeint_u.to_int t_orig144.n1) ~message:"t144.n1"; check_string t145.str0 t_orig145.str0 ~message:"t145.str0"; - check_float (Stable.Float_u.to_float t145.float_u1) (Stable.Float_u.to_float t_orig145.float_u1) ~message:"t145.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t145.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig145.float_u1) ~message:"t145.float_u1"; check_int t145.imm2 t_orig145.imm2 ~message:"t145.imm2"; - check_float (Stable.Float_u.to_float t146.float_u0) (Stable.Float_u.to_float t_orig146.float_u0) ~message:"t146.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t146.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig146.float_u0) ~message:"t146.float_u0"; check_int t146.imm1 t_orig146.imm1 ~message:"t146.imm1"; check_string t147.str0 t_orig147.str0 ~message:"t147.str0"; check_string t147.str1 t_orig147.str1 ~message:"t147.str1"; - check_float (Stable.Float_u.to_float t147.float_u2) (Stable.Float_u.to_float t_orig147.float_u2) ~message:"t147.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t147.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig147.float_u2) ~message:"t147.float_u2"; check_string t148.str0 t_orig148.str0 ~message:"t148.str0"; check_string t148.str1 t_orig148.str1 ~message:"t148.str1"; - check_float (Stable.Float_u.to_float t148.float_u2) (Stable.Float_u.to_float t_orig148.float_u2) ~message:"t148.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t148.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig148.float_u2) ~message:"t148.float_u2"; check_int t149.imm0 t_orig149.imm0 ~message:"t149.imm0"; check_string t149.str1 t_orig149.str1 ~message:"t149.str1"; check_float32 (Beta.Float32_u.to_float32 t149.float32_u2) (Beta.Float32_u.to_float32 t_orig149.float32_u2) ~message:"t149.float32_u2"; @@ -7793,34 +7793,34 @@ let t_orig599_A = t599_A;; check_float32 (Beta.Float32_u.to_float32 t150.float32_u2) (Beta.Float32_u.to_float32 t_orig150.float32_u2) ~message:"t150.float32_u2"; check_float t151.float0 t_orig151.float0 ~message:"t151.float0"; check_string t151.str1 t_orig151.str1 ~message:"t151.str1"; - check_int32 (Stable.Int32_u.to_int32 t151.i32_2) (Stable.Int32_u.to_int32 t_orig151.i32_2) ~message:"t151.i32_2"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t151.i32_2) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig151.i32_2) ~message:"t151.i32_2"; check_float t152.float0 t_orig152.float0 ~message:"t152.float0"; check_string t152.str1 t_orig152.str1 ~message:"t152.str1"; - check_int32 (Stable.Int32_u.to_int32 t152.i32_2) (Stable.Int32_u.to_int32 t_orig152.i32_2) ~message:"t152.i32_2"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t152.i32_2) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig152.i32_2) ~message:"t152.i32_2"; check_string t153.str0 t_orig153.str0 ~message:"t153.str0"; check_string t153.str1 t_orig153.str1 ~message:"t153.str1"; - check_int64 (Stable.Int64_u.to_int64 t153.i64_2) (Stable.Int64_u.to_int64 t_orig153.i64_2) ~message:"t153.i64_2"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t153.i64_2) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig153.i64_2) ~message:"t153.i64_2"; check_string t154.str0 t_orig154.str0 ~message:"t154.str0"; check_string t154.str1 t_orig154.str1 ~message:"t154.str1"; - check_int64 (Stable.Int64_u.to_int64 t154.i64_2) (Stable.Int64_u.to_int64 t_orig154.i64_2) ~message:"t154.i64_2"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t154.i64_2) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig154.i64_2) ~message:"t154.i64_2"; check_float t155.float0 t_orig155.float0 ~message:"t155.float0"; - check_int (Stable.Nativeint_u.to_int t155.n1) (Stable.Nativeint_u.to_int t_orig155.n1) ~message:"t155.n1"; + check_int (Stdlib_upstream_compatible.Nativeint_u.to_int t155.n1) (Stdlib_upstream_compatible.Nativeint_u.to_int t_orig155.n1) ~message:"t155.n1"; check_float t156.float0 t_orig156.float0 ~message:"t156.float0"; - check_int (Stable.Nativeint_u.to_int t156.n1) (Stable.Nativeint_u.to_int t_orig156.n1) ~message:"t156.n1"; + check_int (Stdlib_upstream_compatible.Nativeint_u.to_int t156.n1) (Stdlib_upstream_compatible.Nativeint_u.to_int t_orig156.n1) ~message:"t156.n1"; check_string t157.str0 t_orig157.str0 ~message:"t157.str0"; - check_float (Stable.Float_u.to_float t157.float_u1) (Stable.Float_u.to_float t_orig157.float_u1) ~message:"t157.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t157.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig157.float_u1) ~message:"t157.float_u1"; check_int t157.imm2 t_orig157.imm2 ~message:"t157.imm2"; check_string t158.str0 t_orig158.str0 ~message:"t158.str0"; - check_float (Stable.Float_u.to_float t158.float_u1) (Stable.Float_u.to_float t_orig158.float_u1) ~message:"t158.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t158.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig158.float_u1) ~message:"t158.float_u1"; check_int t158.imm2 t_orig158.imm2 ~message:"t158.imm2"; check_float32 (Beta.Float32_u.to_float32 t159.float32_u0) (Beta.Float32_u.to_float32 t_orig159.float32_u0) ~message:"t159.float32_u0"; check_int t159.imm1 t_orig159.imm1 ~message:"t159.imm1"; check_float t160.float0 t_orig160.float0 ~message:"t160.float0"; check_string t160.str1 t_orig160.str1 ~message:"t160.str1"; - check_float (Stable.Float_u.to_float t160.float_u2) (Stable.Float_u.to_float t_orig160.float_u2) ~message:"t160.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t160.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig160.float_u2) ~message:"t160.float_u2"; check_string t161.str0 t_orig161.str0 ~message:"t161.str0"; check_string t161.str1 t_orig161.str1 ~message:"t161.str1"; - check_float (Stable.Float_u.to_float t161.float_u2) (Stable.Float_u.to_float t_orig161.float_u2) ~message:"t161.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t161.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig161.float_u2) ~message:"t161.float_u2"; check_string t162.str0 t_orig162.str0 ~message:"t162.str0"; check_string t162.str1 t_orig162.str1 ~message:"t162.str1"; check_float32 (Beta.Float32_u.to_float32 t162.float32_u2) (Beta.Float32_u.to_float32 t_orig162.float32_u2) ~message:"t162.float32_u2"; @@ -7829,26 +7829,26 @@ let t_orig599_A = t599_A;; check_float32 (Beta.Float32_u.to_float32 t163.float32_u2) (Beta.Float32_u.to_float32 t_orig163.float32_u2) ~message:"t163.float32_u2"; check_int t164.imm0 t_orig164.imm0 ~message:"t164.imm0"; check_string t164.str1 t_orig164.str1 ~message:"t164.str1"; - check_int32 (Stable.Int32_u.to_int32 t164.i32_2) (Stable.Int32_u.to_int32 t_orig164.i32_2) ~message:"t164.i32_2"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t164.i32_2) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig164.i32_2) ~message:"t164.i32_2"; check_float t165.float0 t_orig165.float0 ~message:"t165.float0"; check_string t165.str1 t_orig165.str1 ~message:"t165.str1"; - check_int32 (Stable.Int32_u.to_int32 t165.i32_2) (Stable.Int32_u.to_int32 t_orig165.i32_2) ~message:"t165.i32_2"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t165.i32_2) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig165.i32_2) ~message:"t165.i32_2"; check_float t166.float0 t_orig166.float0 ~message:"t166.float0"; check_string t166.str1 t_orig166.str1 ~message:"t166.str1"; - check_int64 (Stable.Int64_u.to_int64 t166.i64_2) (Stable.Int64_u.to_int64 t_orig166.i64_2) ~message:"t166.i64_2"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t166.i64_2) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig166.i64_2) ~message:"t166.i64_2"; check_string t167.str0 t_orig167.str0 ~message:"t167.str0"; check_string t167.str1 t_orig167.str1 ~message:"t167.str1"; - check_int64 (Stable.Int64_u.to_int64 t167.i64_2) (Stable.Int64_u.to_int64 t_orig167.i64_2) ~message:"t167.i64_2"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t167.i64_2) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig167.i64_2) ~message:"t167.i64_2"; check_string t168.str0 t_orig168.str0 ~message:"t168.str0"; check_string t168.str1 t_orig168.str1 ~message:"t168.str1"; - check_int (Stable.Nativeint_u.to_int t168.n2) (Stable.Nativeint_u.to_int t_orig168.n2) ~message:"t168.n2"; + check_int (Stdlib_upstream_compatible.Nativeint_u.to_int t168.n2) (Stdlib_upstream_compatible.Nativeint_u.to_int t_orig168.n2) ~message:"t168.n2"; check_float t169.float0 t_orig169.float0 ~message:"t169.float0"; - check_int (Stable.Nativeint_u.to_int t169.n1) (Stable.Nativeint_u.to_int t_orig169.n1) ~message:"t169.n1"; + check_int (Stdlib_upstream_compatible.Nativeint_u.to_int t169.n1) (Stdlib_upstream_compatible.Nativeint_u.to_int t_orig169.n1) ~message:"t169.n1"; check_float t170.float0 t_orig170.float0 ~message:"t170.float0"; - check_float (Stable.Float_u.to_float t170.float_u1) (Stable.Float_u.to_float t_orig170.float_u1) ~message:"t170.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t170.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig170.float_u1) ~message:"t170.float_u1"; check_int t170.imm2 t_orig170.imm2 ~message:"t170.imm2"; check_string t171.str0 t_orig171.str0 ~message:"t171.str0"; - check_float (Stable.Float_u.to_float t171.float_u1) (Stable.Float_u.to_float t_orig171.float_u1) ~message:"t171.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t171.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig171.float_u1) ~message:"t171.float_u1"; check_int t171.imm2 t_orig171.imm2 ~message:"t171.imm2"; check_string t172.str0 t_orig172.str0 ~message:"t172.str0"; check_float32 (Beta.Float32_u.to_float32 t172.float32_u1) (Beta.Float32_u.to_float32 t_orig172.float32_u1) ~message:"t172.float32_u1"; @@ -7857,10 +7857,10 @@ let t_orig599_A = t599_A;; check_int t173.imm1 t_orig173.imm1 ~message:"t173.imm1"; check_float t174.float0 t_orig174.float0 ~message:"t174.float0"; check_string t174.str1 t_orig174.str1 ~message:"t174.str1"; - check_float (Stable.Float_u.to_float t174.float_u2) (Stable.Float_u.to_float t_orig174.float_u2) ~message:"t174.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t174.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig174.float_u2) ~message:"t174.float_u2"; check_float t175.float0 t_orig175.float0 ~message:"t175.float0"; check_string t175.str1 t_orig175.str1 ~message:"t175.str1"; - check_float (Stable.Float_u.to_float t175.float_u2) (Stable.Float_u.to_float t_orig175.float_u2) ~message:"t175.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t175.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig175.float_u2) ~message:"t175.float_u2"; check_string t176.str0 t_orig176.str0 ~message:"t176.str0"; check_string t176.str1 t_orig176.str1 ~message:"t176.str1"; check_float32 (Beta.Float32_u.to_float32 t176.float32_u2) (Beta.Float32_u.to_float32 t_orig176.float32_u2) ~message:"t176.float32_u2"; @@ -7869,27 +7869,27 @@ let t_orig599_A = t599_A;; check_float32 (Beta.Float32_u.to_float32 t177.float32_u2) (Beta.Float32_u.to_float32 t_orig177.float32_u2) ~message:"t177.float32_u2"; check_int t178.imm0 t_orig178.imm0 ~message:"t178.imm0"; check_string t178.str1 t_orig178.str1 ~message:"t178.str1"; - check_int32 (Stable.Int32_u.to_int32 t178.i32_2) (Stable.Int32_u.to_int32 t_orig178.i32_2) ~message:"t178.i32_2"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t178.i32_2) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig178.i32_2) ~message:"t178.i32_2"; check_int t179.imm0 t_orig179.imm0 ~message:"t179.imm0"; check_string t179.str1 t_orig179.str1 ~message:"t179.str1"; - check_int32 (Stable.Int32_u.to_int32 t179.i32_2) (Stable.Int32_u.to_int32 t_orig179.i32_2) ~message:"t179.i32_2"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t179.i32_2) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig179.i32_2) ~message:"t179.i32_2"; check_float t180.float0 t_orig180.float0 ~message:"t180.float0"; check_string t180.str1 t_orig180.str1 ~message:"t180.str1"; - check_int64 (Stable.Int64_u.to_int64 t180.i64_2) (Stable.Int64_u.to_int64 t_orig180.i64_2) ~message:"t180.i64_2"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t180.i64_2) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig180.i64_2) ~message:"t180.i64_2"; check_float t181.float0 t_orig181.float0 ~message:"t181.float0"; check_string t181.str1 t_orig181.str1 ~message:"t181.str1"; - check_int64 (Stable.Int64_u.to_int64 t181.i64_2) (Stable.Int64_u.to_int64 t_orig181.i64_2) ~message:"t181.i64_2"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t181.i64_2) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig181.i64_2) ~message:"t181.i64_2"; check_string t182.str0 t_orig182.str0 ~message:"t182.str0"; check_string t182.str1 t_orig182.str1 ~message:"t182.str1"; - check_int (Stable.Nativeint_u.to_int t182.n2) (Stable.Nativeint_u.to_int t_orig182.n2) ~message:"t182.n2"; + check_int (Stdlib_upstream_compatible.Nativeint_u.to_int t182.n2) (Stdlib_upstream_compatible.Nativeint_u.to_int t_orig182.n2) ~message:"t182.n2"; check_string t183.str0 t_orig183.str0 ~message:"t183.str0"; check_string t183.str1 t_orig183.str1 ~message:"t183.str1"; - check_int (Stable.Nativeint_u.to_int t183.n2) (Stable.Nativeint_u.to_int t_orig183.n2) ~message:"t183.n2"; + check_int (Stdlib_upstream_compatible.Nativeint_u.to_int t183.n2) (Stdlib_upstream_compatible.Nativeint_u.to_int t_orig183.n2) ~message:"t183.n2"; check_float t184.float0 t_orig184.float0 ~message:"t184.float0"; - check_float (Stable.Float_u.to_float t184.float_u1) (Stable.Float_u.to_float t_orig184.float_u1) ~message:"t184.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t184.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig184.float_u1) ~message:"t184.float_u1"; check_int t184.imm2 t_orig184.imm2 ~message:"t184.imm2"; check_float t185.float0 t_orig185.float0 ~message:"t185.float0"; - check_float (Stable.Float_u.to_float t185.float_u1) (Stable.Float_u.to_float t_orig185.float_u1) ~message:"t185.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t185.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig185.float_u1) ~message:"t185.float_u1"; check_int t185.imm2 t_orig185.imm2 ~message:"t185.imm2"; check_string t186.str0 t_orig186.str0 ~message:"t186.str0"; check_float32 (Beta.Float32_u.to_float32 t186.float32_u1) (Beta.Float32_u.to_float32 t_orig186.float32_u1) ~message:"t186.float32_u1"; @@ -7897,14 +7897,14 @@ let t_orig599_A = t599_A;; check_string t187.str0 t_orig187.str0 ~message:"t187.str0"; check_float32 (Beta.Float32_u.to_float32 t187.float32_u1) (Beta.Float32_u.to_float32 t_orig187.float32_u1) ~message:"t187.float32_u1"; check_int t187.imm2 t_orig187.imm2 ~message:"t187.imm2"; - check_int32 (Stable.Int32_u.to_int32 t188.i32_0) (Stable.Int32_u.to_int32 t_orig188.i32_0) ~message:"t188.i32_0"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t188.i32_0) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig188.i32_0) ~message:"t188.i32_0"; check_int t188.imm1 t_orig188.imm1 ~message:"t188.imm1"; check_int t189.imm0 t_orig189.imm0 ~message:"t189.imm0"; check_string t189.str1 t_orig189.str1 ~message:"t189.str1"; - check_float (Stable.Float_u.to_float t189.float_u2) (Stable.Float_u.to_float t_orig189.float_u2) ~message:"t189.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t189.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig189.float_u2) ~message:"t189.float_u2"; check_float t190.float0 t_orig190.float0 ~message:"t190.float0"; check_string t190.str1 t_orig190.str1 ~message:"t190.str1"; - check_float (Stable.Float_u.to_float t190.float_u2) (Stable.Float_u.to_float t_orig190.float_u2) ~message:"t190.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t190.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig190.float_u2) ~message:"t190.float_u2"; check_float t191.float0 t_orig191.float0 ~message:"t191.float0"; check_string t191.str1 t_orig191.str1 ~message:"t191.str1"; check_float32 (Beta.Float32_u.to_float32 t191.float32_u2) (Beta.Float32_u.to_float32 t_orig191.float32_u2) ~message:"t191.float32_u2"; @@ -7913,28 +7913,28 @@ let t_orig599_A = t599_A;; check_float32 (Beta.Float32_u.to_float32 t192.float32_u2) (Beta.Float32_u.to_float32 t_orig192.float32_u2) ~message:"t192.float32_u2"; check_string t193.str0 t_orig193.str0 ~message:"t193.str0"; check_string t193.str1 t_orig193.str1 ~message:"t193.str1"; - check_int32 (Stable.Int32_u.to_int32 t193.i32_2) (Stable.Int32_u.to_int32 t_orig193.i32_2) ~message:"t193.i32_2"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t193.i32_2) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig193.i32_2) ~message:"t193.i32_2"; check_int t194.imm0 t_orig194.imm0 ~message:"t194.imm0"; check_string t194.str1 t_orig194.str1 ~message:"t194.str1"; - check_int32 (Stable.Int32_u.to_int32 t194.i32_2) (Stable.Int32_u.to_int32 t_orig194.i32_2) ~message:"t194.i32_2"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t194.i32_2) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig194.i32_2) ~message:"t194.i32_2"; check_int t195.imm0 t_orig195.imm0 ~message:"t195.imm0"; check_string t195.str1 t_orig195.str1 ~message:"t195.str1"; - check_int64 (Stable.Int64_u.to_int64 t195.i64_2) (Stable.Int64_u.to_int64 t_orig195.i64_2) ~message:"t195.i64_2"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t195.i64_2) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig195.i64_2) ~message:"t195.i64_2"; check_float t196.float0 t_orig196.float0 ~message:"t196.float0"; check_string t196.str1 t_orig196.str1 ~message:"t196.str1"; - check_int64 (Stable.Int64_u.to_int64 t196.i64_2) (Stable.Int64_u.to_int64 t_orig196.i64_2) ~message:"t196.i64_2"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t196.i64_2) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig196.i64_2) ~message:"t196.i64_2"; check_float t197.float0 t_orig197.float0 ~message:"t197.float0"; check_string t197.str1 t_orig197.str1 ~message:"t197.str1"; - check_int (Stable.Nativeint_u.to_int t197.n2) (Stable.Nativeint_u.to_int t_orig197.n2) ~message:"t197.n2"; + check_int (Stdlib_upstream_compatible.Nativeint_u.to_int t197.n2) (Stdlib_upstream_compatible.Nativeint_u.to_int t_orig197.n2) ~message:"t197.n2"; check_string t198.str0 t_orig198.str0 ~message:"t198.str0"; check_string t198.str1 t_orig198.str1 ~message:"t198.str1"; - check_int (Stable.Nativeint_u.to_int t198.n2) (Stable.Nativeint_u.to_int t_orig198.n2) ~message:"t198.n2"; + check_int (Stdlib_upstream_compatible.Nativeint_u.to_int t198.n2) (Stdlib_upstream_compatible.Nativeint_u.to_int t_orig198.n2) ~message:"t198.n2"; check_string t199.str0 t_orig199.str0 ~message:"t199.str0"; check_string t199.str1 t_orig199.str1 ~message:"t199.str1"; - check_float (Stable.Float_u.to_float t199.float_u2) (Stable.Float_u.to_float t_orig199.float_u2) ~message:"t199.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t199.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig199.float_u2) ~message:"t199.float_u2"; check_int t199.imm3 t_orig199.imm3 ~message:"t199.imm3"; check_float t200.float0 t_orig200.float0 ~message:"t200.float0"; - check_float (Stable.Float_u.to_float t200.float_u1) (Stable.Float_u.to_float t_orig200.float_u1) ~message:"t200.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t200.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig200.float_u1) ~message:"t200.float_u1"; check_int t200.imm2 t_orig200.imm2 ~message:"t200.imm2"; check_float t201.float0 t_orig201.float0 ~message:"t201.float0"; check_float32 (Beta.Float32_u.to_float32 t201.float32_u1) (Beta.Float32_u.to_float32 t_orig201.float32_u1) ~message:"t201.float32_u1"; @@ -7943,16 +7943,16 @@ let t_orig599_A = t599_A;; check_float32 (Beta.Float32_u.to_float32 t202.float32_u1) (Beta.Float32_u.to_float32 t_orig202.float32_u1) ~message:"t202.float32_u1"; check_int t202.imm2 t_orig202.imm2 ~message:"t202.imm2"; check_string t203.str0 t_orig203.str0 ~message:"t203.str0"; - check_int32 (Stable.Int32_u.to_int32 t203.i32_1) (Stable.Int32_u.to_int32 t_orig203.i32_1) ~message:"t203.i32_1"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t203.i32_1) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig203.i32_1) ~message:"t203.i32_1"; check_int t203.imm2 t_orig203.imm2 ~message:"t203.imm2"; - check_int32 (Stable.Int32_u.to_int32 t204.i32_0) (Stable.Int32_u.to_int32 t_orig204.i32_0) ~message:"t204.i32_0"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t204.i32_0) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig204.i32_0) ~message:"t204.i32_0"; check_int t204.imm1 t_orig204.imm1 ~message:"t204.imm1"; check_int t205.imm0 t_orig205.imm0 ~message:"t205.imm0"; check_string t205.str1 t_orig205.str1 ~message:"t205.str1"; - check_float (Stable.Float_u.to_float t205.float_u2) (Stable.Float_u.to_float t_orig205.float_u2) ~message:"t205.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t205.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig205.float_u2) ~message:"t205.float_u2"; check_int t206.imm0 t_orig206.imm0 ~message:"t206.imm0"; check_string t206.str1 t_orig206.str1 ~message:"t206.str1"; - check_float (Stable.Float_u.to_float t206.float_u2) (Stable.Float_u.to_float t_orig206.float_u2) ~message:"t206.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t206.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig206.float_u2) ~message:"t206.float_u2"; check_float t207.float0 t_orig207.float0 ~message:"t207.float0"; check_string t207.str1 t_orig207.str1 ~message:"t207.str1"; check_float32 (Beta.Float32_u.to_float32 t207.float32_u2) (Beta.Float32_u.to_float32 t_orig207.float32_u2) ~message:"t207.float32_u2"; @@ -7961,29 +7961,29 @@ let t_orig599_A = t599_A;; check_float32 (Beta.Float32_u.to_float32 t208.float32_u2) (Beta.Float32_u.to_float32 t_orig208.float32_u2) ~message:"t208.float32_u2"; check_string t209.str0 t_orig209.str0 ~message:"t209.str0"; check_string t209.str1 t_orig209.str1 ~message:"t209.str1"; - check_int32 (Stable.Int32_u.to_int32 t209.i32_2) (Stable.Int32_u.to_int32 t_orig209.i32_2) ~message:"t209.i32_2"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t209.i32_2) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig209.i32_2) ~message:"t209.i32_2"; check_string t210.str0 t_orig210.str0 ~message:"t210.str0"; check_string t210.str1 t_orig210.str1 ~message:"t210.str1"; - check_int32 (Stable.Int32_u.to_int32 t210.i32_2) (Stable.Int32_u.to_int32 t_orig210.i32_2) ~message:"t210.i32_2"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t210.i32_2) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig210.i32_2) ~message:"t210.i32_2"; check_int t211.imm0 t_orig211.imm0 ~message:"t211.imm0"; check_string t211.str1 t_orig211.str1 ~message:"t211.str1"; - check_int64 (Stable.Int64_u.to_int64 t211.i64_2) (Stable.Int64_u.to_int64 t_orig211.i64_2) ~message:"t211.i64_2"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t211.i64_2) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig211.i64_2) ~message:"t211.i64_2"; check_int t212.imm0 t_orig212.imm0 ~message:"t212.imm0"; check_string t212.str1 t_orig212.str1 ~message:"t212.str1"; - check_int64 (Stable.Int64_u.to_int64 t212.i64_2) (Stable.Int64_u.to_int64 t_orig212.i64_2) ~message:"t212.i64_2"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t212.i64_2) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig212.i64_2) ~message:"t212.i64_2"; check_float t213.float0 t_orig213.float0 ~message:"t213.float0"; check_string t213.str1 t_orig213.str1 ~message:"t213.str1"; - check_int (Stable.Nativeint_u.to_int t213.n2) (Stable.Nativeint_u.to_int t_orig213.n2) ~message:"t213.n2"; + check_int (Stdlib_upstream_compatible.Nativeint_u.to_int t213.n2) (Stdlib_upstream_compatible.Nativeint_u.to_int t_orig213.n2) ~message:"t213.n2"; check_float t214.float0 t_orig214.float0 ~message:"t214.float0"; check_string t214.str1 t_orig214.str1 ~message:"t214.str1"; - check_int (Stable.Nativeint_u.to_int t214.n2) (Stable.Nativeint_u.to_int t_orig214.n2) ~message:"t214.n2"; + check_int (Stdlib_upstream_compatible.Nativeint_u.to_int t214.n2) (Stdlib_upstream_compatible.Nativeint_u.to_int t_orig214.n2) ~message:"t214.n2"; check_string t215.str0 t_orig215.str0 ~message:"t215.str0"; check_string t215.str1 t_orig215.str1 ~message:"t215.str1"; - check_float (Stable.Float_u.to_float t215.float_u2) (Stable.Float_u.to_float t_orig215.float_u2) ~message:"t215.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t215.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig215.float_u2) ~message:"t215.float_u2"; check_int t215.imm3 t_orig215.imm3 ~message:"t215.imm3"; check_string t216.str0 t_orig216.str0 ~message:"t216.str0"; check_string t216.str1 t_orig216.str1 ~message:"t216.str1"; - check_float (Stable.Float_u.to_float t216.float_u2) (Stable.Float_u.to_float t_orig216.float_u2) ~message:"t216.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t216.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig216.float_u2) ~message:"t216.float_u2"; check_int t216.imm3 t_orig216.imm3 ~message:"t216.imm3"; check_float t217.float0 t_orig217.float0 ~message:"t217.float0"; check_float32 (Beta.Float32_u.to_float32 t217.float32_u1) (Beta.Float32_u.to_float32 t_orig217.float32_u1) ~message:"t217.float32_u1"; @@ -7992,19 +7992,19 @@ let t_orig599_A = t599_A;; check_float32 (Beta.Float32_u.to_float32 t218.float32_u1) (Beta.Float32_u.to_float32 t_orig218.float32_u1) ~message:"t218.float32_u1"; check_int t218.imm2 t_orig218.imm2 ~message:"t218.imm2"; check_string t219.str0 t_orig219.str0 ~message:"t219.str0"; - check_int32 (Stable.Int32_u.to_int32 t219.i32_1) (Stable.Int32_u.to_int32 t_orig219.i32_1) ~message:"t219.i32_1"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t219.i32_1) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig219.i32_1) ~message:"t219.i32_1"; check_int t219.imm2 t_orig219.imm2 ~message:"t219.imm2"; check_string t220.str0 t_orig220.str0 ~message:"t220.str0"; - check_int32 (Stable.Int32_u.to_int32 t220.i32_1) (Stable.Int32_u.to_int32 t_orig220.i32_1) ~message:"t220.i32_1"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t220.i32_1) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig220.i32_1) ~message:"t220.i32_1"; check_int t220.imm2 t_orig220.imm2 ~message:"t220.imm2"; - check_int64 (Stable.Int64_u.to_int64 t221.i64_0) (Stable.Int64_u.to_int64 t_orig221.i64_0) ~message:"t221.i64_0"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t221.i64_0) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig221.i64_0) ~message:"t221.i64_0"; check_int t221.imm1 t_orig221.imm1 ~message:"t221.imm1"; check_string t222.str0 t_orig222.str0 ~message:"t222.str0"; check_float t222.float1 t_orig222.float1 ~message:"t222.float1"; - check_float (Stable.Float_u.to_float t222.float_u2) (Stable.Float_u.to_float t_orig222.float_u2) ~message:"t222.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t222.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig222.float_u2) ~message:"t222.float_u2"; check_int t223.imm0 t_orig223.imm0 ~message:"t223.imm0"; check_string t223.str1 t_orig223.str1 ~message:"t223.str1"; - check_float (Stable.Float_u.to_float t223.float_u2) (Stable.Float_u.to_float t_orig223.float_u2) ~message:"t223.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t223.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig223.float_u2) ~message:"t223.float_u2"; check_int t224.imm0 t_orig224.imm0 ~message:"t224.imm0"; check_string t224.str1 t_orig224.str1 ~message:"t224.str1"; check_float32 (Beta.Float32_u.to_float32 t224.float32_u2) (Beta.Float32_u.to_float32 t_orig224.float32_u2) ~message:"t224.float32_u2"; @@ -8013,29 +8013,29 @@ let t_orig599_A = t599_A;; check_float32 (Beta.Float32_u.to_float32 t225.float32_u2) (Beta.Float32_u.to_float32 t_orig225.float32_u2) ~message:"t225.float32_u2"; check_float t226.float0 t_orig226.float0 ~message:"t226.float0"; check_string t226.str1 t_orig226.str1 ~message:"t226.str1"; - check_int32 (Stable.Int32_u.to_int32 t226.i32_2) (Stable.Int32_u.to_int32 t_orig226.i32_2) ~message:"t226.i32_2"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t226.i32_2) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig226.i32_2) ~message:"t226.i32_2"; check_string t227.str0 t_orig227.str0 ~message:"t227.str0"; check_string t227.str1 t_orig227.str1 ~message:"t227.str1"; - check_int32 (Stable.Int32_u.to_int32 t227.i32_2) (Stable.Int32_u.to_int32 t_orig227.i32_2) ~message:"t227.i32_2"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t227.i32_2) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig227.i32_2) ~message:"t227.i32_2"; check_string t228.str0 t_orig228.str0 ~message:"t228.str0"; check_string t228.str1 t_orig228.str1 ~message:"t228.str1"; - check_int64 (Stable.Int64_u.to_int64 t228.i64_2) (Stable.Int64_u.to_int64 t_orig228.i64_2) ~message:"t228.i64_2"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t228.i64_2) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig228.i64_2) ~message:"t228.i64_2"; check_int t229.imm0 t_orig229.imm0 ~message:"t229.imm0"; check_string t229.str1 t_orig229.str1 ~message:"t229.str1"; - check_int64 (Stable.Int64_u.to_int64 t229.i64_2) (Stable.Int64_u.to_int64 t_orig229.i64_2) ~message:"t229.i64_2"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t229.i64_2) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig229.i64_2) ~message:"t229.i64_2"; check_int t230.imm0 t_orig230.imm0 ~message:"t230.imm0"; check_string t230.str1 t_orig230.str1 ~message:"t230.str1"; - check_int (Stable.Nativeint_u.to_int t230.n2) (Stable.Nativeint_u.to_int t_orig230.n2) ~message:"t230.n2"; + check_int (Stdlib_upstream_compatible.Nativeint_u.to_int t230.n2) (Stdlib_upstream_compatible.Nativeint_u.to_int t_orig230.n2) ~message:"t230.n2"; check_float t231.float0 t_orig231.float0 ~message:"t231.float0"; check_string t231.str1 t_orig231.str1 ~message:"t231.str1"; - check_int (Stable.Nativeint_u.to_int t231.n2) (Stable.Nativeint_u.to_int t_orig231.n2) ~message:"t231.n2"; + check_int (Stdlib_upstream_compatible.Nativeint_u.to_int t231.n2) (Stdlib_upstream_compatible.Nativeint_u.to_int t_orig231.n2) ~message:"t231.n2"; check_float t232.float0 t_orig232.float0 ~message:"t232.float0"; check_string t232.str1 t_orig232.str1 ~message:"t232.str1"; - check_float (Stable.Float_u.to_float t232.float_u2) (Stable.Float_u.to_float t_orig232.float_u2) ~message:"t232.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t232.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig232.float_u2) ~message:"t232.float_u2"; check_int t232.imm3 t_orig232.imm3 ~message:"t232.imm3"; check_string t233.str0 t_orig233.str0 ~message:"t233.str0"; check_string t233.str1 t_orig233.str1 ~message:"t233.str1"; - check_float (Stable.Float_u.to_float t233.float_u2) (Stable.Float_u.to_float t_orig233.float_u2) ~message:"t233.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t233.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig233.float_u2) ~message:"t233.float_u2"; check_int t233.imm3 t_orig233.imm3 ~message:"t233.imm3"; check_string t234.str0 t_orig234.str0 ~message:"t234.str0"; check_string t234.str1 t_orig234.str1 ~message:"t234.str1"; @@ -8045,22 +8045,22 @@ let t_orig599_A = t599_A;; check_float32 (Beta.Float32_u.to_float32 t235.float32_u1) (Beta.Float32_u.to_float32 t_orig235.float32_u1) ~message:"t235.float32_u1"; check_int t235.imm2 t_orig235.imm2 ~message:"t235.imm2"; check_float t236.float0 t_orig236.float0 ~message:"t236.float0"; - check_int32 (Stable.Int32_u.to_int32 t236.i32_1) (Stable.Int32_u.to_int32 t_orig236.i32_1) ~message:"t236.i32_1"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t236.i32_1) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig236.i32_1) ~message:"t236.i32_1"; check_int t236.imm2 t_orig236.imm2 ~message:"t236.imm2"; check_string t237.str0 t_orig237.str0 ~message:"t237.str0"; - check_int32 (Stable.Int32_u.to_int32 t237.i32_1) (Stable.Int32_u.to_int32 t_orig237.i32_1) ~message:"t237.i32_1"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t237.i32_1) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig237.i32_1) ~message:"t237.i32_1"; check_int t237.imm2 t_orig237.imm2 ~message:"t237.imm2"; check_string t238.str0 t_orig238.str0 ~message:"t238.str0"; - check_int64 (Stable.Int64_u.to_int64 t238.i64_1) (Stable.Int64_u.to_int64 t_orig238.i64_1) ~message:"t238.i64_1"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t238.i64_1) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig238.i64_1) ~message:"t238.i64_1"; check_int t238.imm2 t_orig238.imm2 ~message:"t238.imm2"; - check_int64 (Stable.Int64_u.to_int64 t239.i64_0) (Stable.Int64_u.to_int64 t_orig239.i64_0) ~message:"t239.i64_0"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t239.i64_0) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig239.i64_0) ~message:"t239.i64_0"; check_int t239.imm1 t_orig239.imm1 ~message:"t239.imm1"; check_string t240.str0 t_orig240.str0 ~message:"t240.str0"; check_float t240.float1 t_orig240.float1 ~message:"t240.float1"; - check_float (Stable.Float_u.to_float t240.float_u2) (Stable.Float_u.to_float t_orig240.float_u2) ~message:"t240.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t240.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig240.float_u2) ~message:"t240.float_u2"; check_string t241.str0 t_orig241.str0 ~message:"t241.str0"; check_float t241.float1 t_orig241.float1 ~message:"t241.float1"; - check_float (Stable.Float_u.to_float t241.float_u2) (Stable.Float_u.to_float t_orig241.float_u2) ~message:"t241.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t241.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig241.float_u2) ~message:"t241.float_u2"; check_int t242.imm0 t_orig242.imm0 ~message:"t242.imm0"; check_string t242.str1 t_orig242.str1 ~message:"t242.str1"; check_float32 (Beta.Float32_u.to_float32 t242.float32_u2) (Beta.Float32_u.to_float32 t_orig242.float32_u2) ~message:"t242.float32_u2"; @@ -8069,29 +8069,29 @@ let t_orig599_A = t599_A;; check_float32 (Beta.Float32_u.to_float32 t243.float32_u2) (Beta.Float32_u.to_float32 t_orig243.float32_u2) ~message:"t243.float32_u2"; check_float t244.float0 t_orig244.float0 ~message:"t244.float0"; check_string t244.str1 t_orig244.str1 ~message:"t244.str1"; - check_int32 (Stable.Int32_u.to_int32 t244.i32_2) (Stable.Int32_u.to_int32 t_orig244.i32_2) ~message:"t244.i32_2"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t244.i32_2) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig244.i32_2) ~message:"t244.i32_2"; check_float t245.float0 t_orig245.float0 ~message:"t245.float0"; check_string t245.str1 t_orig245.str1 ~message:"t245.str1"; - check_int32 (Stable.Int32_u.to_int32 t245.i32_2) (Stable.Int32_u.to_int32 t_orig245.i32_2) ~message:"t245.i32_2"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t245.i32_2) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig245.i32_2) ~message:"t245.i32_2"; check_string t246.str0 t_orig246.str0 ~message:"t246.str0"; check_string t246.str1 t_orig246.str1 ~message:"t246.str1"; - check_int64 (Stable.Int64_u.to_int64 t246.i64_2) (Stable.Int64_u.to_int64 t_orig246.i64_2) ~message:"t246.i64_2"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t246.i64_2) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig246.i64_2) ~message:"t246.i64_2"; check_string t247.str0 t_orig247.str0 ~message:"t247.str0"; check_string t247.str1 t_orig247.str1 ~message:"t247.str1"; - check_int64 (Stable.Int64_u.to_int64 t247.i64_2) (Stable.Int64_u.to_int64 t_orig247.i64_2) ~message:"t247.i64_2"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t247.i64_2) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig247.i64_2) ~message:"t247.i64_2"; check_int t248.imm0 t_orig248.imm0 ~message:"t248.imm0"; check_string t248.str1 t_orig248.str1 ~message:"t248.str1"; - check_int (Stable.Nativeint_u.to_int t248.n2) (Stable.Nativeint_u.to_int t_orig248.n2) ~message:"t248.n2"; + check_int (Stdlib_upstream_compatible.Nativeint_u.to_int t248.n2) (Stdlib_upstream_compatible.Nativeint_u.to_int t_orig248.n2) ~message:"t248.n2"; check_int t249.imm0 t_orig249.imm0 ~message:"t249.imm0"; check_string t249.str1 t_orig249.str1 ~message:"t249.str1"; - check_int (Stable.Nativeint_u.to_int t249.n2) (Stable.Nativeint_u.to_int t_orig249.n2) ~message:"t249.n2"; + check_int (Stdlib_upstream_compatible.Nativeint_u.to_int t249.n2) (Stdlib_upstream_compatible.Nativeint_u.to_int t_orig249.n2) ~message:"t249.n2"; check_float t250.float0 t_orig250.float0 ~message:"t250.float0"; check_string t250.str1 t_orig250.str1 ~message:"t250.str1"; - check_float (Stable.Float_u.to_float t250.float_u2) (Stable.Float_u.to_float t_orig250.float_u2) ~message:"t250.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t250.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig250.float_u2) ~message:"t250.float_u2"; check_int t250.imm3 t_orig250.imm3 ~message:"t250.imm3"; check_float t251.float0 t_orig251.float0 ~message:"t251.float0"; check_string t251.str1 t_orig251.str1 ~message:"t251.str1"; - check_float (Stable.Float_u.to_float t251.float_u2) (Stable.Float_u.to_float t_orig251.float_u2) ~message:"t251.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t251.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig251.float_u2) ~message:"t251.float_u2"; check_int t251.imm3 t_orig251.imm3 ~message:"t251.imm3"; check_string t252.str0 t_orig252.str0 ~message:"t252.str0"; check_string t252.str1 t_orig252.str1 ~message:"t252.str1"; @@ -8102,22 +8102,22 @@ let t_orig599_A = t599_A;; check_float32 (Beta.Float32_u.to_float32 t253.float32_u2) (Beta.Float32_u.to_float32 t_orig253.float32_u2) ~message:"t253.float32_u2"; check_int t253.imm3 t_orig253.imm3 ~message:"t253.imm3"; check_float t254.float0 t_orig254.float0 ~message:"t254.float0"; - check_int32 (Stable.Int32_u.to_int32 t254.i32_1) (Stable.Int32_u.to_int32 t_orig254.i32_1) ~message:"t254.i32_1"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t254.i32_1) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig254.i32_1) ~message:"t254.i32_1"; check_int t254.imm2 t_orig254.imm2 ~message:"t254.imm2"; check_float t255.float0 t_orig255.float0 ~message:"t255.float0"; - check_int32 (Stable.Int32_u.to_int32 t255.i32_1) (Stable.Int32_u.to_int32 t_orig255.i32_1) ~message:"t255.i32_1"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t255.i32_1) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig255.i32_1) ~message:"t255.i32_1"; check_int t255.imm2 t_orig255.imm2 ~message:"t255.imm2"; check_string t256.str0 t_orig256.str0 ~message:"t256.str0"; - check_int64 (Stable.Int64_u.to_int64 t256.i64_1) (Stable.Int64_u.to_int64 t_orig256.i64_1) ~message:"t256.i64_1"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t256.i64_1) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig256.i64_1) ~message:"t256.i64_1"; check_int t256.imm2 t_orig256.imm2 ~message:"t256.imm2"; check_string t257.str0 t_orig257.str0 ~message:"t257.str0"; - check_int64 (Stable.Int64_u.to_int64 t257.i64_1) (Stable.Int64_u.to_int64 t_orig257.i64_1) ~message:"t257.i64_1"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t257.i64_1) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig257.i64_1) ~message:"t257.i64_1"; check_int t257.imm2 t_orig257.imm2 ~message:"t257.imm2"; - check_int (Stable.Nativeint_u.to_int t258.n0) (Stable.Nativeint_u.to_int t_orig258.n0) ~message:"t258.n0"; + check_int (Stdlib_upstream_compatible.Nativeint_u.to_int t258.n0) (Stdlib_upstream_compatible.Nativeint_u.to_int t_orig258.n0) ~message:"t258.n0"; check_int t258.imm1 t_orig258.imm1 ~message:"t258.imm1"; check_string t259.str0 t_orig259.str0 ~message:"t259.str0"; check_float t259.float1 t_orig259.float1 ~message:"t259.float1"; - check_float (Stable.Float_u.to_float t259.float_u2) (Stable.Float_u.to_float t_orig259.float_u2) ~message:"t259.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t259.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig259.float_u2) ~message:"t259.float_u2"; check_string t260.str0 t_orig260.str0 ~message:"t260.str0"; check_float t260.float1 t_orig260.float1 ~message:"t260.float1"; check_float32 (Beta.Float32_u.to_float32 t260.float32_u2) (Beta.Float32_u.to_float32 t_orig260.float32_u2) ~message:"t260.float32_u2"; @@ -8126,29 +8126,29 @@ let t_orig599_A = t599_A;; check_float32 (Beta.Float32_u.to_float32 t261.float32_u2) (Beta.Float32_u.to_float32 t_orig261.float32_u2) ~message:"t261.float32_u2"; check_int t262.imm0 t_orig262.imm0 ~message:"t262.imm0"; check_string t262.str1 t_orig262.str1 ~message:"t262.str1"; - check_int32 (Stable.Int32_u.to_int32 t262.i32_2) (Stable.Int32_u.to_int32 t_orig262.i32_2) ~message:"t262.i32_2"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t262.i32_2) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig262.i32_2) ~message:"t262.i32_2"; check_float t263.float0 t_orig263.float0 ~message:"t263.float0"; check_string t263.str1 t_orig263.str1 ~message:"t263.str1"; - check_int32 (Stable.Int32_u.to_int32 t263.i32_2) (Stable.Int32_u.to_int32 t_orig263.i32_2) ~message:"t263.i32_2"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t263.i32_2) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig263.i32_2) ~message:"t263.i32_2"; check_float t264.float0 t_orig264.float0 ~message:"t264.float0"; check_string t264.str1 t_orig264.str1 ~message:"t264.str1"; - check_int64 (Stable.Int64_u.to_int64 t264.i64_2) (Stable.Int64_u.to_int64 t_orig264.i64_2) ~message:"t264.i64_2"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t264.i64_2) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig264.i64_2) ~message:"t264.i64_2"; check_string t265.str0 t_orig265.str0 ~message:"t265.str0"; check_string t265.str1 t_orig265.str1 ~message:"t265.str1"; - check_int64 (Stable.Int64_u.to_int64 t265.i64_2) (Stable.Int64_u.to_int64 t_orig265.i64_2) ~message:"t265.i64_2"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t265.i64_2) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig265.i64_2) ~message:"t265.i64_2"; check_string t266.str0 t_orig266.str0 ~message:"t266.str0"; check_string t266.str1 t_orig266.str1 ~message:"t266.str1"; - check_int (Stable.Nativeint_u.to_int t266.n2) (Stable.Nativeint_u.to_int t_orig266.n2) ~message:"t266.n2"; + check_int (Stdlib_upstream_compatible.Nativeint_u.to_int t266.n2) (Stdlib_upstream_compatible.Nativeint_u.to_int t_orig266.n2) ~message:"t266.n2"; check_int t267.imm0 t_orig267.imm0 ~message:"t267.imm0"; check_string t267.str1 t_orig267.str1 ~message:"t267.str1"; - check_int (Stable.Nativeint_u.to_int t267.n2) (Stable.Nativeint_u.to_int t_orig267.n2) ~message:"t267.n2"; + check_int (Stdlib_upstream_compatible.Nativeint_u.to_int t267.n2) (Stdlib_upstream_compatible.Nativeint_u.to_int t_orig267.n2) ~message:"t267.n2"; check_int t268.imm0 t_orig268.imm0 ~message:"t268.imm0"; check_string t268.str1 t_orig268.str1 ~message:"t268.str1"; - check_float (Stable.Float_u.to_float t268.float_u2) (Stable.Float_u.to_float t_orig268.float_u2) ~message:"t268.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t268.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig268.float_u2) ~message:"t268.float_u2"; check_int t268.imm3 t_orig268.imm3 ~message:"t268.imm3"; check_float t269.float0 t_orig269.float0 ~message:"t269.float0"; check_string t269.str1 t_orig269.str1 ~message:"t269.str1"; - check_float (Stable.Float_u.to_float t269.float_u2) (Stable.Float_u.to_float t_orig269.float_u2) ~message:"t269.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t269.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig269.float_u2) ~message:"t269.float_u2"; check_int t269.imm3 t_orig269.imm3 ~message:"t269.imm3"; check_float t270.float0 t_orig270.float0 ~message:"t270.float0"; check_string t270.str1 t_orig270.str1 ~message:"t270.str1"; @@ -8160,21 +8160,21 @@ let t_orig599_A = t599_A;; check_int t271.imm3 t_orig271.imm3 ~message:"t271.imm3"; check_string t272.str0 t_orig272.str0 ~message:"t272.str0"; check_string t272.str1 t_orig272.str1 ~message:"t272.str1"; - check_int32 (Stable.Int32_u.to_int32 t272.i32_2) (Stable.Int32_u.to_int32 t_orig272.i32_2) ~message:"t272.i32_2"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t272.i32_2) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig272.i32_2) ~message:"t272.i32_2"; check_int t272.imm3 t_orig272.imm3 ~message:"t272.imm3"; check_float t273.float0 t_orig273.float0 ~message:"t273.float0"; - check_int32 (Stable.Int32_u.to_int32 t273.i32_1) (Stable.Int32_u.to_int32 t_orig273.i32_1) ~message:"t273.i32_1"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t273.i32_1) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig273.i32_1) ~message:"t273.i32_1"; check_int t273.imm2 t_orig273.imm2 ~message:"t273.imm2"; check_float t274.float0 t_orig274.float0 ~message:"t274.float0"; - check_int64 (Stable.Int64_u.to_int64 t274.i64_1) (Stable.Int64_u.to_int64 t_orig274.i64_1) ~message:"t274.i64_1"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t274.i64_1) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig274.i64_1) ~message:"t274.i64_1"; check_int t274.imm2 t_orig274.imm2 ~message:"t274.imm2"; check_string t275.str0 t_orig275.str0 ~message:"t275.str0"; - check_int64 (Stable.Int64_u.to_int64 t275.i64_1) (Stable.Int64_u.to_int64 t_orig275.i64_1) ~message:"t275.i64_1"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t275.i64_1) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig275.i64_1) ~message:"t275.i64_1"; check_int t275.imm2 t_orig275.imm2 ~message:"t275.imm2"; check_string t276.str0 t_orig276.str0 ~message:"t276.str0"; - check_int (Stable.Nativeint_u.to_int t276.n1) (Stable.Nativeint_u.to_int t_orig276.n1) ~message:"t276.n1"; + check_int (Stdlib_upstream_compatible.Nativeint_u.to_int t276.n1) (Stdlib_upstream_compatible.Nativeint_u.to_int t_orig276.n1) ~message:"t276.n1"; check_int t276.imm2 t_orig276.imm2 ~message:"t276.imm2"; - check_int (Stable.Nativeint_u.to_int t277.n0) (Stable.Nativeint_u.to_int t_orig277.n0) ~message:"t277.n0"; + check_int (Stdlib_upstream_compatible.Nativeint_u.to_int t277.n0) (Stdlib_upstream_compatible.Nativeint_u.to_int t_orig277.n0) ~message:"t277.n0"; check_int t277.imm1 t_orig277.imm1 ~message:"t277.imm1"; check_string t278.str0 t_orig278.str0 ~message:"t278.str0"; check_float t278.float1 t_orig278.float1 ~message:"t278.float1"; @@ -8184,29 +8184,29 @@ let t_orig599_A = t599_A;; check_float32 (Beta.Float32_u.to_float32 t279.float32_u2) (Beta.Float32_u.to_float32 t_orig279.float32_u2) ~message:"t279.float32_u2"; check_int t280.imm0 t_orig280.imm0 ~message:"t280.imm0"; check_string t280.str1 t_orig280.str1 ~message:"t280.str1"; - check_int32 (Stable.Int32_u.to_int32 t280.i32_2) (Stable.Int32_u.to_int32 t_orig280.i32_2) ~message:"t280.i32_2"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t280.i32_2) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig280.i32_2) ~message:"t280.i32_2"; check_int t281.imm0 t_orig281.imm0 ~message:"t281.imm0"; check_string t281.str1 t_orig281.str1 ~message:"t281.str1"; - check_int32 (Stable.Int32_u.to_int32 t281.i32_2) (Stable.Int32_u.to_int32 t_orig281.i32_2) ~message:"t281.i32_2"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t281.i32_2) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig281.i32_2) ~message:"t281.i32_2"; check_float t282.float0 t_orig282.float0 ~message:"t282.float0"; check_string t282.str1 t_orig282.str1 ~message:"t282.str1"; - check_int64 (Stable.Int64_u.to_int64 t282.i64_2) (Stable.Int64_u.to_int64 t_orig282.i64_2) ~message:"t282.i64_2"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t282.i64_2) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig282.i64_2) ~message:"t282.i64_2"; check_float t283.float0 t_orig283.float0 ~message:"t283.float0"; check_string t283.str1 t_orig283.str1 ~message:"t283.str1"; - check_int64 (Stable.Int64_u.to_int64 t283.i64_2) (Stable.Int64_u.to_int64 t_orig283.i64_2) ~message:"t283.i64_2"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t283.i64_2) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig283.i64_2) ~message:"t283.i64_2"; check_string t284.str0 t_orig284.str0 ~message:"t284.str0"; check_string t284.str1 t_orig284.str1 ~message:"t284.str1"; - check_int (Stable.Nativeint_u.to_int t284.n2) (Stable.Nativeint_u.to_int t_orig284.n2) ~message:"t284.n2"; + check_int (Stdlib_upstream_compatible.Nativeint_u.to_int t284.n2) (Stdlib_upstream_compatible.Nativeint_u.to_int t_orig284.n2) ~message:"t284.n2"; check_string t285.str0 t_orig285.str0 ~message:"t285.str0"; check_string t285.str1 t_orig285.str1 ~message:"t285.str1"; - check_int (Stable.Nativeint_u.to_int t285.n2) (Stable.Nativeint_u.to_int t_orig285.n2) ~message:"t285.n2"; + check_int (Stdlib_upstream_compatible.Nativeint_u.to_int t285.n2) (Stdlib_upstream_compatible.Nativeint_u.to_int t_orig285.n2) ~message:"t285.n2"; check_int t286.imm0 t_orig286.imm0 ~message:"t286.imm0"; check_string t286.str1 t_orig286.str1 ~message:"t286.str1"; - check_float (Stable.Float_u.to_float t286.float_u2) (Stable.Float_u.to_float t_orig286.float_u2) ~message:"t286.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t286.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig286.float_u2) ~message:"t286.float_u2"; check_int t286.imm3 t_orig286.imm3 ~message:"t286.imm3"; check_int t287.imm0 t_orig287.imm0 ~message:"t287.imm0"; check_string t287.str1 t_orig287.str1 ~message:"t287.str1"; - check_float (Stable.Float_u.to_float t287.float_u2) (Stable.Float_u.to_float t_orig287.float_u2) ~message:"t287.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t287.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig287.float_u2) ~message:"t287.float_u2"; check_int t287.imm3 t_orig287.imm3 ~message:"t287.imm3"; check_float t288.float0 t_orig288.float0 ~message:"t288.float0"; check_string t288.str1 t_orig288.str1 ~message:"t288.str1"; @@ -8218,29 +8218,29 @@ let t_orig599_A = t599_A;; check_int t289.imm3 t_orig289.imm3 ~message:"t289.imm3"; check_string t290.str0 t_orig290.str0 ~message:"t290.str0"; check_string t290.str1 t_orig290.str1 ~message:"t290.str1"; - check_int32 (Stable.Int32_u.to_int32 t290.i32_2) (Stable.Int32_u.to_int32 t_orig290.i32_2) ~message:"t290.i32_2"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t290.i32_2) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig290.i32_2) ~message:"t290.i32_2"; check_int t290.imm3 t_orig290.imm3 ~message:"t290.imm3"; check_string t291.str0 t_orig291.str0 ~message:"t291.str0"; check_string t291.str1 t_orig291.str1 ~message:"t291.str1"; - check_int32 (Stable.Int32_u.to_int32 t291.i32_2) (Stable.Int32_u.to_int32 t_orig291.i32_2) ~message:"t291.i32_2"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t291.i32_2) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig291.i32_2) ~message:"t291.i32_2"; check_int t291.imm3 t_orig291.imm3 ~message:"t291.imm3"; check_float t292.float0 t_orig292.float0 ~message:"t292.float0"; - check_int64 (Stable.Int64_u.to_int64 t292.i64_1) (Stable.Int64_u.to_int64 t_orig292.i64_1) ~message:"t292.i64_1"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t292.i64_1) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig292.i64_1) ~message:"t292.i64_1"; check_int t292.imm2 t_orig292.imm2 ~message:"t292.imm2"; check_float t293.float0 t_orig293.float0 ~message:"t293.float0"; - check_int64 (Stable.Int64_u.to_int64 t293.i64_1) (Stable.Int64_u.to_int64 t_orig293.i64_1) ~message:"t293.i64_1"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t293.i64_1) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig293.i64_1) ~message:"t293.i64_1"; check_int t293.imm2 t_orig293.imm2 ~message:"t293.imm2"; check_string t294.str0 t_orig294.str0 ~message:"t294.str0"; - check_int (Stable.Nativeint_u.to_int t294.n1) (Stable.Nativeint_u.to_int t_orig294.n1) ~message:"t294.n1"; + check_int (Stdlib_upstream_compatible.Nativeint_u.to_int t294.n1) (Stdlib_upstream_compatible.Nativeint_u.to_int t_orig294.n1) ~message:"t294.n1"; check_int t294.imm2 t_orig294.imm2 ~message:"t294.imm2"; check_string t295.str0 t_orig295.str0 ~message:"t295.str0"; - check_int (Stable.Nativeint_u.to_int t295.n1) (Stable.Nativeint_u.to_int t_orig295.n1) ~message:"t295.n1"; + check_int (Stdlib_upstream_compatible.Nativeint_u.to_int t295.n1) (Stdlib_upstream_compatible.Nativeint_u.to_int t_orig295.n1) ~message:"t295.n1"; check_int t295.imm2 t_orig295.imm2 ~message:"t295.imm2"; - check_float (Stable.Float_u.to_float t296.float_u0) (Stable.Float_u.to_float t_orig296.float_u0) ~message:"t296.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t296.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig296.float_u0) ~message:"t296.float_u0"; check_int t296.imm1 t_orig296.imm1 ~message:"t296.imm1"; check_int t297.imm0 t_orig297.imm0 ~message:"t297.imm0"; check_float t297.float1 t_orig297.float1 ~message:"t297.float1"; - check_float (Stable.Float_u.to_float t297.float_u2) (Stable.Float_u.to_float t_orig297.float_u2) ~message:"t297.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t297.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig297.float_u2) ~message:"t297.float_u2"; check_float t298.float0 t_orig298.float0 ~message:"t298.float0"; check_float t298.float1 t_orig298.float1 ~message:"t298.float1"; check_float32 (Beta.Float32_u.to_float32 t298.float32_u2) (Beta.Float32_u.to_float32 t_orig298.float32_u2) ~message:"t298.float32_u2"; @@ -8248,41 +8248,41 @@ let t_orig599_A = t599_A;; check_float t299.float1 t_orig299.float1 ~message:"t299.float1"; check_float32 (Beta.Float32_u.to_float32 t299.float32_u2) (Beta.Float32_u.to_float32 t_orig299.float32_u2) ~message:"t299.float32_u2"; let () = match t300_A, t_orig300_A with - | A (a0), A (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t300_A.0"; + | A (a0), A (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t300_A.0"; in let () = match t301_A, t_orig301_A with - | A (a0), A (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t301_A.0"; + | A (a0), A (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t301_A.0"; | _ -> assert false in let () = match t301_B, t_orig301_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t301_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t301_B.0"; | _ -> assert false in let () = match t302_A, t_orig302_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t302_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t302_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t302_A.1"; in let () = match t303_A, t_orig303_A with - | A (a0), A (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t303_A.0"; + | A (a0), A (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t303_A.0"; | _ -> assert false in let () = match t303_B, t_orig303_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t303_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t303_B.0"; | _ -> assert false in let () = match t303_C, t_orig303_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t303_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t303_C.0"; | _ -> assert false in let () = match t304_A, t_orig304_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t304_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t304_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t304_A.1"; | _ -> assert false in let () = match t304_B, t_orig304_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t304_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t304_B.0"; | _ -> assert false in let () = match t305_A, t_orig305_A with @@ -8290,25 +8290,25 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" in let () = match t306_A, t_orig306_A with - | A (a0), A (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t306_A.0"; + | A (a0), A (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t306_A.0"; | _ -> assert false in let () = match t306_B, t_orig306_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t306_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t306_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t306_B.1"; | _ -> assert false in let () = match t307_A, t_orig307_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t307_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t307_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t307_A.1"; | _ -> assert false in let () = match t307_B, t_orig307_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t307_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t307_B.0"; | _ -> assert false in let () = match t307_C, t_orig307_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t307_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t307_C.0"; | _ -> assert false in let () = match t308_A, t_orig308_A with @@ -8316,38 +8316,38 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" | _ -> assert false in let () = match t308_B, t_orig308_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t308_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t308_B.0"; | _ -> assert false in let () = match t309_A, t_orig309_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t309_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t309_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t309_A.1"; in let () = match t310_A, t_orig310_A with - | A (a0), A (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t310_A.0"; + | A (a0), A (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t310_A.0"; | _ -> assert false in let () = match t310_B, t_orig310_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t310_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t310_B.0"; | _ -> assert false in let () = match t310_C, t_orig310_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t310_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t310_C.0"; | _ -> assert false in let () = match t310_D, t_orig310_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t310_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t310_D.0"; | _ -> assert false in let () = match t311_A, t_orig311_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t311_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t311_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t311_A.1"; | _ -> assert false in let () = match t311_B, t_orig311_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t311_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t311_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t311_B.1"; | _ -> assert false in let () = match t312_A, t_orig312_A with @@ -8355,20 +8355,20 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" | _ -> assert false in let () = match t312_B, t_orig312_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t312_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t312_B.0"; | _ -> assert false in let () = match t312_C, t_orig312_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t312_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t312_C.0"; | _ -> assert false in let () = match t313_A, t_orig313_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t313_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t313_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t313_A.1"; | _ -> assert false in let () = match t313_B, t_orig313_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t313_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t313_B.0"; | _ -> assert false in let () = match t314_A, t_orig314_A with @@ -8377,33 +8377,33 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes in let () = match t315_A, t_orig315_A with - | A (a0), A (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t315_A.0"; + | A (a0), A (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t315_A.0"; | _ -> assert false in let () = match t315_B, t_orig315_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t315_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t315_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t315_B.1"; | _ -> assert false in let () = match t315_C, t_orig315_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t315_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t315_C.0"; | _ -> assert false in let () = match t316_A, t_orig316_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t316_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t316_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t316_A.1"; | _ -> assert false in let () = match t316_B, t_orig316_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t316_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t316_B.0"; | _ -> assert false in let () = match t316_C, t_orig316_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t316_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t316_C.0"; | _ -> assert false in let () = match t316_D, t_orig316_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t316_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t316_D.0"; | _ -> assert false in let () = match t317_A, t_orig317_A with @@ -8412,20 +8412,20 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" in let () = match t317_B, t_orig317_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t317_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t317_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t317_B.1"; | _ -> assert false in let () = match t318_A, t_orig318_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t318_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t318_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t318_A.1"; | _ -> assert false in let () = match t318_B, t_orig318_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t318_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t318_B.0"; | _ -> assert false in let () = match t318_C, t_orig318_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t318_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t318_C.0"; | _ -> assert false in let () = match t319_A, t_orig319_A with @@ -8434,15 +8434,15 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes | _ -> assert false in let () = match t319_B, t_orig319_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t319_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t319_B.0"; | _ -> assert false in let () = match t320_A, t_orig320_A with - | A (a0), A (b0) -> check_int32 (Stable.Int32_u.to_int32 a0) (Stable.Int32_u.to_int32 b0) ~message:"t320_A.0"; + | A (a0), A (b0) -> check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a0) (Stdlib_upstream_compatible.Int32_u.to_int32 b0) ~message:"t320_A.0"; in let () = match t321_A, t_orig321_A with - | A (a0), A (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t321_A.0"; + | A (a0), A (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t321_A.0"; | _ -> assert false in let () = match t321_B, t_orig321_B with @@ -8451,16 +8451,16 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes in let () = match t322_A, t_orig322_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t322_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t322_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t322_A.1"; | _ -> assert false in let () = match t322_B, t_orig322_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t322_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t322_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t322_B.1"; | _ -> assert false in let () = match t322_C, t_orig322_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t322_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t322_C.0"; | _ -> assert false in let () = match t323_A, t_orig323_A with @@ -8468,25 +8468,25 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" | _ -> assert false in let () = match t323_B, t_orig323_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t323_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t323_B.0"; | _ -> assert false in let () = match t323_C, t_orig323_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t323_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t323_C.0"; | _ -> assert false in let () = match t323_D, t_orig323_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t323_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t323_D.0"; | _ -> assert false in let () = match t324_A, t_orig324_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t324_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t324_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t324_A.1"; | _ -> assert false in let () = match t324_B, t_orig324_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t324_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t324_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t324_B.1"; | _ -> assert false in let () = match t325_A, t_orig325_A with @@ -8495,43 +8495,43 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes | _ -> assert false in let () = match t325_B, t_orig325_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t325_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t325_B.0"; | _ -> assert false in let () = match t325_C, t_orig325_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t325_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t325_C.0"; | _ -> assert false in let () = match t326_A, t_orig326_A with - | A (a0), A (b0) -> check_int32 (Stable.Int32_u.to_int32 a0) (Stable.Int32_u.to_int32 b0) ~message:"t326_A.0"; + | A (a0), A (b0) -> check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a0) (Stdlib_upstream_compatible.Int32_u.to_int32 b0) ~message:"t326_A.0"; | _ -> assert false in let () = match t326_B, t_orig326_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t326_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t326_B.0"; | _ -> assert false in let () = match t327_A, t_orig327_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t327_A.0"; check_string a1 b1 ~message:"t327_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t327_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t327_A.2"; in let () = match t328_A, t_orig328_A with - | A (a0), A (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t328_A.0"; + | A (a0), A (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t328_A.0"; | _ -> assert false in let () = match t328_B, t_orig328_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t328_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t328_B.0"; | _ -> assert false in let () = match t328_C, t_orig328_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t328_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t328_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t328_C.1"; | _ -> assert false in let () = match t329_A, t_orig329_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t329_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t329_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t329_A.1"; | _ -> assert false in let () = match t329_B, t_orig329_B with @@ -8544,28 +8544,28 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" in let () = match t330_B, t_orig330_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t330_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t330_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t330_B.1"; | _ -> assert false in let () = match t330_C, t_orig330_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t330_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t330_C.0"; | _ -> assert false in let () = match t331_A, t_orig331_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t331_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t331_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t331_A.1"; | _ -> assert false in let () = match t331_B, t_orig331_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t331_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t331_B.0"; | _ -> assert false in let () = match t331_C, t_orig331_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t331_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t331_C.0"; | _ -> assert false in let () = match t331_D, t_orig331_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t331_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t331_D.0"; | _ -> assert false in let () = match t332_A, t_orig332_A with @@ -8575,29 +8575,29 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes in let () = match t332_B, t_orig332_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t332_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t332_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t332_B.1"; | _ -> assert false in let () = match t333_A, t_orig333_A with - | A (a0), A (b0) -> check_int32 (Stable.Int32_u.to_int32 a0) (Stable.Int32_u.to_int32 b0) ~message:"t333_A.0"; + | A (a0), A (b0) -> check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a0) (Stdlib_upstream_compatible.Int32_u.to_int32 b0) ~message:"t333_A.0"; | _ -> assert false in let () = match t333_B, t_orig333_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t333_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t333_B.0"; | _ -> assert false in let () = match t333_C, t_orig333_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t333_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t333_C.0"; | _ -> assert false in let () = match t334_A, t_orig334_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t334_A.0"; check_string a1 b1 ~message:"t334_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t334_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t334_A.2"; | _ -> assert false in let () = match t334_B, t_orig334_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t334_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t334_B.0"; | _ -> assert false in let () = match t335_A, t_orig335_A with @@ -8606,34 +8606,34 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes in let () = match t336_A, t_orig336_A with - | A (a0), A (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t336_A.0"; + | A (a0), A (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t336_A.0"; | _ -> assert false in let () = match t336_B, t_orig336_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t336_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t336_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t336_B.1"; | _ -> assert false in let () = match t336_C, t_orig336_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t336_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t336_C.0"; | _ -> assert false in let () = match t336_D, t_orig336_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t336_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t336_D.0"; | _ -> assert false in let () = match t337_A, t_orig337_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t337_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t337_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t337_A.1"; | _ -> assert false in let () = match t337_B, t_orig337_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t337_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t337_B.0"; | _ -> assert false in let () = match t337_C, t_orig337_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t337_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t337_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t337_C.1"; | _ -> assert false in let () = match t338_A, t_orig338_A with @@ -8646,16 +8646,16 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" in let () = match t339_A, t_orig339_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t339_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t339_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t339_A.1"; | _ -> assert false in let () = match t339_B, t_orig339_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t339_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t339_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t339_B.1"; | _ -> assert false in let () = match t339_C, t_orig339_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t339_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t339_C.0"; | _ -> assert false in let () = match t340_A, t_orig340_A with @@ -8664,38 +8664,38 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes | _ -> assert false in let () = match t340_B, t_orig340_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t340_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t340_B.0"; | _ -> assert false in let () = match t340_C, t_orig340_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t340_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t340_C.0"; | _ -> assert false in let () = match t340_D, t_orig340_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t340_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t340_D.0"; | _ -> assert false in let () = match t341_A, t_orig341_A with - | A (a0), A (b0) -> check_int32 (Stable.Int32_u.to_int32 a0) (Stable.Int32_u.to_int32 b0) ~message:"t341_A.0"; + | A (a0), A (b0) -> check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a0) (Stdlib_upstream_compatible.Int32_u.to_int32 b0) ~message:"t341_A.0"; | _ -> assert false in let () = match t341_B, t_orig341_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t341_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t341_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t341_B.1"; | _ -> assert false in let () = match t342_A, t_orig342_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t342_A.0"; check_string a1 b1 ~message:"t342_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t342_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t342_A.2"; | _ -> assert false in let () = match t342_B, t_orig342_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t342_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t342_B.0"; | _ -> assert false in let () = match t342_C, t_orig342_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t342_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t342_C.0"; | _ -> assert false in let () = match t343_A, t_orig343_A with @@ -8704,16 +8704,16 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes | _ -> assert false in let () = match t343_B, t_orig343_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t343_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t343_B.0"; | _ -> assert false in let () = match t344_A, t_orig344_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t344_A.0"; -check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:"t344_A.1"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a1) (Stdlib_upstream_compatible.Int32_u.to_int32 b1) ~message:"t344_A.1"; in let () = match t345_A, t_orig345_A with - | A (a0), A (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t345_A.0"; + | A (a0), A (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t345_A.0"; | _ -> assert false in let () = match t345_B, t_orig345_B with @@ -8721,25 +8721,25 @@ check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:" | _ -> assert false in let () = match t345_C, t_orig345_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t345_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t345_C.0"; | _ -> assert false in let () = match t346_A, t_orig346_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t346_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t346_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t346_A.1"; | _ -> assert false in let () = match t346_B, t_orig346_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t346_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t346_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t346_B.1"; | _ -> assert false in let () = match t346_C, t_orig346_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t346_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t346_C.0"; | _ -> assert false in let () = match t346_D, t_orig346_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t346_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t346_D.0"; | _ -> assert false in let () = match t347_A, t_orig347_A with @@ -8747,17 +8747,17 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" | _ -> assert false in let () = match t347_B, t_orig347_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t347_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t347_B.0"; | _ -> assert false in let () = match t347_C, t_orig347_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t347_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t347_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t347_C.1"; | _ -> assert false in let () = match t348_A, t_orig348_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t348_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t348_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t348_A.1"; | _ -> assert false in let () = match t348_B, t_orig348_B with @@ -8771,38 +8771,38 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes in let () = match t349_B, t_orig349_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t349_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t349_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t349_B.1"; | _ -> assert false in let () = match t349_C, t_orig349_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t349_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t349_C.0"; | _ -> assert false in let () = match t350_A, t_orig350_A with - | A (a0), A (b0) -> check_int32 (Stable.Int32_u.to_int32 a0) (Stable.Int32_u.to_int32 b0) ~message:"t350_A.0"; + | A (a0), A (b0) -> check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a0) (Stdlib_upstream_compatible.Int32_u.to_int32 b0) ~message:"t350_A.0"; | _ -> assert false in let () = match t350_B, t_orig350_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t350_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t350_B.0"; | _ -> assert false in let () = match t350_C, t_orig350_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t350_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t350_C.0"; | _ -> assert false in let () = match t350_D, t_orig350_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t350_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t350_D.0"; | _ -> assert false in let () = match t351_A, t_orig351_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t351_A.0"; check_string a1 b1 ~message:"t351_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t351_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t351_A.2"; | _ -> assert false in let () = match t351_B, t_orig351_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t351_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t351_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t351_B.1"; | _ -> assert false in let () = match t352_A, t_orig352_A with @@ -8811,38 +8811,38 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes | _ -> assert false in let () = match t352_B, t_orig352_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t352_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t352_B.0"; | _ -> assert false in let () = match t352_C, t_orig352_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t352_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t352_C.0"; | _ -> assert false in let () = match t353_A, t_orig353_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t353_A.0"; -check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:"t353_A.1"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a1) (Stdlib_upstream_compatible.Int32_u.to_int32 b1) ~message:"t353_A.1"; | _ -> assert false in let () = match t353_B, t_orig353_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t353_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t353_B.0"; | _ -> assert false in let () = match t354_A, t_orig354_A with - | A (a0), A (b0) -> check_int64 (Stable.Int64_u.to_int64 a0) (Stable.Int64_u.to_int64 b0) ~message:"t354_A.0"; + | A (a0), A (b0) -> check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 a0) (Stdlib_upstream_compatible.Int64_u.to_int64 b0) ~message:"t354_A.0"; in let () = match t355_A, t_orig355_A with - | A (a0), A (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t355_A.0"; + | A (a0), A (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t355_A.0"; | _ -> assert false in let () = match t355_B, t_orig355_B with | B (a0,a1), B (b0,b1) -> check_float a0 b0 ~message:"t355_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t355_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t355_B.1"; | _ -> assert false in let () = match t356_A, t_orig356_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t356_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t356_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t356_A.1"; | _ -> assert false in let () = match t356_B, t_orig356_B with @@ -8850,7 +8850,7 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" | _ -> assert false in let () = match t356_C, t_orig356_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t356_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t356_C.0"; | _ -> assert false in let () = match t357_A, t_orig357_A with @@ -8859,29 +8859,29 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" in let () = match t357_B, t_orig357_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t357_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t357_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t357_B.1"; | _ -> assert false in let () = match t357_C, t_orig357_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t357_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t357_C.0"; | _ -> assert false in let () = match t357_D, t_orig357_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t357_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t357_D.0"; | _ -> assert false in let () = match t358_A, t_orig358_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t358_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t358_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t358_A.1"; | _ -> assert false in let () = match t358_B, t_orig358_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t358_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t358_B.0"; | _ -> assert false in let () = match t358_C, t_orig358_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t358_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t358_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t358_C.1"; | _ -> assert false in let () = match t359_A, t_orig359_A with @@ -8894,34 +8894,34 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes | _ -> assert false in let () = match t360_A, t_orig360_A with - | A (a0), A (b0) -> check_int32 (Stable.Int32_u.to_int32 a0) (Stable.Int32_u.to_int32 b0) ~message:"t360_A.0"; + | A (a0), A (b0) -> check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a0) (Stdlib_upstream_compatible.Int32_u.to_int32 b0) ~message:"t360_A.0"; | _ -> assert false in let () = match t360_B, t_orig360_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t360_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t360_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t360_B.1"; | _ -> assert false in let () = match t360_C, t_orig360_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t360_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t360_C.0"; | _ -> assert false in let () = match t361_A, t_orig361_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t361_A.0"; check_string a1 b1 ~message:"t361_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t361_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t361_A.2"; | _ -> assert false in let () = match t361_B, t_orig361_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t361_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t361_B.0"; | _ -> assert false in let () = match t361_C, t_orig361_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t361_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t361_C.0"; | _ -> assert false in let () = match t361_D, t_orig361_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t361_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t361_D.0"; | _ -> assert false in let () = match t362_A, t_orig362_A with @@ -8931,64 +8931,64 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes in let () = match t362_B, t_orig362_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t362_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t362_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t362_B.1"; | _ -> assert false in let () = match t363_A, t_orig363_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t363_A.0"; -check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:"t363_A.1"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a1) (Stdlib_upstream_compatible.Int32_u.to_int32 b1) ~message:"t363_A.1"; | _ -> assert false in let () = match t363_B, t_orig363_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t363_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t363_B.0"; | _ -> assert false in let () = match t363_C, t_orig363_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t363_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t363_C.0"; | _ -> assert false in let () = match t364_A, t_orig364_A with - | A (a0), A (b0) -> check_int64 (Stable.Int64_u.to_int64 a0) (Stable.Int64_u.to_int64 b0) ~message:"t364_A.0"; + | A (a0), A (b0) -> check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 a0) (Stdlib_upstream_compatible.Int64_u.to_int64 b0) ~message:"t364_A.0"; | _ -> assert false in let () = match t364_B, t_orig364_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t364_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t364_B.0"; | _ -> assert false in let () = match t365_A, t_orig365_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_float a0 b0 ~message:"t365_A.0"; check_string a1 b1 ~message:"t365_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t365_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t365_A.2"; in let () = match t366_A, t_orig366_A with - | A (a0), A (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t366_A.0"; + | A (a0), A (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t366_A.0"; | _ -> assert false in let () = match t366_B, t_orig366_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t366_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t366_B.0"; | _ -> assert false in let () = match t366_C, t_orig366_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t366_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t366_C.0"; | _ -> assert false in let () = match t366_D, t_orig366_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t366_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t366_D.0"; | _ -> assert false in let () = match t366_E, t_orig366_E with - | E (a0), E (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t366_E.0"; + | E (a0), E (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t366_E.0"; | _ -> assert false in let () = match t367_A, t_orig367_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t367_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t367_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t367_A.1"; | _ -> assert false in let () = match t367_B, t_orig367_B with | B (a0,a1), B (b0,b1) -> check_float a0 b0 ~message:"t367_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t367_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t367_B.1"; | _ -> assert false in let () = match t368_A, t_orig368_A with @@ -9000,25 +9000,25 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" | _ -> assert false in let () = match t368_C, t_orig368_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t368_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t368_C.0"; | _ -> assert false in let () = match t369_A, t_orig369_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t369_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t369_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t369_A.1"; | _ -> assert false in let () = match t369_B, t_orig369_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t369_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t369_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t369_B.1"; | _ -> assert false in let () = match t369_C, t_orig369_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t369_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t369_C.0"; | _ -> assert false in let () = match t369_D, t_orig369_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t369_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t369_D.0"; | _ -> assert false in let () = match t370_A, t_orig370_A with @@ -9027,16 +9027,16 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes | _ -> assert false in let () = match t370_B, t_orig370_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t370_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t370_B.0"; | _ -> assert false in let () = match t370_C, t_orig370_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t370_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t370_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t370_C.1"; | _ -> assert false in let () = match t371_A, t_orig371_A with - | A (a0), A (b0) -> check_int32 (Stable.Int32_u.to_int32 a0) (Stable.Int32_u.to_int32 b0) ~message:"t371_A.0"; + | A (a0), A (b0) -> check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a0) (Stdlib_upstream_compatible.Int32_u.to_int32 b0) ~message:"t371_A.0"; | _ -> assert false in let () = match t371_B, t_orig371_B with @@ -9046,16 +9046,16 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" let () = match t372_A, t_orig372_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t372_A.0"; check_string a1 b1 ~message:"t372_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t372_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t372_A.2"; | _ -> assert false in let () = match t372_B, t_orig372_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t372_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t372_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t372_B.1"; | _ -> assert false in let () = match t372_C, t_orig372_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t372_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t372_C.0"; | _ -> assert false in let () = match t373_A, t_orig373_A with @@ -9064,47 +9064,47 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes | _ -> assert false in let () = match t373_B, t_orig373_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t373_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t373_B.0"; | _ -> assert false in let () = match t373_C, t_orig373_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t373_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t373_C.0"; | _ -> assert false in let () = match t373_D, t_orig373_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t373_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t373_D.0"; | _ -> assert false in let () = match t374_A, t_orig374_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t374_A.0"; -check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:"t374_A.1"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a1) (Stdlib_upstream_compatible.Int32_u.to_int32 b1) ~message:"t374_A.1"; | _ -> assert false in let () = match t374_B, t_orig374_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t374_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t374_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t374_B.1"; | _ -> assert false in let () = match t375_A, t_orig375_A with - | A (a0), A (b0) -> check_int64 (Stable.Int64_u.to_int64 a0) (Stable.Int64_u.to_int64 b0) ~message:"t375_A.0"; + | A (a0), A (b0) -> check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 a0) (Stdlib_upstream_compatible.Int64_u.to_int64 b0) ~message:"t375_A.0"; | _ -> assert false in let () = match t375_B, t_orig375_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t375_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t375_B.0"; | _ -> assert false in let () = match t375_C, t_orig375_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t375_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t375_C.0"; | _ -> assert false in let () = match t376_A, t_orig376_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_float a0 b0 ~message:"t376_A.0"; check_string a1 b1 ~message:"t376_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t376_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t376_A.2"; | _ -> assert false in let () = match t376_B, t_orig376_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t376_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t376_B.0"; | _ -> assert false in let () = match t377_A, t_orig377_A with @@ -9114,38 +9114,38 @@ check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~mes in let () = match t378_A, t_orig378_A with - | A (a0), A (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t378_A.0"; + | A (a0), A (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t378_A.0"; | _ -> assert false in let () = match t378_B, t_orig378_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t378_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t378_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t378_B.1"; | _ -> assert false in let () = match t378_C, t_orig378_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t378_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t378_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t378_C.1"; | _ -> assert false in let () = match t379_A, t_orig379_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t379_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t379_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t379_A.1"; | _ -> assert false in let () = match t379_B, t_orig379_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t379_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t379_B.0"; | _ -> assert false in let () = match t379_C, t_orig379_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t379_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t379_C.0"; | _ -> assert false in let () = match t379_D, t_orig379_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t379_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t379_D.0"; | _ -> assert false in let () = match t379_E, t_orig379_E with - | E (a0), E (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t379_E.0"; + | E (a0), E (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t379_E.0"; | _ -> assert false in let () = match t380_A, t_orig380_A with @@ -9154,12 +9154,12 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" in let () = match t380_B, t_orig380_B with | B (a0,a1), B (b0,b1) -> check_float a0 b0 ~message:"t380_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t380_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t380_B.1"; | _ -> assert false in let () = match t381_A, t_orig381_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t381_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t381_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t381_A.1"; | _ -> assert false in let () = match t381_B, t_orig381_B with @@ -9167,7 +9167,7 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" | _ -> assert false in let () = match t381_C, t_orig381_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t381_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t381_C.0"; | _ -> assert false in let () = match t382_A, t_orig382_A with @@ -9177,34 +9177,34 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes in let () = match t382_B, t_orig382_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t382_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t382_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t382_B.1"; | _ -> assert false in let () = match t382_C, t_orig382_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t382_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t382_C.0"; | _ -> assert false in let () = match t382_D, t_orig382_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t382_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t382_D.0"; | _ -> assert false in let () = match t383_A, t_orig383_A with - | A (a0), A (b0) -> check_int32 (Stable.Int32_u.to_int32 a0) (Stable.Int32_u.to_int32 b0) ~message:"t383_A.0"; + | A (a0), A (b0) -> check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a0) (Stdlib_upstream_compatible.Int32_u.to_int32 b0) ~message:"t383_A.0"; | _ -> assert false in let () = match t383_B, t_orig383_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t383_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t383_B.0"; | _ -> assert false in let () = match t383_C, t_orig383_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t383_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t383_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t383_C.1"; | _ -> assert false in let () = match t384_A, t_orig384_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t384_A.0"; check_string a1 b1 ~message:"t384_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t384_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t384_A.2"; | _ -> assert false in let () = match t384_B, t_orig384_B with @@ -9218,51 +9218,51 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes in let () = match t385_B, t_orig385_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t385_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t385_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t385_B.1"; | _ -> assert false in let () = match t385_C, t_orig385_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t385_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t385_C.0"; | _ -> assert false in let () = match t386_A, t_orig386_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t386_A.0"; -check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:"t386_A.1"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a1) (Stdlib_upstream_compatible.Int32_u.to_int32 b1) ~message:"t386_A.1"; | _ -> assert false in let () = match t386_B, t_orig386_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t386_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t386_B.0"; | _ -> assert false in let () = match t386_C, t_orig386_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t386_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t386_C.0"; | _ -> assert false in let () = match t386_D, t_orig386_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t386_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t386_D.0"; | _ -> assert false in let () = match t387_A, t_orig387_A with - | A (a0), A (b0) -> check_int64 (Stable.Int64_u.to_int64 a0) (Stable.Int64_u.to_int64 b0) ~message:"t387_A.0"; + | A (a0), A (b0) -> check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 a0) (Stdlib_upstream_compatible.Int64_u.to_int64 b0) ~message:"t387_A.0"; | _ -> assert false in let () = match t387_B, t_orig387_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t387_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t387_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t387_B.1"; | _ -> assert false in let () = match t388_A, t_orig388_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_float a0 b0 ~message:"t388_A.0"; check_string a1 b1 ~message:"t388_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t388_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t388_A.2"; | _ -> assert false in let () = match t388_B, t_orig388_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t388_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t388_B.0"; | _ -> assert false in let () = match t388_C, t_orig388_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t388_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t388_C.0"; | _ -> assert false in let () = match t389_A, t_orig389_A with @@ -9272,16 +9272,16 @@ check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~mes | _ -> assert false in let () = match t389_B, t_orig389_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t389_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t389_B.0"; | _ -> assert false in let () = match t390_A, t_orig390_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t390_A.0"; -check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:"t390_A.1"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a1) (Stdlib_upstream_compatible.Int32_u.to_int32 b1) ~message:"t390_A.1"; in let () = match t391_A, t_orig391_A with - | A (a0), A (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t391_A.0"; + | A (a0), A (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t391_A.0"; | _ -> assert false in let () = match t391_B, t_orig391_B with @@ -9289,26 +9289,26 @@ check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:" | _ -> assert false in let () = match t391_C, t_orig391_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t391_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t391_C.0"; | _ -> assert false in let () = match t391_D, t_orig391_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t391_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t391_D.0"; | _ -> assert false in let () = match t392_A, t_orig392_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t392_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t392_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t392_A.1"; | _ -> assert false in let () = match t392_B, t_orig392_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t392_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t392_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t392_B.1"; | _ -> assert false in let () = match t392_C, t_orig392_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t392_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t392_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t392_C.1"; | _ -> assert false in let () = match t393_A, t_orig393_A with @@ -9316,29 +9316,29 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" | _ -> assert false in let () = match t393_B, t_orig393_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t393_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t393_B.0"; | _ -> assert false in let () = match t393_C, t_orig393_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t393_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t393_C.0"; | _ -> assert false in let () = match t393_D, t_orig393_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t393_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t393_D.0"; | _ -> assert false in let () = match t393_E, t_orig393_E with - | E (a0), E (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t393_E.0"; + | E (a0), E (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t393_E.0"; | _ -> assert false in let () = match t394_A, t_orig394_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t394_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t394_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t394_A.1"; | _ -> assert false in let () = match t394_B, t_orig394_B with | B (a0,a1), B (b0,b1) -> check_float a0 b0 ~message:"t394_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t394_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t394_B.1"; | _ -> assert false in let () = match t395_A, t_orig395_A with @@ -9351,39 +9351,39 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes | _ -> assert false in let () = match t395_C, t_orig395_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t395_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t395_C.0"; | _ -> assert false in let () = match t396_A, t_orig396_A with - | A (a0), A (b0) -> check_int32 (Stable.Int32_u.to_int32 a0) (Stable.Int32_u.to_int32 b0) ~message:"t396_A.0"; + | A (a0), A (b0) -> check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a0) (Stdlib_upstream_compatible.Int32_u.to_int32 b0) ~message:"t396_A.0"; | _ -> assert false in let () = match t396_B, t_orig396_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t396_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t396_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t396_B.1"; | _ -> assert false in let () = match t396_C, t_orig396_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t396_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t396_C.0"; | _ -> assert false in let () = match t396_D, t_orig396_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t396_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t396_D.0"; | _ -> assert false in let () = match t397_A, t_orig397_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t397_A.0"; check_string a1 b1 ~message:"t397_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t397_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t397_A.2"; | _ -> assert false in let () = match t397_B, t_orig397_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t397_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t397_B.0"; | _ -> assert false in let () = match t397_C, t_orig397_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t397_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t397_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t397_C.1"; | _ -> assert false in let () = match t398_A, t_orig398_A with @@ -9397,43 +9397,43 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes in let () = match t399_A, t_orig399_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t399_A.0"; -check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:"t399_A.1"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a1) (Stdlib_upstream_compatible.Int32_u.to_int32 b1) ~message:"t399_A.1"; | _ -> assert false in let () = match t399_B, t_orig399_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t399_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t399_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t399_B.1"; | _ -> assert false in let () = match t399_C, t_orig399_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t399_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t399_C.0"; | _ -> assert false in let () = match t400_A, t_orig400_A with - | A (a0), A (b0) -> check_int64 (Stable.Int64_u.to_int64 a0) (Stable.Int64_u.to_int64 b0) ~message:"t400_A.0"; + | A (a0), A (b0) -> check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 a0) (Stdlib_upstream_compatible.Int64_u.to_int64 b0) ~message:"t400_A.0"; | _ -> assert false in let () = match t400_B, t_orig400_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t400_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t400_B.0"; | _ -> assert false in let () = match t400_C, t_orig400_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t400_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t400_C.0"; | _ -> assert false in let () = match t400_D, t_orig400_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t400_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t400_D.0"; | _ -> assert false in let () = match t401_A, t_orig401_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_float a0 b0 ~message:"t401_A.0"; check_string a1 b1 ~message:"t401_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t401_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t401_A.2"; | _ -> assert false in let () = match t401_B, t_orig401_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t401_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t401_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t401_B.1"; | _ -> assert false in let () = match t402_A, t_orig402_A with @@ -9443,43 +9443,43 @@ check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~mes | _ -> assert false in let () = match t402_B, t_orig402_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t402_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t402_B.0"; | _ -> assert false in let () = match t402_C, t_orig402_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t402_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t402_C.0"; | _ -> assert false in let () = match t403_A, t_orig403_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t403_A.0"; -check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:"t403_A.1"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a1) (Stdlib_upstream_compatible.Int32_u.to_int32 b1) ~message:"t403_A.1"; | _ -> assert false in let () = match t403_B, t_orig403_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t403_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t403_B.0"; | _ -> assert false in let () = match t404_A, t_orig404_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t404_A.0"; -check_int64 (Stable.Int64_u.to_int64 a1) (Stable.Int64_u.to_int64 b1) ~message:"t404_A.1"; +check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 a1) (Stdlib_upstream_compatible.Int64_u.to_int64 b1) ~message:"t404_A.1"; in let () = match t405_A, t_orig405_A with - | A (a0), A (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t405_A.0"; + | A (a0), A (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t405_A.0"; | _ -> assert false in let () = match t405_B, t_orig405_B with | B (a0,a1), B (b0,b1) -> check_float a0 b0 ~message:"t405_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t405_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t405_B.1"; | _ -> assert false in let () = match t405_C, t_orig405_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t405_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t405_C.0"; | _ -> assert false in let () = match t406_A, t_orig406_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t406_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t406_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t406_A.1"; | _ -> assert false in let () = match t406_B, t_orig406_B with @@ -9487,11 +9487,11 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" | _ -> assert false in let () = match t406_C, t_orig406_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t406_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t406_C.0"; | _ -> assert false in let () = match t406_D, t_orig406_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t406_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t406_D.0"; | _ -> assert false in let () = match t407_A, t_orig407_A with @@ -9500,33 +9500,33 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" in let () = match t407_B, t_orig407_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t407_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t407_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t407_B.1"; | _ -> assert false in let () = match t407_C, t_orig407_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t407_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t407_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t407_C.1"; | _ -> assert false in let () = match t408_A, t_orig408_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t408_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t408_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t408_A.1"; | _ -> assert false in let () = match t408_B, t_orig408_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t408_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t408_B.0"; | _ -> assert false in let () = match t408_C, t_orig408_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t408_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t408_C.0"; | _ -> assert false in let () = match t408_D, t_orig408_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t408_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t408_D.0"; | _ -> assert false in let () = match t408_E, t_orig408_E with - | E (a0), E (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t408_E.0"; + | E (a0), E (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t408_E.0"; | _ -> assert false in let () = match t409_A, t_orig409_A with @@ -9536,11 +9536,11 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes in let () = match t409_B, t_orig409_B with | B (a0,a1), B (b0,b1) -> check_float a0 b0 ~message:"t409_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t409_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t409_B.1"; | _ -> assert false in let () = match t410_A, t_orig410_A with - | A (a0), A (b0) -> check_int32 (Stable.Int32_u.to_int32 a0) (Stable.Int32_u.to_int32 b0) ~message:"t410_A.0"; + | A (a0), A (b0) -> check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a0) (Stdlib_upstream_compatible.Int32_u.to_int32 b0) ~message:"t410_A.0"; | _ -> assert false in let () = match t410_B, t_orig410_B with @@ -9548,26 +9548,26 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" | _ -> assert false in let () = match t410_C, t_orig410_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t410_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t410_C.0"; | _ -> assert false in let () = match t411_A, t_orig411_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t411_A.0"; check_string a1 b1 ~message:"t411_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t411_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t411_A.2"; | _ -> assert false in let () = match t411_B, t_orig411_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t411_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t411_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t411_B.1"; | _ -> assert false in let () = match t411_C, t_orig411_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t411_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t411_C.0"; | _ -> assert false in let () = match t411_D, t_orig411_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t411_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t411_D.0"; | _ -> assert false in let () = match t412_A, t_orig412_A with @@ -9576,17 +9576,17 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes | _ -> assert false in let () = match t412_B, t_orig412_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t412_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t412_B.0"; | _ -> assert false in let () = match t412_C, t_orig412_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t412_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t412_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t412_C.1"; | _ -> assert false in let () = match t413_A, t_orig413_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t413_A.0"; -check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:"t413_A.1"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a1) (Stdlib_upstream_compatible.Int32_u.to_int32 b1) ~message:"t413_A.1"; | _ -> assert false in let () = match t413_B, t_orig413_B with @@ -9594,34 +9594,34 @@ check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:" | _ -> assert false in let () = match t414_A, t_orig414_A with - | A (a0), A (b0) -> check_int64 (Stable.Int64_u.to_int64 a0) (Stable.Int64_u.to_int64 b0) ~message:"t414_A.0"; + | A (a0), A (b0) -> check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 a0) (Stdlib_upstream_compatible.Int64_u.to_int64 b0) ~message:"t414_A.0"; | _ -> assert false in let () = match t414_B, t_orig414_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t414_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t414_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t414_B.1"; | _ -> assert false in let () = match t414_C, t_orig414_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t414_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t414_C.0"; | _ -> assert false in let () = match t415_A, t_orig415_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_float a0 b0 ~message:"t415_A.0"; check_string a1 b1 ~message:"t415_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t415_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t415_A.2"; | _ -> assert false in let () = match t415_B, t_orig415_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t415_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t415_B.0"; | _ -> assert false in let () = match t415_C, t_orig415_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t415_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t415_C.0"; | _ -> assert false in let () = match t415_D, t_orig415_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t415_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t415_D.0"; | _ -> assert false in let () = match t416_A, t_orig416_A with @@ -9632,37 +9632,37 @@ check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~mes in let () = match t416_B, t_orig416_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t416_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t416_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t416_B.1"; | _ -> assert false in let () = match t417_A, t_orig417_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t417_A.0"; -check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:"t417_A.1"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a1) (Stdlib_upstream_compatible.Int32_u.to_int32 b1) ~message:"t417_A.1"; | _ -> assert false in let () = match t417_B, t_orig417_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t417_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t417_B.0"; | _ -> assert false in let () = match t417_C, t_orig417_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t417_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t417_C.0"; | _ -> assert false in let () = match t418_A, t_orig418_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t418_A.0"; -check_int64 (Stable.Int64_u.to_int64 a1) (Stable.Int64_u.to_int64 b1) ~message:"t418_A.1"; +check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 a1) (Stdlib_upstream_compatible.Int64_u.to_int64 b1) ~message:"t418_A.1"; | _ -> assert false in let () = match t418_B, t_orig418_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t418_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t418_B.0"; | _ -> assert false in let () = match t419_A, t_orig419_A with - | A (a0), A (b0) -> check_int (Stable.Nativeint_u.to_int a0) (Stable.Nativeint_u.to_int b0) ~message:"t419_A.0"; + | A (a0), A (b0) -> check_int (Stdlib_upstream_compatible.Nativeint_u.to_int a0) (Stdlib_upstream_compatible.Nativeint_u.to_int b0) ~message:"t419_A.0"; in let () = match t420_A, t_orig420_A with - | A (a0), A (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t420_A.0"; + | A (a0), A (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t420_A.0"; | _ -> assert false in let () = match t420_B, t_orig420_B with @@ -9672,16 +9672,16 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes in let () = match t421_A, t_orig421_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t421_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t421_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t421_A.1"; | _ -> assert false in let () = match t421_B, t_orig421_B with | B (a0,a1), B (b0,b1) -> check_float a0 b0 ~message:"t421_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t421_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t421_B.1"; | _ -> assert false in let () = match t421_C, t_orig421_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t421_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t421_C.0"; | _ -> assert false in let () = match t422_A, t_orig422_A with @@ -9693,26 +9693,26 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" | _ -> assert false in let () = match t422_C, t_orig422_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t422_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t422_C.0"; | _ -> assert false in let () = match t422_D, t_orig422_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t422_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t422_D.0"; | _ -> assert false in let () = match t423_A, t_orig423_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t423_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t423_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t423_A.1"; | _ -> assert false in let () = match t423_B, t_orig423_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t423_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t423_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t423_B.1"; | _ -> assert false in let () = match t423_C, t_orig423_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t423_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t423_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t423_C.1"; | _ -> assert false in let () = match t424_A, t_orig424_A with @@ -9721,34 +9721,34 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes | _ -> assert false in let () = match t424_B, t_orig424_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t424_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t424_B.0"; | _ -> assert false in let () = match t424_C, t_orig424_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t424_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t424_C.0"; | _ -> assert false in let () = match t424_D, t_orig424_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t424_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t424_D.0"; | _ -> assert false in let () = match t424_E, t_orig424_E with - | E (a0), E (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t424_E.0"; + | E (a0), E (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t424_E.0"; | _ -> assert false in let () = match t425_A, t_orig425_A with - | A (a0), A (b0) -> check_int32 (Stable.Int32_u.to_int32 a0) (Stable.Int32_u.to_int32 b0) ~message:"t425_A.0"; + | A (a0), A (b0) -> check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a0) (Stdlib_upstream_compatible.Int32_u.to_int32 b0) ~message:"t425_A.0"; | _ -> assert false in let () = match t425_B, t_orig425_B with | B (a0,a1), B (b0,b1) -> check_float a0 b0 ~message:"t425_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t425_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t425_B.1"; | _ -> assert false in let () = match t426_A, t_orig426_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t426_A.0"; check_string a1 b1 ~message:"t426_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t426_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t426_A.2"; | _ -> assert false in let () = match t426_B, t_orig426_B with @@ -9756,7 +9756,7 @@ check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:" | _ -> assert false in let () = match t426_C, t_orig426_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t426_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t426_C.0"; | _ -> assert false in let () = match t427_A, t_orig427_A with @@ -9766,33 +9766,33 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes in let () = match t427_B, t_orig427_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t427_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t427_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t427_B.1"; | _ -> assert false in let () = match t427_C, t_orig427_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t427_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t427_C.0"; | _ -> assert false in let () = match t427_D, t_orig427_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t427_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t427_D.0"; | _ -> assert false in let () = match t428_A, t_orig428_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t428_A.0"; -check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:"t428_A.1"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a1) (Stdlib_upstream_compatible.Int32_u.to_int32 b1) ~message:"t428_A.1"; | _ -> assert false in let () = match t428_B, t_orig428_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t428_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t428_B.0"; | _ -> assert false in let () = match t428_C, t_orig428_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t428_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t428_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t428_C.1"; | _ -> assert false in let () = match t429_A, t_orig429_A with - | A (a0), A (b0) -> check_int64 (Stable.Int64_u.to_int64 a0) (Stable.Int64_u.to_int64 b0) ~message:"t429_A.0"; + | A (a0), A (b0) -> check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 a0) (Stdlib_upstream_compatible.Int64_u.to_int64 b0) ~message:"t429_A.0"; | _ -> assert false in let () = match t429_B, t_orig429_B with @@ -9802,16 +9802,16 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" let () = match t430_A, t_orig430_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_float a0 b0 ~message:"t430_A.0"; check_string a1 b1 ~message:"t430_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t430_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t430_A.2"; | _ -> assert false in let () = match t430_B, t_orig430_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t430_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t430_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t430_B.1"; | _ -> assert false in let () = match t430_C, t_orig430_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t430_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t430_C.0"; | _ -> assert false in let () = match t431_A, t_orig431_A with @@ -9821,74 +9821,74 @@ check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~mes | _ -> assert false in let () = match t431_B, t_orig431_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t431_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t431_B.0"; | _ -> assert false in let () = match t431_C, t_orig431_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t431_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t431_C.0"; | _ -> assert false in let () = match t431_D, t_orig431_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t431_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t431_D.0"; | _ -> assert false in let () = match t432_A, t_orig432_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t432_A.0"; -check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:"t432_A.1"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a1) (Stdlib_upstream_compatible.Int32_u.to_int32 b1) ~message:"t432_A.1"; | _ -> assert false in let () = match t432_B, t_orig432_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t432_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t432_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t432_B.1"; | _ -> assert false in let () = match t433_A, t_orig433_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t433_A.0"; -check_int64 (Stable.Int64_u.to_int64 a1) (Stable.Int64_u.to_int64 b1) ~message:"t433_A.1"; +check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 a1) (Stdlib_upstream_compatible.Int64_u.to_int64 b1) ~message:"t433_A.1"; | _ -> assert false in let () = match t433_B, t_orig433_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t433_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t433_B.0"; | _ -> assert false in let () = match t433_C, t_orig433_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t433_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t433_C.0"; | _ -> assert false in let () = match t434_A, t_orig434_A with - | A (a0), A (b0) -> check_int (Stable.Nativeint_u.to_int a0) (Stable.Nativeint_u.to_int b0) ~message:"t434_A.0"; + | A (a0), A (b0) -> check_int (Stdlib_upstream_compatible.Nativeint_u.to_int a0) (Stdlib_upstream_compatible.Nativeint_u.to_int b0) ~message:"t434_A.0"; | _ -> assert false in let () = match t434_B, t_orig434_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t434_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t434_B.0"; | _ -> assert false in let () = match t435_A, t_orig435_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_int a0 b0 ~message:"t435_A.0"; check_string a1 b1 ~message:"t435_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t435_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t435_A.2"; in let () = match t436_A, t_orig436_A with - | A (a0), A (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t436_A.0"; + | A (a0), A (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t436_A.0"; | _ -> assert false in let () = match t436_B, t_orig436_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t436_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t436_B.0"; | _ -> assert false in let () = match t436_C, t_orig436_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t436_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t436_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t436_C.1"; | _ -> assert false in let () = match t436_D, t_orig436_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t436_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t436_D.0"; | _ -> assert false in let () = match t437_A, t_orig437_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t437_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t437_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t437_A.1"; | _ -> assert false in let () = match t437_B, t_orig437_B with @@ -9902,16 +9902,16 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes in let () = match t438_B, t_orig438_B with | B (a0,a1), B (b0,b1) -> check_float a0 b0 ~message:"t438_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t438_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t438_B.1"; | _ -> assert false in let () = match t438_C, t_orig438_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t438_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t438_C.0"; | _ -> assert false in let () = match t439_A, t_orig439_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t439_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t439_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t439_A.1"; | _ -> assert false in let () = match t439_B, t_orig439_B with @@ -9919,11 +9919,11 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" | _ -> assert false in let () = match t439_C, t_orig439_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t439_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t439_C.0"; | _ -> assert false in let () = match t439_D, t_orig439_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t439_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t439_D.0"; | _ -> assert false in let () = match t440_A, t_orig440_A with @@ -9933,43 +9933,43 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes in let () = match t440_B, t_orig440_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t440_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t440_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t440_B.1"; | _ -> assert false in let () = match t440_C, t_orig440_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t440_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t440_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t440_C.1"; | _ -> assert false in let () = match t441_A, t_orig441_A with - | A (a0), A (b0) -> check_int32 (Stable.Int32_u.to_int32 a0) (Stable.Int32_u.to_int32 b0) ~message:"t441_A.0"; + | A (a0), A (b0) -> check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a0) (Stdlib_upstream_compatible.Int32_u.to_int32 b0) ~message:"t441_A.0"; | _ -> assert false in let () = match t441_B, t_orig441_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t441_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t441_B.0"; | _ -> assert false in let () = match t441_C, t_orig441_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t441_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t441_C.0"; | _ -> assert false in let () = match t441_D, t_orig441_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t441_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t441_D.0"; | _ -> assert false in let () = match t441_E, t_orig441_E with - | E (a0), E (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t441_E.0"; + | E (a0), E (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t441_E.0"; | _ -> assert false in let () = match t442_A, t_orig442_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t442_A.0"; check_string a1 b1 ~message:"t442_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t442_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t442_A.2"; | _ -> assert false in let () = match t442_B, t_orig442_B with | B (a0,a1), B (b0,b1) -> check_float a0 b0 ~message:"t442_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t442_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t442_B.1"; | _ -> assert false in let () = match t443_A, t_orig443_A with @@ -9982,44 +9982,44 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes | _ -> assert false in let () = match t443_C, t_orig443_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t443_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t443_C.0"; | _ -> assert false in let () = match t444_A, t_orig444_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t444_A.0"; -check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:"t444_A.1"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a1) (Stdlib_upstream_compatible.Int32_u.to_int32 b1) ~message:"t444_A.1"; | _ -> assert false in let () = match t444_B, t_orig444_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t444_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t444_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t444_B.1"; | _ -> assert false in let () = match t444_C, t_orig444_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t444_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t444_C.0"; | _ -> assert false in let () = match t444_D, t_orig444_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t444_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t444_D.0"; | _ -> assert false in let () = match t445_A, t_orig445_A with - | A (a0), A (b0) -> check_int64 (Stable.Int64_u.to_int64 a0) (Stable.Int64_u.to_int64 b0) ~message:"t445_A.0"; + | A (a0), A (b0) -> check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 a0) (Stdlib_upstream_compatible.Int64_u.to_int64 b0) ~message:"t445_A.0"; | _ -> assert false in let () = match t445_B, t_orig445_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t445_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t445_B.0"; | _ -> assert false in let () = match t445_C, t_orig445_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t445_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t445_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t445_C.1"; | _ -> assert false in let () = match t446_A, t_orig446_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_float a0 b0 ~message:"t446_A.0"; check_string a1 b1 ~message:"t446_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t446_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t446_A.2"; | _ -> assert false in let () = match t446_B, t_orig446_B with @@ -10034,60 +10034,60 @@ check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~mes in let () = match t447_B, t_orig447_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t447_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t447_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t447_B.1"; | _ -> assert false in let () = match t447_C, t_orig447_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t447_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t447_C.0"; | _ -> assert false in let () = match t448_A, t_orig448_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t448_A.0"; -check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:"t448_A.1"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a1) (Stdlib_upstream_compatible.Int32_u.to_int32 b1) ~message:"t448_A.1"; | _ -> assert false in let () = match t448_B, t_orig448_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t448_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t448_B.0"; | _ -> assert false in let () = match t448_C, t_orig448_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t448_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t448_C.0"; | _ -> assert false in let () = match t448_D, t_orig448_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t448_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t448_D.0"; | _ -> assert false in let () = match t449_A, t_orig449_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t449_A.0"; -check_int64 (Stable.Int64_u.to_int64 a1) (Stable.Int64_u.to_int64 b1) ~message:"t449_A.1"; +check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 a1) (Stdlib_upstream_compatible.Int64_u.to_int64 b1) ~message:"t449_A.1"; | _ -> assert false in let () = match t449_B, t_orig449_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t449_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t449_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t449_B.1"; | _ -> assert false in let () = match t450_A, t_orig450_A with - | A (a0), A (b0) -> check_int (Stable.Nativeint_u.to_int a0) (Stable.Nativeint_u.to_int b0) ~message:"t450_A.0"; + | A (a0), A (b0) -> check_int (Stdlib_upstream_compatible.Nativeint_u.to_int a0) (Stdlib_upstream_compatible.Nativeint_u.to_int b0) ~message:"t450_A.0"; | _ -> assert false in let () = match t450_B, t_orig450_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t450_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t450_B.0"; | _ -> assert false in let () = match t450_C, t_orig450_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t450_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t450_C.0"; | _ -> assert false in let () = match t451_A, t_orig451_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_int a0 b0 ~message:"t451_A.0"; check_string a1 b1 ~message:"t451_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t451_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t451_A.2"; | _ -> assert false in let () = match t451_B, t_orig451_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t451_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t451_B.0"; | _ -> assert false in let () = match t452_A, t_orig452_A with @@ -10097,42 +10097,42 @@ check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~mes in let () = match t453_A, t_orig453_A with - | A (a0), A (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t453_A.0"; + | A (a0), A (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t453_A.0"; | _ -> assert false in let () = match t453_B, t_orig453_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t453_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t453_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t453_B.1"; | _ -> assert false in let () = match t453_C, t_orig453_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t453_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t453_C.0"; | _ -> assert false in let () = match t453_D, t_orig453_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t453_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t453_D.0"; | _ -> assert false in let () = match t453_E, t_orig453_E with - | E (a0), E (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t453_E.0"; + | E (a0), E (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t453_E.0"; | _ -> assert false in let () = match t454_A, t_orig454_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t454_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t454_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t454_A.1"; | _ -> assert false in let () = match t454_B, t_orig454_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t454_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t454_B.0"; | _ -> assert false in let () = match t454_C, t_orig454_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t454_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t454_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t454_C.1"; | _ -> assert false in let () = match t454_D, t_orig454_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t454_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t454_D.0"; | _ -> assert false in let () = match t455_A, t_orig455_A with @@ -10146,16 +10146,16 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes in let () = match t456_A, t_orig456_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t456_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t456_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t456_A.1"; | _ -> assert false in let () = match t456_B, t_orig456_B with | B (a0,a1), B (b0,b1) -> check_float a0 b0 ~message:"t456_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t456_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t456_B.1"; | _ -> assert false in let () = match t456_C, t_orig456_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t456_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t456_C.0"; | _ -> assert false in let () = match t457_A, t_orig457_A with @@ -10168,47 +10168,47 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes | _ -> assert false in let () = match t457_C, t_orig457_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t457_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t457_C.0"; | _ -> assert false in let () = match t457_D, t_orig457_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t457_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t457_D.0"; | _ -> assert false in let () = match t458_A, t_orig458_A with - | A (a0), A (b0) -> check_int32 (Stable.Int32_u.to_int32 a0) (Stable.Int32_u.to_int32 b0) ~message:"t458_A.0"; + | A (a0), A (b0) -> check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a0) (Stdlib_upstream_compatible.Int32_u.to_int32 b0) ~message:"t458_A.0"; | _ -> assert false in let () = match t458_B, t_orig458_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t458_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t458_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t458_B.1"; | _ -> assert false in let () = match t458_C, t_orig458_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t458_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t458_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t458_C.1"; | _ -> assert false in let () = match t459_A, t_orig459_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t459_A.0"; check_string a1 b1 ~message:"t459_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t459_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t459_A.2"; | _ -> assert false in let () = match t459_B, t_orig459_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t459_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t459_B.0"; | _ -> assert false in let () = match t459_C, t_orig459_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t459_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t459_C.0"; | _ -> assert false in let () = match t459_D, t_orig459_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t459_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t459_D.0"; | _ -> assert false in let () = match t459_E, t_orig459_E with - | E (a0), E (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t459_E.0"; + | E (a0), E (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t459_E.0"; | _ -> assert false in let () = match t460_A, t_orig460_A with @@ -10218,12 +10218,12 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes in let () = match t460_B, t_orig460_B with | B (a0,a1), B (b0,b1) -> check_float a0 b0 ~message:"t460_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t460_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t460_B.1"; | _ -> assert false in let () = match t461_A, t_orig461_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t461_A.0"; -check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:"t461_A.1"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a1) (Stdlib_upstream_compatible.Int32_u.to_int32 b1) ~message:"t461_A.1"; | _ -> assert false in let () = match t461_B, t_orig461_B with @@ -10231,39 +10231,39 @@ check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:" | _ -> assert false in let () = match t461_C, t_orig461_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t461_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t461_C.0"; | _ -> assert false in let () = match t462_A, t_orig462_A with - | A (a0), A (b0) -> check_int64 (Stable.Int64_u.to_int64 a0) (Stable.Int64_u.to_int64 b0) ~message:"t462_A.0"; + | A (a0), A (b0) -> check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 a0) (Stdlib_upstream_compatible.Int64_u.to_int64 b0) ~message:"t462_A.0"; | _ -> assert false in let () = match t462_B, t_orig462_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t462_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t462_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t462_B.1"; | _ -> assert false in let () = match t462_C, t_orig462_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t462_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t462_C.0"; | _ -> assert false in let () = match t462_D, t_orig462_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t462_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t462_D.0"; | _ -> assert false in let () = match t463_A, t_orig463_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_float a0 b0 ~message:"t463_A.0"; check_string a1 b1 ~message:"t463_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t463_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t463_A.2"; | _ -> assert false in let () = match t463_B, t_orig463_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t463_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t463_B.0"; | _ -> assert false in let () = match t463_C, t_orig463_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t463_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t463_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t463_C.1"; | _ -> assert false in let () = match t464_A, t_orig464_A with @@ -10278,56 +10278,56 @@ check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~mes in let () = match t465_A, t_orig465_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t465_A.0"; -check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:"t465_A.1"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a1) (Stdlib_upstream_compatible.Int32_u.to_int32 b1) ~message:"t465_A.1"; | _ -> assert false in let () = match t465_B, t_orig465_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t465_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t465_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t465_B.1"; | _ -> assert false in let () = match t465_C, t_orig465_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t465_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t465_C.0"; | _ -> assert false in let () = match t466_A, t_orig466_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t466_A.0"; -check_int64 (Stable.Int64_u.to_int64 a1) (Stable.Int64_u.to_int64 b1) ~message:"t466_A.1"; +check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 a1) (Stdlib_upstream_compatible.Int64_u.to_int64 b1) ~message:"t466_A.1"; | _ -> assert false in let () = match t466_B, t_orig466_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t466_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t466_B.0"; | _ -> assert false in let () = match t466_C, t_orig466_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t466_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t466_C.0"; | _ -> assert false in let () = match t466_D, t_orig466_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t466_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t466_D.0"; | _ -> assert false in let () = match t467_A, t_orig467_A with - | A (a0), A (b0) -> check_int (Stable.Nativeint_u.to_int a0) (Stable.Nativeint_u.to_int b0) ~message:"t467_A.0"; + | A (a0), A (b0) -> check_int (Stdlib_upstream_compatible.Nativeint_u.to_int a0) (Stdlib_upstream_compatible.Nativeint_u.to_int b0) ~message:"t467_A.0"; | _ -> assert false in let () = match t467_B, t_orig467_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t467_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t467_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t467_B.1"; | _ -> assert false in let () = match t468_A, t_orig468_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_int a0 b0 ~message:"t468_A.0"; check_string a1 b1 ~message:"t468_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t468_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t468_A.2"; | _ -> assert false in let () = match t468_B, t_orig468_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t468_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t468_B.0"; | _ -> assert false in let () = match t468_C, t_orig468_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t468_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t468_C.0"; | _ -> assert false in let () = match t469_A, t_orig469_A with @@ -10337,17 +10337,17 @@ check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~mes | _ -> assert false in let () = match t469_B, t_orig469_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t469_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t469_B.0"; | _ -> assert false in let () = match t470_A, t_orig470_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t470_A.0"; check_string a1 b1 ~message:"t470_A.1"; -check_int32 (Stable.Int32_u.to_int32 a2) (Stable.Int32_u.to_int32 b2) ~message:"t470_A.2"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a2) (Stdlib_upstream_compatible.Int32_u.to_int32 b2) ~message:"t470_A.2"; in let () = match t471_A, t_orig471_A with - | A (a0), A (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t471_A.0"; + | A (a0), A (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t471_A.0"; | _ -> assert false in let () = match t471_B, t_orig471_B with @@ -10356,29 +10356,29 @@ check_int32 (Stable.Int32_u.to_int32 a2) (Stable.Int32_u.to_int32 b2) ~message:" in let () = match t471_C, t_orig471_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t471_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t471_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t471_C.1"; | _ -> assert false in let () = match t472_A, t_orig472_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t472_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t472_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t472_A.1"; | _ -> assert false in let () = match t472_B, t_orig472_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t472_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t472_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t472_B.1"; | _ -> assert false in let () = match t472_C, t_orig472_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t472_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t472_C.0"; | _ -> assert false in let () = match t472_D, t_orig472_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t472_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t472_D.0"; | _ -> assert false in let () = match t472_E, t_orig472_E with - | E (a0), E (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t472_E.0"; + | E (a0), E (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t472_E.0"; | _ -> assert false in let () = match t473_A, t_orig473_A with @@ -10386,21 +10386,21 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" | _ -> assert false in let () = match t473_B, t_orig473_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t473_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t473_B.0"; | _ -> assert false in let () = match t473_C, t_orig473_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t473_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t473_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t473_C.1"; | _ -> assert false in let () = match t473_D, t_orig473_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t473_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t473_D.0"; | _ -> assert false in let () = match t474_A, t_orig474_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t474_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t474_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t474_A.1"; | _ -> assert false in let () = match t474_B, t_orig474_B with @@ -10415,15 +10415,15 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes in let () = match t475_B, t_orig475_B with | B (a0,a1), B (b0,b1) -> check_float a0 b0 ~message:"t475_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t475_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t475_B.1"; | _ -> assert false in let () = match t475_C, t_orig475_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t475_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t475_C.0"; | _ -> assert false in let () = match t476_A, t_orig476_A with - | A (a0), A (b0) -> check_int32 (Stable.Int32_u.to_int32 a0) (Stable.Int32_u.to_int32 b0) ~message:"t476_A.0"; + | A (a0), A (b0) -> check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a0) (Stdlib_upstream_compatible.Int32_u.to_int32 b0) ~message:"t476_A.0"; | _ -> assert false in let () = match t476_B, t_orig476_B with @@ -10431,27 +10431,27 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" | _ -> assert false in let () = match t476_C, t_orig476_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t476_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t476_C.0"; | _ -> assert false in let () = match t476_D, t_orig476_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t476_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t476_D.0"; | _ -> assert false in let () = match t477_A, t_orig477_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t477_A.0"; check_string a1 b1 ~message:"t477_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t477_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t477_A.2"; | _ -> assert false in let () = match t477_B, t_orig477_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t477_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t477_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t477_B.1"; | _ -> assert false in let () = match t477_C, t_orig477_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t477_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t477_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t477_C.1"; | _ -> assert false in let () = match t478_A, t_orig478_A with @@ -10460,33 +10460,33 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes | _ -> assert false in let () = match t478_B, t_orig478_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t478_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t478_B.0"; | _ -> assert false in let () = match t478_C, t_orig478_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t478_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t478_C.0"; | _ -> assert false in let () = match t478_D, t_orig478_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t478_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t478_D.0"; | _ -> assert false in let () = match t478_E, t_orig478_E with - | E (a0), E (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t478_E.0"; + | E (a0), E (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t478_E.0"; | _ -> assert false in let () = match t479_A, t_orig479_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t479_A.0"; -check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:"t479_A.1"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a1) (Stdlib_upstream_compatible.Int32_u.to_int32 b1) ~message:"t479_A.1"; | _ -> assert false in let () = match t479_B, t_orig479_B with | B (a0,a1), B (b0,b1) -> check_float a0 b0 ~message:"t479_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t479_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t479_B.1"; | _ -> assert false in let () = match t480_A, t_orig480_A with - | A (a0), A (b0) -> check_int64 (Stable.Int64_u.to_int64 a0) (Stable.Int64_u.to_int64 b0) ~message:"t480_A.0"; + | A (a0), A (b0) -> check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 a0) (Stdlib_upstream_compatible.Int64_u.to_int64 b0) ~message:"t480_A.0"; | _ -> assert false in let () = match t480_B, t_orig480_B with @@ -10494,26 +10494,26 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" | _ -> assert false in let () = match t480_C, t_orig480_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t480_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t480_C.0"; | _ -> assert false in let () = match t481_A, t_orig481_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_float a0 b0 ~message:"t481_A.0"; check_string a1 b1 ~message:"t481_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t481_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t481_A.2"; | _ -> assert false in let () = match t481_B, t_orig481_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t481_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t481_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t481_B.1"; | _ -> assert false in let () = match t481_C, t_orig481_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t481_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t481_C.0"; | _ -> assert false in let () = match t481_D, t_orig481_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t481_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t481_D.0"; | _ -> assert false in let () = match t482_A, t_orig482_A with @@ -10523,17 +10523,17 @@ check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~mes | _ -> assert false in let () = match t482_B, t_orig482_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t482_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t482_B.0"; | _ -> assert false in let () = match t482_C, t_orig482_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t482_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t482_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t482_C.1"; | _ -> assert false in let () = match t483_A, t_orig483_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t483_A.0"; -check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:"t483_A.1"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a1) (Stdlib_upstream_compatible.Int32_u.to_int32 b1) ~message:"t483_A.1"; | _ -> assert false in let () = match t483_B, t_orig483_B with @@ -10542,43 +10542,43 @@ check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:" in let () = match t484_A, t_orig484_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t484_A.0"; -check_int64 (Stable.Int64_u.to_int64 a1) (Stable.Int64_u.to_int64 b1) ~message:"t484_A.1"; +check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 a1) (Stdlib_upstream_compatible.Int64_u.to_int64 b1) ~message:"t484_A.1"; | _ -> assert false in let () = match t484_B, t_orig484_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t484_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t484_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t484_B.1"; | _ -> assert false in let () = match t484_C, t_orig484_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t484_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t484_C.0"; | _ -> assert false in let () = match t485_A, t_orig485_A with - | A (a0), A (b0) -> check_int (Stable.Nativeint_u.to_int a0) (Stable.Nativeint_u.to_int b0) ~message:"t485_A.0"; + | A (a0), A (b0) -> check_int (Stdlib_upstream_compatible.Nativeint_u.to_int a0) (Stdlib_upstream_compatible.Nativeint_u.to_int b0) ~message:"t485_A.0"; | _ -> assert false in let () = match t485_B, t_orig485_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t485_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t485_B.0"; | _ -> assert false in let () = match t485_C, t_orig485_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t485_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t485_C.0"; | _ -> assert false in let () = match t485_D, t_orig485_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t485_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t485_D.0"; | _ -> assert false in let () = match t486_A, t_orig486_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_int a0 b0 ~message:"t486_A.0"; check_string a1 b1 ~message:"t486_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t486_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t486_A.2"; | _ -> assert false in let () = match t486_B, t_orig486_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t486_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t486_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t486_B.1"; | _ -> assert false in let () = match t487_A, t_orig487_A with @@ -10588,48 +10588,48 @@ check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~mes | _ -> assert false in let () = match t487_B, t_orig487_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t487_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t487_B.0"; | _ -> assert false in let () = match t487_C, t_orig487_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t487_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t487_C.0"; | _ -> assert false in let () = match t488_A, t_orig488_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t488_A.0"; check_string a1 b1 ~message:"t488_A.1"; -check_int32 (Stable.Int32_u.to_int32 a2) (Stable.Int32_u.to_int32 b2) ~message:"t488_A.2"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a2) (Stdlib_upstream_compatible.Int32_u.to_int32 b2) ~message:"t488_A.2"; | _ -> assert false in let () = match t488_B, t_orig488_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t488_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t488_B.0"; | _ -> assert false in let () = match t489_A, t_orig489_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t489_A.0"; -check_int64 (Stable.Int64_u.to_int64 a1) (Stable.Int64_u.to_int64 b1) ~message:"t489_A.1"; +check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 a1) (Stdlib_upstream_compatible.Int64_u.to_int64 b1) ~message:"t489_A.1"; in let () = match t490_A, t_orig490_A with - | A (a0), A (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t490_A.0"; + | A (a0), A (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t490_A.0"; | _ -> assert false in let () = match t490_B, t_orig490_B with | B (a0,a1), B (b0,b1) -> check_float a0 b0 ~message:"t490_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t490_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t490_B.1"; | _ -> assert false in let () = match t490_C, t_orig490_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t490_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t490_C.0"; | _ -> assert false in let () = match t490_D, t_orig490_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t490_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t490_D.0"; | _ -> assert false in let () = match t491_A, t_orig491_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t491_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t491_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t491_A.1"; | _ -> assert false in let () = match t491_B, t_orig491_B with @@ -10638,7 +10638,7 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" in let () = match t491_C, t_orig491_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t491_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t491_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t491_C.1"; | _ -> assert false in let () = match t492_A, t_orig492_A with @@ -10647,37 +10647,37 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" in let () = match t492_B, t_orig492_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t492_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t492_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t492_B.1"; | _ -> assert false in let () = match t492_C, t_orig492_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t492_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t492_C.0"; | _ -> assert false in let () = match t492_D, t_orig492_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t492_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t492_D.0"; | _ -> assert false in let () = match t492_E, t_orig492_E with - | E (a0), E (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t492_E.0"; + | E (a0), E (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t492_E.0"; | _ -> assert false in let () = match t493_A, t_orig493_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t493_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t493_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t493_A.1"; | _ -> assert false in let () = match t493_B, t_orig493_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t493_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t493_B.0"; | _ -> assert false in let () = match t493_C, t_orig493_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t493_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t493_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t493_C.1"; | _ -> assert false in let () = match t493_D, t_orig493_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t493_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t493_D.0"; | _ -> assert false in let () = match t494_A, t_orig494_A with @@ -10691,22 +10691,22 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes | _ -> assert false in let () = match t495_A, t_orig495_A with - | A (a0), A (b0) -> check_int32 (Stable.Int32_u.to_int32 a0) (Stable.Int32_u.to_int32 b0) ~message:"t495_A.0"; + | A (a0), A (b0) -> check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a0) (Stdlib_upstream_compatible.Int32_u.to_int32 b0) ~message:"t495_A.0"; | _ -> assert false in let () = match t495_B, t_orig495_B with | B (a0,a1), B (b0,b1) -> check_float a0 b0 ~message:"t495_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t495_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t495_B.1"; | _ -> assert false in let () = match t495_C, t_orig495_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t495_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t495_C.0"; | _ -> assert false in let () = match t496_A, t_orig496_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t496_A.0"; check_string a1 b1 ~message:"t496_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t496_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t496_A.2"; | _ -> assert false in let () = match t496_B, t_orig496_B with @@ -10714,11 +10714,11 @@ check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:" | _ -> assert false in let () = match t496_C, t_orig496_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t496_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t496_C.0"; | _ -> assert false in let () = match t496_D, t_orig496_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t496_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t496_D.0"; | _ -> assert false in let () = match t497_A, t_orig497_A with @@ -10728,48 +10728,48 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes in let () = match t497_B, t_orig497_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t497_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t497_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t497_B.1"; | _ -> assert false in let () = match t497_C, t_orig497_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t497_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t497_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t497_C.1"; | _ -> assert false in let () = match t498_A, t_orig498_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t498_A.0"; -check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:"t498_A.1"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a1) (Stdlib_upstream_compatible.Int32_u.to_int32 b1) ~message:"t498_A.1"; | _ -> assert false in let () = match t498_B, t_orig498_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t498_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t498_B.0"; | _ -> assert false in let () = match t498_C, t_orig498_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t498_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t498_C.0"; | _ -> assert false in let () = match t498_D, t_orig498_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t498_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t498_D.0"; | _ -> assert false in let () = match t498_E, t_orig498_E with - | E (a0), E (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t498_E.0"; + | E (a0), E (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t498_E.0"; | _ -> assert false in let () = match t499_A, t_orig499_A with - | A (a0), A (b0) -> check_int64 (Stable.Int64_u.to_int64 a0) (Stable.Int64_u.to_int64 b0) ~message:"t499_A.0"; + | A (a0), A (b0) -> check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 a0) (Stdlib_upstream_compatible.Int64_u.to_int64 b0) ~message:"t499_A.0"; | _ -> assert false in let () = match t499_B, t_orig499_B with | B (a0,a1), B (b0,b1) -> check_float a0 b0 ~message:"t499_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t499_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t499_B.1"; | _ -> assert false in let () = match t500_A, t_orig500_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_float a0 b0 ~message:"t500_A.0"; check_string a1 b1 ~message:"t500_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t500_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t500_A.2"; | _ -> assert false in let () = match t500_B, t_orig500_B with @@ -10777,7 +10777,7 @@ check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:" | _ -> assert false in let () = match t500_C, t_orig500_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t500_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t500_C.0"; | _ -> assert false in let () = match t501_A, t_orig501_A with @@ -10788,34 +10788,34 @@ check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~mes in let () = match t501_B, t_orig501_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t501_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t501_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t501_B.1"; | _ -> assert false in let () = match t501_C, t_orig501_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t501_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t501_C.0"; | _ -> assert false in let () = match t501_D, t_orig501_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t501_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t501_D.0"; | _ -> assert false in let () = match t502_A, t_orig502_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t502_A.0"; -check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:"t502_A.1"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a1) (Stdlib_upstream_compatible.Int32_u.to_int32 b1) ~message:"t502_A.1"; | _ -> assert false in let () = match t502_B, t_orig502_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t502_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t502_B.0"; | _ -> assert false in let () = match t502_C, t_orig502_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t502_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t502_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t502_C.1"; | _ -> assert false in let () = match t503_A, t_orig503_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t503_A.0"; -check_int64 (Stable.Int64_u.to_int64 a1) (Stable.Int64_u.to_int64 b1) ~message:"t503_A.1"; +check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 a1) (Stdlib_upstream_compatible.Int64_u.to_int64 b1) ~message:"t503_A.1"; | _ -> assert false in let () = match t503_B, t_orig503_B with @@ -10823,34 +10823,34 @@ check_int64 (Stable.Int64_u.to_int64 a1) (Stable.Int64_u.to_int64 b1) ~message:" | _ -> assert false in let () = match t504_A, t_orig504_A with - | A (a0), A (b0) -> check_int (Stable.Nativeint_u.to_int a0) (Stable.Nativeint_u.to_int b0) ~message:"t504_A.0"; + | A (a0), A (b0) -> check_int (Stdlib_upstream_compatible.Nativeint_u.to_int a0) (Stdlib_upstream_compatible.Nativeint_u.to_int b0) ~message:"t504_A.0"; | _ -> assert false in let () = match t504_B, t_orig504_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t504_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t504_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t504_B.1"; | _ -> assert false in let () = match t504_C, t_orig504_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t504_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t504_C.0"; | _ -> assert false in let () = match t505_A, t_orig505_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_int a0 b0 ~message:"t505_A.0"; check_string a1 b1 ~message:"t505_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t505_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t505_A.2"; | _ -> assert false in let () = match t505_B, t_orig505_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t505_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t505_B.0"; | _ -> assert false in let () = match t505_C, t_orig505_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t505_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t505_C.0"; | _ -> assert false in let () = match t505_D, t_orig505_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t505_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t505_D.0"; | _ -> assert false in let () = match t506_A, t_orig506_A with @@ -10861,39 +10861,39 @@ check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~mes in let () = match t506_B, t_orig506_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t506_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t506_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t506_B.1"; | _ -> assert false in let () = match t507_A, t_orig507_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t507_A.0"; check_string a1 b1 ~message:"t507_A.1"; -check_int32 (Stable.Int32_u.to_int32 a2) (Stable.Int32_u.to_int32 b2) ~message:"t507_A.2"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a2) (Stdlib_upstream_compatible.Int32_u.to_int32 b2) ~message:"t507_A.2"; | _ -> assert false in let () = match t507_B, t_orig507_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t507_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t507_B.0"; | _ -> assert false in let () = match t507_C, t_orig507_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t507_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t507_C.0"; | _ -> assert false in let () = match t508_A, t_orig508_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t508_A.0"; -check_int64 (Stable.Int64_u.to_int64 a1) (Stable.Int64_u.to_int64 b1) ~message:"t508_A.1"; +check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 a1) (Stdlib_upstream_compatible.Int64_u.to_int64 b1) ~message:"t508_A.1"; | _ -> assert false in let () = match t508_B, t_orig508_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t508_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t508_B.0"; | _ -> assert false in let () = match t509_A, t_orig509_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t509_A.0"; -check_int (Stable.Nativeint_u.to_int a1) (Stable.Nativeint_u.to_int b1) ~message:"t509_A.1"; +check_int (Stdlib_upstream_compatible.Nativeint_u.to_int a1) (Stdlib_upstream_compatible.Nativeint_u.to_int b1) ~message:"t509_A.1"; in let () = match t510_A, t_orig510_A with - | A (a0), A (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t510_A.0"; + | A (a0), A (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t510_A.0"; | _ -> assert false in let () = match t510_B, t_orig510_B with @@ -10902,25 +10902,25 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes | _ -> assert false in let () = match t510_C, t_orig510_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t510_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t510_C.0"; | _ -> assert false in let () = match t511_A, t_orig511_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t511_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t511_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t511_A.1"; | _ -> assert false in let () = match t511_B, t_orig511_B with | B (a0,a1), B (b0,b1) -> check_float a0 b0 ~message:"t511_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t511_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t511_B.1"; | _ -> assert false in let () = match t511_C, t_orig511_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t511_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t511_C.0"; | _ -> assert false in let () = match t511_D, t_orig511_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t511_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t511_D.0"; | _ -> assert false in let () = match t512_A, t_orig512_A with @@ -10933,29 +10933,29 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" in let () = match t512_C, t_orig512_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t512_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t512_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t512_C.1"; | _ -> assert false in let () = match t513_A, t_orig513_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t513_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t513_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t513_A.1"; | _ -> assert false in let () = match t513_B, t_orig513_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t513_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t513_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t513_B.1"; | _ -> assert false in let () = match t513_C, t_orig513_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t513_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t513_C.0"; | _ -> assert false in let () = match t513_D, t_orig513_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t513_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t513_D.0"; | _ -> assert false in let () = match t513_E, t_orig513_E with - | E (a0), E (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t513_E.0"; + | E (a0), E (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t513_E.0"; | _ -> assert false in let () = match t514_A, t_orig514_A with @@ -10964,20 +10964,20 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes | _ -> assert false in let () = match t514_B, t_orig514_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t514_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t514_B.0"; | _ -> assert false in let () = match t514_C, t_orig514_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t514_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t514_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t514_C.1"; | _ -> assert false in let () = match t514_D, t_orig514_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t514_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t514_D.0"; | _ -> assert false in let () = match t515_A, t_orig515_A with - | A (a0), A (b0) -> check_int32 (Stable.Int32_u.to_int32 a0) (Stable.Int32_u.to_int32 b0) ~message:"t515_A.0"; + | A (a0), A (b0) -> check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a0) (Stdlib_upstream_compatible.Int32_u.to_int32 b0) ~message:"t515_A.0"; | _ -> assert false in let () = match t515_B, t_orig515_B with @@ -10988,16 +10988,16 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes let () = match t516_A, t_orig516_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t516_A.0"; check_string a1 b1 ~message:"t516_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t516_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t516_A.2"; | _ -> assert false in let () = match t516_B, t_orig516_B with | B (a0,a1), B (b0,b1) -> check_float a0 b0 ~message:"t516_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t516_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t516_B.1"; | _ -> assert false in let () = match t516_C, t_orig516_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t516_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t516_C.0"; | _ -> assert false in let () = match t517_A, t_orig517_A with @@ -11010,57 +11010,57 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes | _ -> assert false in let () = match t517_C, t_orig517_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t517_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t517_C.0"; | _ -> assert false in let () = match t517_D, t_orig517_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t517_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t517_D.0"; | _ -> assert false in let () = match t518_A, t_orig518_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t518_A.0"; -check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:"t518_A.1"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a1) (Stdlib_upstream_compatible.Int32_u.to_int32 b1) ~message:"t518_A.1"; | _ -> assert false in let () = match t518_B, t_orig518_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t518_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t518_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t518_B.1"; | _ -> assert false in let () = match t518_C, t_orig518_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t518_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t518_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t518_C.1"; | _ -> assert false in let () = match t519_A, t_orig519_A with - | A (a0), A (b0) -> check_int64 (Stable.Int64_u.to_int64 a0) (Stable.Int64_u.to_int64 b0) ~message:"t519_A.0"; + | A (a0), A (b0) -> check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 a0) (Stdlib_upstream_compatible.Int64_u.to_int64 b0) ~message:"t519_A.0"; | _ -> assert false in let () = match t519_B, t_orig519_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t519_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t519_B.0"; | _ -> assert false in let () = match t519_C, t_orig519_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t519_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t519_C.0"; | _ -> assert false in let () = match t519_D, t_orig519_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t519_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t519_D.0"; | _ -> assert false in let () = match t519_E, t_orig519_E with - | E (a0), E (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t519_E.0"; + | E (a0), E (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t519_E.0"; | _ -> assert false in let () = match t520_A, t_orig520_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_float a0 b0 ~message:"t520_A.0"; check_string a1 b1 ~message:"t520_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t520_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t520_A.2"; | _ -> assert false in let () = match t520_B, t_orig520_B with | B (a0,a1), B (b0,b1) -> check_float a0 b0 ~message:"t520_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t520_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t520_B.1"; | _ -> assert false in let () = match t521_A, t_orig521_A with @@ -11074,43 +11074,43 @@ check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~mes | _ -> assert false in let () = match t521_C, t_orig521_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t521_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t521_C.0"; | _ -> assert false in let () = match t522_A, t_orig522_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t522_A.0"; -check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:"t522_A.1"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a1) (Stdlib_upstream_compatible.Int32_u.to_int32 b1) ~message:"t522_A.1"; | _ -> assert false in let () = match t522_B, t_orig522_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t522_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t522_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t522_B.1"; | _ -> assert false in let () = match t522_C, t_orig522_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t522_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t522_C.0"; | _ -> assert false in let () = match t522_D, t_orig522_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t522_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t522_D.0"; | _ -> assert false in let () = match t523_A, t_orig523_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t523_A.0"; -check_int64 (Stable.Int64_u.to_int64 a1) (Stable.Int64_u.to_int64 b1) ~message:"t523_A.1"; +check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 a1) (Stdlib_upstream_compatible.Int64_u.to_int64 b1) ~message:"t523_A.1"; | _ -> assert false in let () = match t523_B, t_orig523_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t523_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t523_B.0"; | _ -> assert false in let () = match t523_C, t_orig523_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t523_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t523_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t523_C.1"; | _ -> assert false in let () = match t524_A, t_orig524_A with - | A (a0), A (b0) -> check_int (Stable.Nativeint_u.to_int a0) (Stable.Nativeint_u.to_int b0) ~message:"t524_A.0"; + | A (a0), A (b0) -> check_int (Stdlib_upstream_compatible.Nativeint_u.to_int a0) (Stdlib_upstream_compatible.Nativeint_u.to_int b0) ~message:"t524_A.0"; | _ -> assert false in let () = match t524_B, t_orig524_B with @@ -11120,16 +11120,16 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" let () = match t525_A, t_orig525_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_int a0 b0 ~message:"t525_A.0"; check_string a1 b1 ~message:"t525_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t525_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t525_A.2"; | _ -> assert false in let () = match t525_B, t_orig525_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t525_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t525_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t525_B.1"; | _ -> assert false in let () = match t525_C, t_orig525_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t525_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t525_C.0"; | _ -> assert false in let () = match t526_A, t_orig526_A with @@ -11139,66 +11139,66 @@ check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~mes | _ -> assert false in let () = match t526_B, t_orig526_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t526_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t526_B.0"; | _ -> assert false in let () = match t526_C, t_orig526_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t526_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t526_C.0"; | _ -> assert false in let () = match t526_D, t_orig526_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t526_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t526_D.0"; | _ -> assert false in let () = match t527_A, t_orig527_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t527_A.0"; check_string a1 b1 ~message:"t527_A.1"; -check_int32 (Stable.Int32_u.to_int32 a2) (Stable.Int32_u.to_int32 b2) ~message:"t527_A.2"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a2) (Stdlib_upstream_compatible.Int32_u.to_int32 b2) ~message:"t527_A.2"; | _ -> assert false in let () = match t527_B, t_orig527_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t527_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t527_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t527_B.1"; | _ -> assert false in let () = match t528_A, t_orig528_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t528_A.0"; -check_int64 (Stable.Int64_u.to_int64 a1) (Stable.Int64_u.to_int64 b1) ~message:"t528_A.1"; +check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 a1) (Stdlib_upstream_compatible.Int64_u.to_int64 b1) ~message:"t528_A.1"; | _ -> assert false in let () = match t528_B, t_orig528_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t528_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t528_B.0"; | _ -> assert false in let () = match t528_C, t_orig528_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t528_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t528_C.0"; | _ -> assert false in let () = match t529_A, t_orig529_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t529_A.0"; -check_int (Stable.Nativeint_u.to_int a1) (Stable.Nativeint_u.to_int b1) ~message:"t529_A.1"; +check_int (Stdlib_upstream_compatible.Nativeint_u.to_int a1) (Stdlib_upstream_compatible.Nativeint_u.to_int b1) ~message:"t529_A.1"; | _ -> assert false in let () = match t529_B, t_orig529_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t529_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t529_B.0"; | _ -> assert false in let () = match t530_A, t_orig530_A with - | A (a0,a1), A (b0,b1) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t530_A.0"; + | A (a0,a1), A (b0,b1) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t530_A.0"; check_int a1 b1 ~message:"t530_A.1"; in let () = match t531_A, t_orig531_A with - | A (a0), A (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t531_A.0"; + | A (a0), A (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t531_A.0"; | _ -> assert false in let () = match t531_B, t_orig531_B with - | B (a0), B (b0) -> check_int32 (Stable.Int32_u.to_int32 a0) (Stable.Int32_u.to_int32 b0) ~message:"t531_B.0"; + | B (a0), B (b0) -> check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a0) (Stdlib_upstream_compatible.Int32_u.to_int32 b0) ~message:"t531_B.0"; | _ -> assert false in let () = match t532_A, t_orig532_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t532_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t532_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t532_A.1"; | _ -> assert false in let () = match t532_B, t_orig532_B with @@ -11207,7 +11207,7 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes | _ -> assert false in let () = match t532_C, t_orig532_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t532_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t532_C.0"; | _ -> assert false in let () = match t533_A, t_orig533_A with @@ -11216,20 +11216,20 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes in let () = match t533_B, t_orig533_B with | B (a0,a1), B (b0,b1) -> check_float a0 b0 ~message:"t533_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t533_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t533_B.1"; | _ -> assert false in let () = match t533_C, t_orig533_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t533_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t533_C.0"; | _ -> assert false in let () = match t533_D, t_orig533_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t533_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t533_D.0"; | _ -> assert false in let () = match t534_A, t_orig534_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t534_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t534_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t534_A.1"; | _ -> assert false in let () = match t534_B, t_orig534_B with @@ -11238,7 +11238,7 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" in let () = match t534_C, t_orig534_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t534_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t534_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t534_C.1"; | _ -> assert false in let () = match t535_A, t_orig535_A with @@ -11248,42 +11248,42 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes in let () = match t535_B, t_orig535_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t535_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t535_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t535_B.1"; | _ -> assert false in let () = match t535_C, t_orig535_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t535_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t535_C.0"; | _ -> assert false in let () = match t535_D, t_orig535_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t535_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t535_D.0"; | _ -> assert false in let () = match t535_E, t_orig535_E with - | E (a0), E (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t535_E.0"; + | E (a0), E (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t535_E.0"; | _ -> assert false in let () = match t536_A, t_orig536_A with - | A (a0), A (b0) -> check_int32 (Stable.Int32_u.to_int32 a0) (Stable.Int32_u.to_int32 b0) ~message:"t536_A.0"; + | A (a0), A (b0) -> check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a0) (Stdlib_upstream_compatible.Int32_u.to_int32 b0) ~message:"t536_A.0"; | _ -> assert false in let () = match t536_B, t_orig536_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t536_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t536_B.0"; | _ -> assert false in let () = match t536_C, t_orig536_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t536_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t536_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t536_C.1"; | _ -> assert false in let () = match t536_D, t_orig536_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t536_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t536_D.0"; | _ -> assert false in let () = match t537_A, t_orig537_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t537_A.0"; check_string a1 b1 ~message:"t537_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t537_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t537_A.2"; | _ -> assert false in let () = match t537_B, t_orig537_B with @@ -11298,16 +11298,16 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes in let () = match t538_B, t_orig538_B with | B (a0,a1), B (b0,b1) -> check_float a0 b0 ~message:"t538_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t538_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t538_B.1"; | _ -> assert false in let () = match t538_C, t_orig538_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t538_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t538_C.0"; | _ -> assert false in let () = match t539_A, t_orig539_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t539_A.0"; -check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:"t539_A.1"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a1) (Stdlib_upstream_compatible.Int32_u.to_int32 b1) ~message:"t539_A.1"; | _ -> assert false in let () = match t539_B, t_orig539_B with @@ -11315,47 +11315,47 @@ check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:" | _ -> assert false in let () = match t539_C, t_orig539_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t539_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t539_C.0"; | _ -> assert false in let () = match t539_D, t_orig539_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t539_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t539_D.0"; | _ -> assert false in let () = match t540_A, t_orig540_A with - | A (a0), A (b0) -> check_int64 (Stable.Int64_u.to_int64 a0) (Stable.Int64_u.to_int64 b0) ~message:"t540_A.0"; + | A (a0), A (b0) -> check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 a0) (Stdlib_upstream_compatible.Int64_u.to_int64 b0) ~message:"t540_A.0"; | _ -> assert false in let () = match t540_B, t_orig540_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t540_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t540_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t540_B.1"; | _ -> assert false in let () = match t540_C, t_orig540_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t540_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t540_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t540_C.1"; | _ -> assert false in let () = match t541_A, t_orig541_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_float a0 b0 ~message:"t541_A.0"; check_string a1 b1 ~message:"t541_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t541_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t541_A.2"; | _ -> assert false in let () = match t541_B, t_orig541_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t541_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t541_B.0"; | _ -> assert false in let () = match t541_C, t_orig541_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t541_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t541_C.0"; | _ -> assert false in let () = match t541_D, t_orig541_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t541_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t541_D.0"; | _ -> assert false in let () = match t541_E, t_orig541_E with - | E (a0), E (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t541_E.0"; + | E (a0), E (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t541_E.0"; | _ -> assert false in let () = match t542_A, t_orig542_A with @@ -11366,12 +11366,12 @@ check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~mes in let () = match t542_B, t_orig542_B with | B (a0,a1), B (b0,b1) -> check_float a0 b0 ~message:"t542_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t542_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t542_B.1"; | _ -> assert false in let () = match t543_A, t_orig543_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t543_A.0"; -check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:"t543_A.1"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a1) (Stdlib_upstream_compatible.Int32_u.to_int32 b1) ~message:"t543_A.1"; | _ -> assert false in let () = match t543_B, t_orig543_B with @@ -11379,44 +11379,44 @@ check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:" | _ -> assert false in let () = match t543_C, t_orig543_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t543_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t543_C.0"; | _ -> assert false in let () = match t544_A, t_orig544_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t544_A.0"; -check_int64 (Stable.Int64_u.to_int64 a1) (Stable.Int64_u.to_int64 b1) ~message:"t544_A.1"; +check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 a1) (Stdlib_upstream_compatible.Int64_u.to_int64 b1) ~message:"t544_A.1"; | _ -> assert false in let () = match t544_B, t_orig544_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t544_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t544_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t544_B.1"; | _ -> assert false in let () = match t544_C, t_orig544_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t544_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t544_C.0"; | _ -> assert false in let () = match t544_D, t_orig544_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t544_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t544_D.0"; | _ -> assert false in let () = match t545_A, t_orig545_A with - | A (a0), A (b0) -> check_int (Stable.Nativeint_u.to_int a0) (Stable.Nativeint_u.to_int b0) ~message:"t545_A.0"; + | A (a0), A (b0) -> check_int (Stdlib_upstream_compatible.Nativeint_u.to_int a0) (Stdlib_upstream_compatible.Nativeint_u.to_int b0) ~message:"t545_A.0"; | _ -> assert false in let () = match t545_B, t_orig545_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t545_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t545_B.0"; | _ -> assert false in let () = match t545_C, t_orig545_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t545_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t545_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t545_C.1"; | _ -> assert false in let () = match t546_A, t_orig546_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_int a0 b0 ~message:"t546_A.0"; check_string a1 b1 ~message:"t546_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t546_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t546_A.2"; | _ -> assert false in let () = match t546_B, t_orig546_B with @@ -11431,75 +11431,75 @@ check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~mes in let () = match t547_B, t_orig547_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t547_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t547_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t547_B.1"; | _ -> assert false in let () = match t547_C, t_orig547_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t547_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t547_C.0"; | _ -> assert false in let () = match t548_A, t_orig548_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t548_A.0"; check_string a1 b1 ~message:"t548_A.1"; -check_int32 (Stable.Int32_u.to_int32 a2) (Stable.Int32_u.to_int32 b2) ~message:"t548_A.2"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a2) (Stdlib_upstream_compatible.Int32_u.to_int32 b2) ~message:"t548_A.2"; | _ -> assert false in let () = match t548_B, t_orig548_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t548_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t548_B.0"; | _ -> assert false in let () = match t548_C, t_orig548_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t548_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t548_C.0"; | _ -> assert false in let () = match t548_D, t_orig548_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t548_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t548_D.0"; | _ -> assert false in let () = match t549_A, t_orig549_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t549_A.0"; -check_int64 (Stable.Int64_u.to_int64 a1) (Stable.Int64_u.to_int64 b1) ~message:"t549_A.1"; +check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 a1) (Stdlib_upstream_compatible.Int64_u.to_int64 b1) ~message:"t549_A.1"; | _ -> assert false in let () = match t549_B, t_orig549_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t549_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t549_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t549_B.1"; | _ -> assert false in let () = match t550_A, t_orig550_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t550_A.0"; -check_int (Stable.Nativeint_u.to_int a1) (Stable.Nativeint_u.to_int b1) ~message:"t550_A.1"; +check_int (Stdlib_upstream_compatible.Nativeint_u.to_int a1) (Stdlib_upstream_compatible.Nativeint_u.to_int b1) ~message:"t550_A.1"; | _ -> assert false in let () = match t550_B, t_orig550_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t550_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t550_B.0"; | _ -> assert false in let () = match t550_C, t_orig550_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t550_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t550_C.0"; | _ -> assert false in let () = match t551_A, t_orig551_A with - | A (a0,a1), A (b0,b1) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t551_A.0"; + | A (a0,a1), A (b0,b1) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t551_A.0"; check_int a1 b1 ~message:"t551_A.1"; | _ -> assert false in let () = match t551_B, t_orig551_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t551_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t551_B.0"; | _ -> assert false in let () = match t552_A, t_orig552_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t552_A.0"; check_float a1 b1 ~message:"t552_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t552_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t552_A.2"; in let () = match t553_A, t_orig553_A with - | A (a0), A (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t553_A.0"; + | A (a0), A (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t553_A.0"; | _ -> assert false in let () = match t553_B, t_orig553_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t553_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t553_B.0"; | _ -> assert false in let () = match t553_C, t_orig553_C with @@ -11508,11 +11508,11 @@ check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:" in let () = match t554_A, t_orig554_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t554_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t554_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t554_A.1"; | _ -> assert false in let () = match t554_B, t_orig554_B with - | B (a0), B (b0) -> check_int32 (Stable.Int32_u.to_int32 a0) (Stable.Int32_u.to_int32 b0) ~message:"t554_B.0"; + | B (a0), B (b0) -> check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a0) (Stdlib_upstream_compatible.Int32_u.to_int32 b0) ~message:"t554_B.0"; | _ -> assert false in let () = match t555_A, t_orig555_A with @@ -11525,25 +11525,25 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes | _ -> assert false in let () = match t555_C, t_orig555_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t555_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t555_C.0"; | _ -> assert false in let () = match t556_A, t_orig556_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t556_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t556_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t556_A.1"; | _ -> assert false in let () = match t556_B, t_orig556_B with | B (a0,a1), B (b0,b1) -> check_float a0 b0 ~message:"t556_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t556_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t556_B.1"; | _ -> assert false in let () = match t556_C, t_orig556_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t556_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t556_C.0"; | _ -> assert false in let () = match t556_D, t_orig556_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t556_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t556_D.0"; | _ -> assert false in let () = match t557_A, t_orig557_A with @@ -11557,47 +11557,47 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes in let () = match t557_C, t_orig557_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t557_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t557_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t557_C.1"; | _ -> assert false in let () = match t558_A, t_orig558_A with - | A (a0), A (b0) -> check_int32 (Stable.Int32_u.to_int32 a0) (Stable.Int32_u.to_int32 b0) ~message:"t558_A.0"; + | A (a0), A (b0) -> check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a0) (Stdlib_upstream_compatible.Int32_u.to_int32 b0) ~message:"t558_A.0"; | _ -> assert false in let () = match t558_B, t_orig558_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t558_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t558_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t558_B.1"; | _ -> assert false in let () = match t558_C, t_orig558_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t558_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t558_C.0"; | _ -> assert false in let () = match t558_D, t_orig558_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t558_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t558_D.0"; | _ -> assert false in let () = match t558_E, t_orig558_E with - | E (a0), E (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t558_E.0"; + | E (a0), E (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t558_E.0"; | _ -> assert false in let () = match t559_A, t_orig559_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t559_A.0"; check_string a1 b1 ~message:"t559_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t559_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t559_A.2"; | _ -> assert false in let () = match t559_B, t_orig559_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t559_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t559_B.0"; | _ -> assert false in let () = match t559_C, t_orig559_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t559_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t559_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t559_C.1"; | _ -> assert false in let () = match t559_D, t_orig559_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t559_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t559_D.0"; | _ -> assert false in let () = match t560_A, t_orig560_A with @@ -11612,20 +11612,20 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes in let () = match t561_A, t_orig561_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t561_A.0"; -check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:"t561_A.1"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a1) (Stdlib_upstream_compatible.Int32_u.to_int32 b1) ~message:"t561_A.1"; | _ -> assert false in let () = match t561_B, t_orig561_B with | B (a0,a1), B (b0,b1) -> check_float a0 b0 ~message:"t561_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t561_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t561_B.1"; | _ -> assert false in let () = match t561_C, t_orig561_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t561_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t561_C.0"; | _ -> assert false in let () = match t562_A, t_orig562_A with - | A (a0), A (b0) -> check_int64 (Stable.Int64_u.to_int64 a0) (Stable.Int64_u.to_int64 b0) ~message:"t562_A.0"; + | A (a0), A (b0) -> check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 a0) (Stdlib_upstream_compatible.Int64_u.to_int64 b0) ~message:"t562_A.0"; | _ -> assert false in let () = match t562_B, t_orig562_B with @@ -11633,27 +11633,27 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" | _ -> assert false in let () = match t562_C, t_orig562_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t562_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t562_C.0"; | _ -> assert false in let () = match t562_D, t_orig562_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t562_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t562_D.0"; | _ -> assert false in let () = match t563_A, t_orig563_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_float a0 b0 ~message:"t563_A.0"; check_string a1 b1 ~message:"t563_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t563_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t563_A.2"; | _ -> assert false in let () = match t563_B, t_orig563_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t563_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t563_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t563_B.1"; | _ -> assert false in let () = match t563_C, t_orig563_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t563_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t563_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t563_C.1"; | _ -> assert false in let () = match t564_A, t_orig564_A with @@ -11663,34 +11663,34 @@ check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~mes | _ -> assert false in let () = match t564_B, t_orig564_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t564_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t564_B.0"; | _ -> assert false in let () = match t564_C, t_orig564_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t564_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t564_C.0"; | _ -> assert false in let () = match t564_D, t_orig564_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t564_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t564_D.0"; | _ -> assert false in let () = match t564_E, t_orig564_E with - | E (a0), E (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t564_E.0"; + | E (a0), E (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t564_E.0"; | _ -> assert false in let () = match t565_A, t_orig565_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t565_A.0"; -check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:"t565_A.1"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a1) (Stdlib_upstream_compatible.Int32_u.to_int32 b1) ~message:"t565_A.1"; | _ -> assert false in let () = match t565_B, t_orig565_B with | B (a0,a1), B (b0,b1) -> check_float a0 b0 ~message:"t565_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t565_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t565_B.1"; | _ -> assert false in let () = match t566_A, t_orig566_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t566_A.0"; -check_int64 (Stable.Int64_u.to_int64 a1) (Stable.Int64_u.to_int64 b1) ~message:"t566_A.1"; +check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 a1) (Stdlib_upstream_compatible.Int64_u.to_int64 b1) ~message:"t566_A.1"; | _ -> assert false in let () = match t566_B, t_orig566_B with @@ -11698,39 +11698,39 @@ check_int64 (Stable.Int64_u.to_int64 a1) (Stable.Int64_u.to_int64 b1) ~message:" | _ -> assert false in let () = match t566_C, t_orig566_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t566_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t566_C.0"; | _ -> assert false in let () = match t567_A, t_orig567_A with - | A (a0), A (b0) -> check_int (Stable.Nativeint_u.to_int a0) (Stable.Nativeint_u.to_int b0) ~message:"t567_A.0"; + | A (a0), A (b0) -> check_int (Stdlib_upstream_compatible.Nativeint_u.to_int a0) (Stdlib_upstream_compatible.Nativeint_u.to_int b0) ~message:"t567_A.0"; | _ -> assert false in let () = match t567_B, t_orig567_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t567_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t567_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t567_B.1"; | _ -> assert false in let () = match t567_C, t_orig567_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t567_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t567_C.0"; | _ -> assert false in let () = match t567_D, t_orig567_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t567_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t567_D.0"; | _ -> assert false in let () = match t568_A, t_orig568_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_int a0 b0 ~message:"t568_A.0"; check_string a1 b1 ~message:"t568_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t568_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t568_A.2"; | _ -> assert false in let () = match t568_B, t_orig568_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t568_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t568_B.0"; | _ -> assert false in let () = match t568_C, t_orig568_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t568_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t568_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t568_C.1"; | _ -> assert false in let () = match t569_A, t_orig569_A with @@ -11746,66 +11746,66 @@ check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~mes let () = match t570_A, t_orig570_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t570_A.0"; check_string a1 b1 ~message:"t570_A.1"; -check_int32 (Stable.Int32_u.to_int32 a2) (Stable.Int32_u.to_int32 b2) ~message:"t570_A.2"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a2) (Stdlib_upstream_compatible.Int32_u.to_int32 b2) ~message:"t570_A.2"; | _ -> assert false in let () = match t570_B, t_orig570_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t570_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t570_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t570_B.1"; | _ -> assert false in let () = match t570_C, t_orig570_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t570_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t570_C.0"; | _ -> assert false in let () = match t571_A, t_orig571_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t571_A.0"; -check_int64 (Stable.Int64_u.to_int64 a1) (Stable.Int64_u.to_int64 b1) ~message:"t571_A.1"; +check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 a1) (Stdlib_upstream_compatible.Int64_u.to_int64 b1) ~message:"t571_A.1"; | _ -> assert false in let () = match t571_B, t_orig571_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t571_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t571_B.0"; | _ -> assert false in let () = match t571_C, t_orig571_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t571_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t571_C.0"; | _ -> assert false in let () = match t571_D, t_orig571_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t571_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t571_D.0"; | _ -> assert false in let () = match t572_A, t_orig572_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t572_A.0"; -check_int (Stable.Nativeint_u.to_int a1) (Stable.Nativeint_u.to_int b1) ~message:"t572_A.1"; +check_int (Stdlib_upstream_compatible.Nativeint_u.to_int a1) (Stdlib_upstream_compatible.Nativeint_u.to_int b1) ~message:"t572_A.1"; | _ -> assert false in let () = match t572_B, t_orig572_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t572_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t572_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t572_B.1"; | _ -> assert false in let () = match t573_A, t_orig573_A with - | A (a0,a1), A (b0,b1) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t573_A.0"; + | A (a0,a1), A (b0,b1) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t573_A.0"; check_int a1 b1 ~message:"t573_A.1"; | _ -> assert false in let () = match t573_B, t_orig573_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t573_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t573_B.0"; | _ -> assert false in let () = match t573_C, t_orig573_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t573_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t573_C.0"; | _ -> assert false in let () = match t574_A, t_orig574_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t574_A.0"; check_float a1 b1 ~message:"t574_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t574_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t574_A.2"; | _ -> assert false in let () = match t574_B, t_orig574_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t574_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t574_B.0"; | _ -> assert false in let () = match t575_A, t_orig575_A with @@ -11815,30 +11815,30 @@ check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~mes in let () = match t576_A, t_orig576_A with - | A (a0), A (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t576_A.0"; + | A (a0), A (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t576_A.0"; | _ -> assert false in let () = match t576_B, t_orig576_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t576_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t576_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t576_B.1"; | _ -> assert false in let () = match t576_C, t_orig576_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t576_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t576_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t576_C.1"; | _ -> assert false in let () = match t576_D, t_orig576_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t576_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t576_D.0"; | _ -> assert false in let () = match t577_A, t_orig577_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t577_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t577_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t577_A.1"; | _ -> assert false in let () = match t577_B, t_orig577_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t577_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t577_B.0"; | _ -> assert false in let () = match t577_C, t_orig577_C with @@ -11850,12 +11850,12 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" | _ -> assert false in let () = match t578_B, t_orig578_B with - | B (a0), B (b0) -> check_int32 (Stable.Int32_u.to_int32 a0) (Stable.Int32_u.to_int32 b0) ~message:"t578_B.0"; + | B (a0), B (b0) -> check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a0) (Stdlib_upstream_compatible.Int32_u.to_int32 b0) ~message:"t578_B.0"; | _ -> assert false in let () = match t579_A, t_orig579_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t579_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t579_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t579_A.1"; | _ -> assert false in let () = match t579_B, t_orig579_B with @@ -11864,7 +11864,7 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes | _ -> assert false in let () = match t579_C, t_orig579_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t579_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t579_C.0"; | _ -> assert false in let () = match t580_A, t_orig580_A with @@ -11874,19 +11874,19 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes in let () = match t580_B, t_orig580_B with | B (a0,a1), B (b0,b1) -> check_float a0 b0 ~message:"t580_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t580_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t580_B.1"; | _ -> assert false in let () = match t580_C, t_orig580_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t580_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t580_C.0"; | _ -> assert false in let () = match t580_D, t_orig580_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t580_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t580_D.0"; | _ -> assert false in let () = match t581_A, t_orig581_A with - | A (a0), A (b0) -> check_int32 (Stable.Int32_u.to_int32 a0) (Stable.Int32_u.to_int32 b0) ~message:"t581_A.0"; + | A (a0), A (b0) -> check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a0) (Stdlib_upstream_compatible.Int32_u.to_int32 b0) ~message:"t581_A.0"; | _ -> assert false in let () = match t581_B, t_orig581_B with @@ -11895,30 +11895,30 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" in let () = match t581_C, t_orig581_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t581_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t581_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t581_C.1"; | _ -> assert false in let () = match t582_A, t_orig582_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t582_A.0"; check_string a1 b1 ~message:"t582_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t582_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t582_A.2"; | _ -> assert false in let () = match t582_B, t_orig582_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t582_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t582_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t582_B.1"; | _ -> assert false in let () = match t582_C, t_orig582_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t582_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t582_C.0"; | _ -> assert false in let () = match t582_D, t_orig582_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t582_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t582_D.0"; | _ -> assert false in let () = match t582_E, t_orig582_E with - | E (a0), E (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t582_E.0"; + | E (a0), E (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t582_E.0"; | _ -> assert false in let () = match t583_A, t_orig583_A with @@ -11927,21 +11927,21 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes | _ -> assert false in let () = match t583_B, t_orig583_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t583_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t583_B.0"; | _ -> assert false in let () = match t583_C, t_orig583_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t583_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t583_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t583_C.1"; | _ -> assert false in let () = match t583_D, t_orig583_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t583_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t583_D.0"; | _ -> assert false in let () = match t584_A, t_orig584_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t584_A.0"; -check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:"t584_A.1"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a1) (Stdlib_upstream_compatible.Int32_u.to_int32 b1) ~message:"t584_A.1"; | _ -> assert false in let () = match t584_B, t_orig584_B with @@ -11950,22 +11950,22 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes | _ -> assert false in let () = match t585_A, t_orig585_A with - | A (a0), A (b0) -> check_int64 (Stable.Int64_u.to_int64 a0) (Stable.Int64_u.to_int64 b0) ~message:"t585_A.0"; + | A (a0), A (b0) -> check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 a0) (Stdlib_upstream_compatible.Int64_u.to_int64 b0) ~message:"t585_A.0"; | _ -> assert false in let () = match t585_B, t_orig585_B with | B (a0,a1), B (b0,b1) -> check_float a0 b0 ~message:"t585_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t585_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t585_B.1"; | _ -> assert false in let () = match t585_C, t_orig585_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t585_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t585_C.0"; | _ -> assert false in let () = match t586_A, t_orig586_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_float a0 b0 ~message:"t586_A.0"; check_string a1 b1 ~message:"t586_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t586_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t586_A.2"; | _ -> assert false in let () = match t586_B, t_orig586_B with @@ -11973,11 +11973,11 @@ check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:" | _ -> assert false in let () = match t586_C, t_orig586_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t586_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t586_C.0"; | _ -> assert false in let () = match t586_D, t_orig586_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t586_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t586_D.0"; | _ -> assert false in let () = match t587_A, t_orig587_A with @@ -11988,47 +11988,47 @@ check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~mes in let () = match t587_B, t_orig587_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t587_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t587_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t587_B.1"; | _ -> assert false in let () = match t587_C, t_orig587_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t587_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t587_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t587_C.1"; | _ -> assert false in let () = match t588_A, t_orig588_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t588_A.0"; -check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:"t588_A.1"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a1) (Stdlib_upstream_compatible.Int32_u.to_int32 b1) ~message:"t588_A.1"; | _ -> assert false in let () = match t588_B, t_orig588_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t588_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t588_B.0"; | _ -> assert false in let () = match t588_C, t_orig588_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t588_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t588_C.0"; | _ -> assert false in let () = match t588_D, t_orig588_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t588_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t588_D.0"; | _ -> assert false in let () = match t588_E, t_orig588_E with - | E (a0), E (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t588_E.0"; + | E (a0), E (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t588_E.0"; | _ -> assert false in let () = match t589_A, t_orig589_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t589_A.0"; -check_int64 (Stable.Int64_u.to_int64 a1) (Stable.Int64_u.to_int64 b1) ~message:"t589_A.1"; +check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 a1) (Stdlib_upstream_compatible.Int64_u.to_int64 b1) ~message:"t589_A.1"; | _ -> assert false in let () = match t589_B, t_orig589_B with | B (a0,a1), B (b0,b1) -> check_float a0 b0 ~message:"t589_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t589_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t589_B.1"; | _ -> assert false in let () = match t590_A, t_orig590_A with - | A (a0), A (b0) -> check_int (Stable.Nativeint_u.to_int a0) (Stable.Nativeint_u.to_int b0) ~message:"t590_A.0"; + | A (a0), A (b0) -> check_int (Stdlib_upstream_compatible.Nativeint_u.to_int a0) (Stdlib_upstream_compatible.Nativeint_u.to_int b0) ~message:"t590_A.0"; | _ -> assert false in let () = match t590_B, t_orig590_B with @@ -12036,26 +12036,26 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" | _ -> assert false in let () = match t590_C, t_orig590_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t590_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t590_C.0"; | _ -> assert false in let () = match t591_A, t_orig591_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_int a0 b0 ~message:"t591_A.0"; check_string a1 b1 ~message:"t591_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t591_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t591_A.2"; | _ -> assert false in let () = match t591_B, t_orig591_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t591_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t591_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t591_B.1"; | _ -> assert false in let () = match t591_C, t_orig591_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t591_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t591_C.0"; | _ -> assert false in let () = match t591_D, t_orig591_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t591_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t591_D.0"; | _ -> assert false in let () = match t592_A, t_orig592_A with @@ -12065,18 +12065,18 @@ check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~mes | _ -> assert false in let () = match t592_B, t_orig592_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t592_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t592_B.0"; | _ -> assert false in let () = match t592_C, t_orig592_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t592_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t592_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t592_C.1"; | _ -> assert false in let () = match t593_A, t_orig593_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t593_A.0"; check_string a1 b1 ~message:"t593_A.1"; -check_int32 (Stable.Int32_u.to_int32 a2) (Stable.Int32_u.to_int32 b2) ~message:"t593_A.2"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a2) (Stdlib_upstream_compatible.Int32_u.to_int32 b2) ~message:"t593_A.2"; | _ -> assert false in let () = match t593_B, t_orig593_B with @@ -12085,57 +12085,57 @@ check_int32 (Stable.Int32_u.to_int32 a2) (Stable.Int32_u.to_int32 b2) ~message:" in let () = match t594_A, t_orig594_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t594_A.0"; -check_int64 (Stable.Int64_u.to_int64 a1) (Stable.Int64_u.to_int64 b1) ~message:"t594_A.1"; +check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 a1) (Stdlib_upstream_compatible.Int64_u.to_int64 b1) ~message:"t594_A.1"; | _ -> assert false in let () = match t594_B, t_orig594_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t594_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t594_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t594_B.1"; | _ -> assert false in let () = match t594_C, t_orig594_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t594_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t594_C.0"; | _ -> assert false in let () = match t595_A, t_orig595_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t595_A.0"; -check_int (Stable.Nativeint_u.to_int a1) (Stable.Nativeint_u.to_int b1) ~message:"t595_A.1"; +check_int (Stdlib_upstream_compatible.Nativeint_u.to_int a1) (Stdlib_upstream_compatible.Nativeint_u.to_int b1) ~message:"t595_A.1"; | _ -> assert false in let () = match t595_B, t_orig595_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t595_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t595_B.0"; | _ -> assert false in let () = match t595_C, t_orig595_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t595_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t595_C.0"; | _ -> assert false in let () = match t595_D, t_orig595_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t595_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t595_D.0"; | _ -> assert false in let () = match t596_A, t_orig596_A with - | A (a0,a1), A (b0,b1) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t596_A.0"; + | A (a0,a1), A (b0,b1) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t596_A.0"; check_int a1 b1 ~message:"t596_A.1"; | _ -> assert false in let () = match t596_B, t_orig596_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t596_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t596_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t596_B.1"; | _ -> assert false in let () = match t597_A, t_orig597_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t597_A.0"; check_float a1 b1 ~message:"t597_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t597_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t597_A.2"; | _ -> assert false in let () = match t597_B, t_orig597_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t597_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t597_B.0"; | _ -> assert false in let () = match t597_C, t_orig597_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t597_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t597_C.0"; | _ -> assert false in let () = match t598_A, t_orig598_A with @@ -12145,13 +12145,13 @@ check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~mes | _ -> assert false in let () = match t598_B, t_orig598_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t598_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t598_B.0"; | _ -> assert false in let () = match t599_A, t_orig599_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_float a0 b0 ~message:"t599_A.0"; check_string a1 b1 ~message:"t599_A.1"; -check_int32 (Stable.Int32_u.to_int32 a2) (Stable.Int32_u.to_int32 b2) ~message:"t599_A.2"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a2) (Stdlib_upstream_compatible.Int32_u.to_int32 b2) ~message:"t599_A.2"; in print_endline " - Checking [Obj.reachable_words]"; diff --git a/testsuite/tests/mixed-blocks/generated_native_test.ml b/testsuite/tests/mixed-blocks/generated_native_test.ml index d10af8f2d19..d3fe16565a8 100644 --- a/testsuite/tests/mixed-blocks/generated_native_test.ml +++ b/testsuite/tests/mixed-blocks/generated_native_test.ml @@ -1,7 +1,7 @@ (* TEST flags = "-extension layouts_beta -extension small_numbers"; include beta; - include stable; + include stdlib_upstream_compatible; flambda2; native; *) @@ -12,11 +12,11 @@ let create_string () = String.make (Random.int 100) 'a' let create_int () = Random.int 0x3FFF_FFFF let create_float () = Random.float Float.max_float let create_float32 () = Beta.Float32.of_float (Random.float Float.max_float) -let create_float_u () = Stable.Float_u.of_float (create_float ()) +let create_float_u () = Stdlib_upstream_compatible.Float_u.of_float (create_float ()) let create_float32_u () = Beta.Float32_u.of_float32 (create_float32 ()) -let create_int32_u () = Stable.Int32_u.of_int32 (Random.int32 0x7FFF_FFFFl) -let create_int64_u () = Stable.Int64_u.of_int64 (Random.int64 0x7FFF_FFFF_FFFF_FFFFL) -let create_nativeint_u () = Stable.Nativeint_u.of_nativeint (Random.nativeint 0x7FFF_FFFF_FFFF_FFFFn) +let create_int32_u () = Stdlib_upstream_compatible.Int32_u.of_int32 (Random.int32 0x7FFF_FFFFl) +let create_int64_u () = Stdlib_upstream_compatible.Int64_u.of_int64 (Random.int64 0x7FFF_FFFF_FFFF_FFFFL) +let create_nativeint_u () = Stdlib_upstream_compatible.Nativeint_u.of_nativeint (Random.nativeint 0x7FFF_FFFF_FFFF_FFFFn) let check_gen ~equal ~to_string ~message y1 y2 = if equal y1 y2 then () else failwith @@ -1755,60 +1755,60 @@ let t_orig149_B = t149_B;; compare_expect_success t149_B t0; print_endline " - Checking field values"; check_float t0.float0 t_orig0.float0 ~message:"t0.float0"; - check_float (Stable.Float_u.to_float t0.float_u1) (Stable.Float_u.to_float t_orig0.float_u1) ~message:"t0.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t0.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig0.float_u1) ~message:"t0.float_u1"; check_float t1.float0 t_orig1.float0 ~message:"t1.float0"; - check_float (Stable.Float_u.to_float t1.float_u1) (Stable.Float_u.to_float t_orig1.float_u1) ~message:"t1.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t1.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig1.float_u1) ~message:"t1.float_u1"; check_float t2.float0 t_orig2.float0 ~message:"t2.float0"; - check_float (Stable.Float_u.to_float t2.float_u1) (Stable.Float_u.to_float t_orig2.float_u1) ~message:"t2.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t2.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig2.float_u1) ~message:"t2.float_u1"; check_float t3.float0 t_orig3.float0 ~message:"t3.float0"; - check_float (Stable.Float_u.to_float t3.float_u1) (Stable.Float_u.to_float t_orig3.float_u1) ~message:"t3.float_u1"; - check_float (Stable.Float_u.to_float t4.float_u0) (Stable.Float_u.to_float t_orig4.float_u0) ~message:"t4.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t3.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig3.float_u1) ~message:"t3.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t4.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig4.float_u0) ~message:"t4.float_u0"; check_float t4.float1 t_orig4.float1 ~message:"t4.float1"; - check_float (Stable.Float_u.to_float t5.float_u0) (Stable.Float_u.to_float t_orig5.float_u0) ~message:"t5.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t5.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig5.float_u0) ~message:"t5.float_u0"; check_float t5.float1 t_orig5.float1 ~message:"t5.float1"; - check_float (Stable.Float_u.to_float t6.float_u0) (Stable.Float_u.to_float t_orig6.float_u0) ~message:"t6.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t6.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig6.float_u0) ~message:"t6.float_u0"; check_float t6.float1 t_orig6.float1 ~message:"t6.float1"; - check_float (Stable.Float_u.to_float t7.float_u0) (Stable.Float_u.to_float t_orig7.float_u0) ~message:"t7.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t7.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig7.float_u0) ~message:"t7.float_u0"; check_float t7.float1 t_orig7.float1 ~message:"t7.float1"; check_float t8.float0 t_orig8.float0 ~message:"t8.float0"; - check_float (Stable.Float_u.to_float t8.float_u1) (Stable.Float_u.to_float t_orig8.float_u1) ~message:"t8.float_u1"; - check_float (Stable.Float_u.to_float t8.float_u2) (Stable.Float_u.to_float t_orig8.float_u2) ~message:"t8.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t8.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig8.float_u1) ~message:"t8.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t8.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig8.float_u2) ~message:"t8.float_u2"; check_float t9.float0 t_orig9.float0 ~message:"t9.float0"; - check_float (Stable.Float_u.to_float t9.float_u1) (Stable.Float_u.to_float t_orig9.float_u1) ~message:"t9.float_u1"; - check_float (Stable.Float_u.to_float t9.float_u2) (Stable.Float_u.to_float t_orig9.float_u2) ~message:"t9.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t9.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig9.float_u1) ~message:"t9.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t9.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig9.float_u2) ~message:"t9.float_u2"; check_float t10.float0 t_orig10.float0 ~message:"t10.float0"; - check_float (Stable.Float_u.to_float t10.float_u1) (Stable.Float_u.to_float t_orig10.float_u1) ~message:"t10.float_u1"; - check_float (Stable.Float_u.to_float t10.float_u2) (Stable.Float_u.to_float t_orig10.float_u2) ~message:"t10.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t10.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig10.float_u1) ~message:"t10.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t10.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig10.float_u2) ~message:"t10.float_u2"; check_float t11.float0 t_orig11.float0 ~message:"t11.float0"; - check_float (Stable.Float_u.to_float t11.float_u1) (Stable.Float_u.to_float t_orig11.float_u1) ~message:"t11.float_u1"; - check_float (Stable.Float_u.to_float t11.float_u2) (Stable.Float_u.to_float t_orig11.float_u2) ~message:"t11.float_u2"; - check_float (Stable.Float_u.to_float t12.float_u0) (Stable.Float_u.to_float t_orig12.float_u0) ~message:"t12.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t11.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig11.float_u1) ~message:"t11.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t11.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig11.float_u2) ~message:"t11.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t12.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig12.float_u0) ~message:"t12.float_u0"; check_float t12.float1 t_orig12.float1 ~message:"t12.float1"; - check_float (Stable.Float_u.to_float t12.float_u2) (Stable.Float_u.to_float t_orig12.float_u2) ~message:"t12.float_u2"; - check_float (Stable.Float_u.to_float t13.float_u0) (Stable.Float_u.to_float t_orig13.float_u0) ~message:"t13.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t12.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig12.float_u2) ~message:"t12.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t13.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig13.float_u0) ~message:"t13.float_u0"; check_float t13.float1 t_orig13.float1 ~message:"t13.float1"; - check_float (Stable.Float_u.to_float t13.float_u2) (Stable.Float_u.to_float t_orig13.float_u2) ~message:"t13.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t13.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig13.float_u2) ~message:"t13.float_u2"; check_float t14.float0 t_orig14.float0 ~message:"t14.float0"; check_float t14.float1 t_orig14.float1 ~message:"t14.float1"; - check_float (Stable.Float_u.to_float t14.float_u2) (Stable.Float_u.to_float t_orig14.float_u2) ~message:"t14.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t14.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig14.float_u2) ~message:"t14.float_u2"; check_float t15.float0 t_orig15.float0 ~message:"t15.float0"; check_float t15.float1 t_orig15.float1 ~message:"t15.float1"; - check_float (Stable.Float_u.to_float t15.float_u2) (Stable.Float_u.to_float t_orig15.float_u2) ~message:"t15.float_u2"; - check_float (Stable.Float_u.to_float t16.float_u0) (Stable.Float_u.to_float t_orig16.float_u0) ~message:"t16.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t15.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig15.float_u2) ~message:"t15.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t16.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig16.float_u0) ~message:"t16.float_u0"; check_float t16.float1 t_orig16.float1 ~message:"t16.float1"; - check_float (Stable.Float_u.to_float t16.float_u2) (Stable.Float_u.to_float t_orig16.float_u2) ~message:"t16.float_u2"; - check_float (Stable.Float_u.to_float t17.float_u0) (Stable.Float_u.to_float t_orig17.float_u0) ~message:"t17.float_u0"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t16.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig16.float_u2) ~message:"t16.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t17.float_u0) (Stdlib_upstream_compatible.Float_u.to_float t_orig17.float_u0) ~message:"t17.float_u0"; check_float t17.float1 t_orig17.float1 ~message:"t17.float1"; - check_float (Stable.Float_u.to_float t17.float_u2) (Stable.Float_u.to_float t_orig17.float_u2) ~message:"t17.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t17.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig17.float_u2) ~message:"t17.float_u2"; check_string t18.str0 t_orig18.str0 ~message:"t18.str0"; - check_float (Stable.Float_u.to_float t18.float_u1) (Stable.Float_u.to_float t_orig18.float_u1) ~message:"t18.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t18.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig18.float_u1) ~message:"t18.float_u1"; check_string t19.str0 t_orig19.str0 ~message:"t19.str0"; - check_float (Stable.Float_u.to_float t19.float_u1) (Stable.Float_u.to_float t_orig19.float_u1) ~message:"t19.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t19.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig19.float_u1) ~message:"t19.float_u1"; check_string t20.str0 t_orig20.str0 ~message:"t20.str0"; - check_float (Stable.Float_u.to_float t20.float_u1) (Stable.Float_u.to_float t_orig20.float_u1) ~message:"t20.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t20.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig20.float_u1) ~message:"t20.float_u1"; check_float32 (Beta.Float32_u.to_float32 t21.float32_u0) (Beta.Float32_u.to_float32 t_orig21.float32_u0) ~message:"t21.float32_u0"; check_string t22.str0 t_orig22.str0 ~message:"t22.str0"; - check_float (Stable.Float_u.to_float t22.float_u1) (Stable.Float_u.to_float t_orig22.float_u1) ~message:"t22.float_u1"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t22.float_u1) (Stdlib_upstream_compatible.Float_u.to_float t_orig22.float_u1) ~message:"t22.float_u1"; check_string t23.str0 t_orig23.str0 ~message:"t23.str0"; check_float32 (Beta.Float32_u.to_float32 t23.float32_u1) (Beta.Float32_u.to_float32 t_orig23.float32_u1) ~message:"t23.float32_u1"; check_float32 (Beta.Float32_u.to_float32 t24.float32_u0) (Beta.Float32_u.to_float32 t_orig24.float32_u0) ~message:"t24.float32_u0"; @@ -1816,56 +1816,56 @@ let t_orig149_B = t149_B;; check_float32 (Beta.Float32_u.to_float32 t25.float32_u1) (Beta.Float32_u.to_float32 t_orig25.float32_u1) ~message:"t25.float32_u1"; check_string t26.str0 t_orig26.str0 ~message:"t26.str0"; check_float32 (Beta.Float32_u.to_float32 t26.float32_u1) (Beta.Float32_u.to_float32 t_orig26.float32_u1) ~message:"t26.float32_u1"; - check_int32 (Stable.Int32_u.to_int32 t27.i32_0) (Stable.Int32_u.to_int32 t_orig27.i32_0) ~message:"t27.i32_0"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t27.i32_0) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig27.i32_0) ~message:"t27.i32_0"; check_string t28.str0 t_orig28.str0 ~message:"t28.str0"; check_string t28.str1 t_orig28.str1 ~message:"t28.str1"; - check_float (Stable.Float_u.to_float t28.float_u2) (Stable.Float_u.to_float t_orig28.float_u2) ~message:"t28.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t28.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig28.float_u2) ~message:"t28.float_u2"; check_float t29.float0 t_orig29.float0 ~message:"t29.float0"; check_float32 (Beta.Float32_u.to_float32 t29.float32_u1) (Beta.Float32_u.to_float32 t_orig29.float32_u1) ~message:"t29.float32_u1"; check_string t30.str0 t_orig30.str0 ~message:"t30.str0"; check_float32 (Beta.Float32_u.to_float32 t30.float32_u1) (Beta.Float32_u.to_float32 t_orig30.float32_u1) ~message:"t30.float32_u1"; check_string t31.str0 t_orig31.str0 ~message:"t31.str0"; - check_int32 (Stable.Int32_u.to_int32 t31.i32_1) (Stable.Int32_u.to_int32 t_orig31.i32_1) ~message:"t31.i32_1"; - check_int32 (Stable.Int32_u.to_int32 t32.i32_0) (Stable.Int32_u.to_int32 t_orig32.i32_0) ~message:"t32.i32_0"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t31.i32_1) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig31.i32_1) ~message:"t31.i32_1"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t32.i32_0) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig32.i32_0) ~message:"t32.i32_0"; check_string t33.str0 t_orig33.str0 ~message:"t33.str0"; check_string t33.str1 t_orig33.str1 ~message:"t33.str1"; - check_float (Stable.Float_u.to_float t33.float_u2) (Stable.Float_u.to_float t_orig33.float_u2) ~message:"t33.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t33.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig33.float_u2) ~message:"t33.float_u2"; check_string t34.str0 t_orig34.str0 ~message:"t34.str0"; check_string t34.str1 t_orig34.str1 ~message:"t34.str1"; - check_float (Stable.Float_u.to_float t34.float_u2) (Stable.Float_u.to_float t_orig34.float_u2) ~message:"t34.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t34.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig34.float_u2) ~message:"t34.float_u2"; check_float t35.float0 t_orig35.float0 ~message:"t35.float0"; check_float32 (Beta.Float32_u.to_float32 t35.float32_u1) (Beta.Float32_u.to_float32 t_orig35.float32_u1) ~message:"t35.float32_u1"; check_float t36.float0 t_orig36.float0 ~message:"t36.float0"; check_float32 (Beta.Float32_u.to_float32 t36.float32_u1) (Beta.Float32_u.to_float32 t_orig36.float32_u1) ~message:"t36.float32_u1"; check_string t37.str0 t_orig37.str0 ~message:"t37.str0"; - check_int32 (Stable.Int32_u.to_int32 t37.i32_1) (Stable.Int32_u.to_int32 t_orig37.i32_1) ~message:"t37.i32_1"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t37.i32_1) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig37.i32_1) ~message:"t37.i32_1"; check_string t38.str0 t_orig38.str0 ~message:"t38.str0"; - check_int32 (Stable.Int32_u.to_int32 t38.i32_1) (Stable.Int32_u.to_int32 t_orig38.i32_1) ~message:"t38.i32_1"; - check_int64 (Stable.Int64_u.to_int64 t39.i64_0) (Stable.Int64_u.to_int64 t_orig39.i64_0) ~message:"t39.i64_0"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t38.i32_1) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig38.i32_1) ~message:"t38.i32_1"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t39.i64_0) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig39.i64_0) ~message:"t39.i64_0"; check_float t40.float0 t_orig40.float0 ~message:"t40.float0"; check_string t40.str1 t_orig40.str1 ~message:"t40.str1"; - check_float (Stable.Float_u.to_float t40.float_u2) (Stable.Float_u.to_float t_orig40.float_u2) ~message:"t40.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t40.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig40.float_u2) ~message:"t40.float_u2"; check_string t41.str0 t_orig41.str0 ~message:"t41.str0"; check_string t41.str1 t_orig41.str1 ~message:"t41.str1"; - check_float (Stable.Float_u.to_float t41.float_u2) (Stable.Float_u.to_float t_orig41.float_u2) ~message:"t41.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t41.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig41.float_u2) ~message:"t41.float_u2"; check_string t42.str0 t_orig42.str0 ~message:"t42.str0"; check_string t42.str1 t_orig42.str1 ~message:"t42.str1"; check_float32 (Beta.Float32_u.to_float32 t42.float32_u2) (Beta.Float32_u.to_float32 t_orig42.float32_u2) ~message:"t42.float32_u2"; check_float t43.float0 t_orig43.float0 ~message:"t43.float0"; check_float32 (Beta.Float32_u.to_float32 t43.float32_u1) (Beta.Float32_u.to_float32 t_orig43.float32_u1) ~message:"t43.float32_u1"; check_float t44.float0 t_orig44.float0 ~message:"t44.float0"; - check_int32 (Stable.Int32_u.to_int32 t44.i32_1) (Stable.Int32_u.to_int32 t_orig44.i32_1) ~message:"t44.i32_1"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t44.i32_1) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig44.i32_1) ~message:"t44.i32_1"; check_string t45.str0 t_orig45.str0 ~message:"t45.str0"; - check_int32 (Stable.Int32_u.to_int32 t45.i32_1) (Stable.Int32_u.to_int32 t_orig45.i32_1) ~message:"t45.i32_1"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t45.i32_1) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig45.i32_1) ~message:"t45.i32_1"; check_string t46.str0 t_orig46.str0 ~message:"t46.str0"; - check_int64 (Stable.Int64_u.to_int64 t46.i64_1) (Stable.Int64_u.to_int64 t_orig46.i64_1) ~message:"t46.i64_1"; - check_int64 (Stable.Int64_u.to_int64 t47.i64_0) (Stable.Int64_u.to_int64 t_orig47.i64_0) ~message:"t47.i64_0"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t46.i64_1) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig46.i64_1) ~message:"t46.i64_1"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t47.i64_0) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig47.i64_0) ~message:"t47.i64_0"; check_float t48.float0 t_orig48.float0 ~message:"t48.float0"; check_string t48.str1 t_orig48.str1 ~message:"t48.str1"; - check_float (Stable.Float_u.to_float t48.float_u2) (Stable.Float_u.to_float t_orig48.float_u2) ~message:"t48.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t48.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig48.float_u2) ~message:"t48.float_u2"; check_float t49.float0 t_orig49.float0 ~message:"t49.float0"; check_string t49.str1 t_orig49.str1 ~message:"t49.str1"; - check_float (Stable.Float_u.to_float t49.float_u2) (Stable.Float_u.to_float t_orig49.float_u2) ~message:"t49.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t49.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig49.float_u2) ~message:"t49.float_u2"; check_string t50.str0 t_orig50.str0 ~message:"t50.str0"; check_string t50.str1 t_orig50.str1 ~message:"t50.str1"; check_float32 (Beta.Float32_u.to_float32 t50.float32_u2) (Beta.Float32_u.to_float32 t_orig50.float32_u2) ~message:"t50.float32_u2"; @@ -1873,20 +1873,20 @@ let t_orig149_B = t149_B;; check_string t51.str1 t_orig51.str1 ~message:"t51.str1"; check_float32 (Beta.Float32_u.to_float32 t51.float32_u2) (Beta.Float32_u.to_float32 t_orig51.float32_u2) ~message:"t51.float32_u2"; check_float t52.float0 t_orig52.float0 ~message:"t52.float0"; - check_int32 (Stable.Int32_u.to_int32 t52.i32_1) (Stable.Int32_u.to_int32 t_orig52.i32_1) ~message:"t52.i32_1"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t52.i32_1) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig52.i32_1) ~message:"t52.i32_1"; check_float t53.float0 t_orig53.float0 ~message:"t53.float0"; - check_int32 (Stable.Int32_u.to_int32 t53.i32_1) (Stable.Int32_u.to_int32 t_orig53.i32_1) ~message:"t53.i32_1"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t53.i32_1) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig53.i32_1) ~message:"t53.i32_1"; check_string t54.str0 t_orig54.str0 ~message:"t54.str0"; - check_int64 (Stable.Int64_u.to_int64 t54.i64_1) (Stable.Int64_u.to_int64 t_orig54.i64_1) ~message:"t54.i64_1"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t54.i64_1) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig54.i64_1) ~message:"t54.i64_1"; check_string t55.str0 t_orig55.str0 ~message:"t55.str0"; - check_int64 (Stable.Int64_u.to_int64 t55.i64_1) (Stable.Int64_u.to_int64 t_orig55.i64_1) ~message:"t55.i64_1"; - check_int (Stable.Nativeint_u.to_int t56.n0) (Stable.Nativeint_u.to_int t_orig56.n0) ~message:"t56.n0"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t55.i64_1) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig55.i64_1) ~message:"t55.i64_1"; + check_int (Stdlib_upstream_compatible.Nativeint_u.to_int t56.n0) (Stdlib_upstream_compatible.Nativeint_u.to_int t_orig56.n0) ~message:"t56.n0"; check_int t57.imm0 t_orig57.imm0 ~message:"t57.imm0"; check_string t57.str1 t_orig57.str1 ~message:"t57.str1"; - check_float (Stable.Float_u.to_float t57.float_u2) (Stable.Float_u.to_float t_orig57.float_u2) ~message:"t57.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t57.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig57.float_u2) ~message:"t57.float_u2"; check_float t58.float0 t_orig58.float0 ~message:"t58.float0"; check_string t58.str1 t_orig58.str1 ~message:"t58.str1"; - check_float (Stable.Float_u.to_float t58.float_u2) (Stable.Float_u.to_float t_orig58.float_u2) ~message:"t58.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t58.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig58.float_u2) ~message:"t58.float_u2"; check_float t59.float0 t_orig59.float0 ~message:"t59.float0"; check_string t59.str1 t_orig59.str1 ~message:"t59.str1"; check_float32 (Beta.Float32_u.to_float32 t59.float32_u2) (Beta.Float32_u.to_float32 t_orig59.float32_u2) ~message:"t59.float32_u2"; @@ -1895,22 +1895,22 @@ let t_orig149_B = t149_B;; check_float32 (Beta.Float32_u.to_float32 t60.float32_u2) (Beta.Float32_u.to_float32 t_orig60.float32_u2) ~message:"t60.float32_u2"; check_string t61.str0 t_orig61.str0 ~message:"t61.str0"; check_string t61.str1 t_orig61.str1 ~message:"t61.str1"; - check_int32 (Stable.Int32_u.to_int32 t61.i32_2) (Stable.Int32_u.to_int32 t_orig61.i32_2) ~message:"t61.i32_2"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t61.i32_2) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig61.i32_2) ~message:"t61.i32_2"; check_float t62.float0 t_orig62.float0 ~message:"t62.float0"; - check_int32 (Stable.Int32_u.to_int32 t62.i32_1) (Stable.Int32_u.to_int32 t_orig62.i32_1) ~message:"t62.i32_1"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t62.i32_1) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig62.i32_1) ~message:"t62.i32_1"; check_float t63.float0 t_orig63.float0 ~message:"t63.float0"; - check_int64 (Stable.Int64_u.to_int64 t63.i64_1) (Stable.Int64_u.to_int64 t_orig63.i64_1) ~message:"t63.i64_1"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t63.i64_1) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig63.i64_1) ~message:"t63.i64_1"; check_string t64.str0 t_orig64.str0 ~message:"t64.str0"; - check_int64 (Stable.Int64_u.to_int64 t64.i64_1) (Stable.Int64_u.to_int64 t_orig64.i64_1) ~message:"t64.i64_1"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t64.i64_1) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig64.i64_1) ~message:"t64.i64_1"; check_string t65.str0 t_orig65.str0 ~message:"t65.str0"; - check_int (Stable.Nativeint_u.to_int t65.n1) (Stable.Nativeint_u.to_int t_orig65.n1) ~message:"t65.n1"; - check_int (Stable.Nativeint_u.to_int t66.n0) (Stable.Nativeint_u.to_int t_orig66.n0) ~message:"t66.n0"; + check_int (Stdlib_upstream_compatible.Nativeint_u.to_int t65.n1) (Stdlib_upstream_compatible.Nativeint_u.to_int t_orig65.n1) ~message:"t65.n1"; + check_int (Stdlib_upstream_compatible.Nativeint_u.to_int t66.n0) (Stdlib_upstream_compatible.Nativeint_u.to_int t_orig66.n0) ~message:"t66.n0"; check_int t67.imm0 t_orig67.imm0 ~message:"t67.imm0"; check_string t67.str1 t_orig67.str1 ~message:"t67.str1"; - check_float (Stable.Float_u.to_float t67.float_u2) (Stable.Float_u.to_float t_orig67.float_u2) ~message:"t67.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t67.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig67.float_u2) ~message:"t67.float_u2"; check_int t68.imm0 t_orig68.imm0 ~message:"t68.imm0"; check_string t68.str1 t_orig68.str1 ~message:"t68.str1"; - check_float (Stable.Float_u.to_float t68.float_u2) (Stable.Float_u.to_float t_orig68.float_u2) ~message:"t68.float_u2"; + check_float (Stdlib_upstream_compatible.Float_u.to_float t68.float_u2) (Stdlib_upstream_compatible.Float_u.to_float t_orig68.float_u2) ~message:"t68.float_u2"; check_float t69.float0 t_orig69.float0 ~message:"t69.float0"; check_string t69.str1 t_orig69.str1 ~message:"t69.str1"; check_float32 (Beta.Float32_u.to_float32 t69.float32_u2) (Beta.Float32_u.to_float32 t_orig69.float32_u2) ~message:"t69.float32_u2"; @@ -1919,50 +1919,50 @@ let t_orig149_B = t149_B;; check_float32 (Beta.Float32_u.to_float32 t70.float32_u2) (Beta.Float32_u.to_float32 t_orig70.float32_u2) ~message:"t70.float32_u2"; check_string t71.str0 t_orig71.str0 ~message:"t71.str0"; check_string t71.str1 t_orig71.str1 ~message:"t71.str1"; - check_int32 (Stable.Int32_u.to_int32 t71.i32_2) (Stable.Int32_u.to_int32 t_orig71.i32_2) ~message:"t71.i32_2"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t71.i32_2) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig71.i32_2) ~message:"t71.i32_2"; check_string t72.str0 t_orig72.str0 ~message:"t72.str0"; check_string t72.str1 t_orig72.str1 ~message:"t72.str1"; - check_int32 (Stable.Int32_u.to_int32 t72.i32_2) (Stable.Int32_u.to_int32 t_orig72.i32_2) ~message:"t72.i32_2"; + check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 t72.i32_2) (Stdlib_upstream_compatible.Int32_u.to_int32 t_orig72.i32_2) ~message:"t72.i32_2"; check_float t73.float0 t_orig73.float0 ~message:"t73.float0"; - check_int64 (Stable.Int64_u.to_int64 t73.i64_1) (Stable.Int64_u.to_int64 t_orig73.i64_1) ~message:"t73.i64_1"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t73.i64_1) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig73.i64_1) ~message:"t73.i64_1"; check_float t74.float0 t_orig74.float0 ~message:"t74.float0"; - check_int64 (Stable.Int64_u.to_int64 t74.i64_1) (Stable.Int64_u.to_int64 t_orig74.i64_1) ~message:"t74.i64_1"; + check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 t74.i64_1) (Stdlib_upstream_compatible.Int64_u.to_int64 t_orig74.i64_1) ~message:"t74.i64_1"; let () = match t75_A, t_orig75_A with - | A (a0), A (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t75_A.0"; + | A (a0), A (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t75_A.0"; in let () = match t76_A, t_orig76_A with - | A (a0), A (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t76_A.0"; + | A (a0), A (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t76_A.0"; | _ -> assert false in let () = match t76_B, t_orig76_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t76_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t76_B.0"; | _ -> assert false in let () = match t77_A, t_orig77_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t77_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t77_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t77_A.1"; in let () = match t78_A, t_orig78_A with - | A (a0), A (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t78_A.0"; + | A (a0), A (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t78_A.0"; | _ -> assert false in let () = match t78_B, t_orig78_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t78_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t78_B.0"; | _ -> assert false in let () = match t78_C, t_orig78_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t78_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t78_C.0"; | _ -> assert false in let () = match t79_A, t_orig79_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t79_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t79_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t79_A.1"; | _ -> assert false in let () = match t79_B, t_orig79_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t79_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t79_B.0"; | _ -> assert false in let () = match t80_A, t_orig80_A with @@ -1970,25 +1970,25 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" in let () = match t81_A, t_orig81_A with - | A (a0), A (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t81_A.0"; + | A (a0), A (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t81_A.0"; | _ -> assert false in let () = match t81_B, t_orig81_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t81_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t81_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t81_B.1"; | _ -> assert false in let () = match t82_A, t_orig82_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t82_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t82_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t82_A.1"; | _ -> assert false in let () = match t82_B, t_orig82_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t82_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t82_B.0"; | _ -> assert false in let () = match t82_C, t_orig82_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t82_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t82_C.0"; | _ -> assert false in let () = match t83_A, t_orig83_A with @@ -1996,38 +1996,38 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" | _ -> assert false in let () = match t83_B, t_orig83_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t83_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t83_B.0"; | _ -> assert false in let () = match t84_A, t_orig84_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t84_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t84_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t84_A.1"; in let () = match t85_A, t_orig85_A with - | A (a0), A (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t85_A.0"; + | A (a0), A (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t85_A.0"; | _ -> assert false in let () = match t85_B, t_orig85_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t85_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t85_B.0"; | _ -> assert false in let () = match t85_C, t_orig85_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t85_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t85_C.0"; | _ -> assert false in let () = match t85_D, t_orig85_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t85_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t85_D.0"; | _ -> assert false in let () = match t86_A, t_orig86_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t86_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t86_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t86_A.1"; | _ -> assert false in let () = match t86_B, t_orig86_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t86_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t86_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t86_B.1"; | _ -> assert false in let () = match t87_A, t_orig87_A with @@ -2035,20 +2035,20 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" | _ -> assert false in let () = match t87_B, t_orig87_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t87_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t87_B.0"; | _ -> assert false in let () = match t87_C, t_orig87_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t87_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t87_C.0"; | _ -> assert false in let () = match t88_A, t_orig88_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t88_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t88_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t88_A.1"; | _ -> assert false in let () = match t88_B, t_orig88_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t88_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t88_B.0"; | _ -> assert false in let () = match t89_A, t_orig89_A with @@ -2057,33 +2057,33 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes in let () = match t90_A, t_orig90_A with - | A (a0), A (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t90_A.0"; + | A (a0), A (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t90_A.0"; | _ -> assert false in let () = match t90_B, t_orig90_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t90_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t90_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t90_B.1"; | _ -> assert false in let () = match t90_C, t_orig90_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t90_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t90_C.0"; | _ -> assert false in let () = match t91_A, t_orig91_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t91_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t91_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t91_A.1"; | _ -> assert false in let () = match t91_B, t_orig91_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t91_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t91_B.0"; | _ -> assert false in let () = match t91_C, t_orig91_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t91_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t91_C.0"; | _ -> assert false in let () = match t91_D, t_orig91_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t91_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t91_D.0"; | _ -> assert false in let () = match t92_A, t_orig92_A with @@ -2092,20 +2092,20 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" in let () = match t92_B, t_orig92_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t92_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t92_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t92_B.1"; | _ -> assert false in let () = match t93_A, t_orig93_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t93_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t93_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t93_A.1"; | _ -> assert false in let () = match t93_B, t_orig93_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t93_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t93_B.0"; | _ -> assert false in let () = match t93_C, t_orig93_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t93_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t93_C.0"; | _ -> assert false in let () = match t94_A, t_orig94_A with @@ -2114,15 +2114,15 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes | _ -> assert false in let () = match t94_B, t_orig94_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t94_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t94_B.0"; | _ -> assert false in let () = match t95_A, t_orig95_A with - | A (a0), A (b0) -> check_int32 (Stable.Int32_u.to_int32 a0) (Stable.Int32_u.to_int32 b0) ~message:"t95_A.0"; + | A (a0), A (b0) -> check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a0) (Stdlib_upstream_compatible.Int32_u.to_int32 b0) ~message:"t95_A.0"; in let () = match t96_A, t_orig96_A with - | A (a0), A (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t96_A.0"; + | A (a0), A (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t96_A.0"; | _ -> assert false in let () = match t96_B, t_orig96_B with @@ -2131,16 +2131,16 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes in let () = match t97_A, t_orig97_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t97_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t97_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t97_A.1"; | _ -> assert false in let () = match t97_B, t_orig97_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t97_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t97_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t97_B.1"; | _ -> assert false in let () = match t97_C, t_orig97_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t97_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t97_C.0"; | _ -> assert false in let () = match t98_A, t_orig98_A with @@ -2148,25 +2148,25 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" | _ -> assert false in let () = match t98_B, t_orig98_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t98_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t98_B.0"; | _ -> assert false in let () = match t98_C, t_orig98_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t98_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t98_C.0"; | _ -> assert false in let () = match t98_D, t_orig98_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t98_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t98_D.0"; | _ -> assert false in let () = match t99_A, t_orig99_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t99_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t99_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t99_A.1"; | _ -> assert false in let () = match t99_B, t_orig99_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t99_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t99_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t99_B.1"; | _ -> assert false in let () = match t100_A, t_orig100_A with @@ -2175,43 +2175,43 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes | _ -> assert false in let () = match t100_B, t_orig100_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t100_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t100_B.0"; | _ -> assert false in let () = match t100_C, t_orig100_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t100_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t100_C.0"; | _ -> assert false in let () = match t101_A, t_orig101_A with - | A (a0), A (b0) -> check_int32 (Stable.Int32_u.to_int32 a0) (Stable.Int32_u.to_int32 b0) ~message:"t101_A.0"; + | A (a0), A (b0) -> check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a0) (Stdlib_upstream_compatible.Int32_u.to_int32 b0) ~message:"t101_A.0"; | _ -> assert false in let () = match t101_B, t_orig101_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t101_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t101_B.0"; | _ -> assert false in let () = match t102_A, t_orig102_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t102_A.0"; check_string a1 b1 ~message:"t102_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t102_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t102_A.2"; in let () = match t103_A, t_orig103_A with - | A (a0), A (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t103_A.0"; + | A (a0), A (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t103_A.0"; | _ -> assert false in let () = match t103_B, t_orig103_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t103_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t103_B.0"; | _ -> assert false in let () = match t103_C, t_orig103_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t103_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t103_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t103_C.1"; | _ -> assert false in let () = match t104_A, t_orig104_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t104_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t104_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t104_A.1"; | _ -> assert false in let () = match t104_B, t_orig104_B with @@ -2224,28 +2224,28 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" in let () = match t105_B, t_orig105_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t105_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t105_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t105_B.1"; | _ -> assert false in let () = match t105_C, t_orig105_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t105_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t105_C.0"; | _ -> assert false in let () = match t106_A, t_orig106_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t106_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t106_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t106_A.1"; | _ -> assert false in let () = match t106_B, t_orig106_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t106_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t106_B.0"; | _ -> assert false in let () = match t106_C, t_orig106_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t106_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t106_C.0"; | _ -> assert false in let () = match t106_D, t_orig106_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t106_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t106_D.0"; | _ -> assert false in let () = match t107_A, t_orig107_A with @@ -2255,29 +2255,29 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes in let () = match t107_B, t_orig107_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t107_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t107_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t107_B.1"; | _ -> assert false in let () = match t108_A, t_orig108_A with - | A (a0), A (b0) -> check_int32 (Stable.Int32_u.to_int32 a0) (Stable.Int32_u.to_int32 b0) ~message:"t108_A.0"; + | A (a0), A (b0) -> check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a0) (Stdlib_upstream_compatible.Int32_u.to_int32 b0) ~message:"t108_A.0"; | _ -> assert false in let () = match t108_B, t_orig108_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t108_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t108_B.0"; | _ -> assert false in let () = match t108_C, t_orig108_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t108_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t108_C.0"; | _ -> assert false in let () = match t109_A, t_orig109_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t109_A.0"; check_string a1 b1 ~message:"t109_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t109_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t109_A.2"; | _ -> assert false in let () = match t109_B, t_orig109_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t109_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t109_B.0"; | _ -> assert false in let () = match t110_A, t_orig110_A with @@ -2286,34 +2286,34 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes in let () = match t111_A, t_orig111_A with - | A (a0), A (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t111_A.0"; + | A (a0), A (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t111_A.0"; | _ -> assert false in let () = match t111_B, t_orig111_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t111_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t111_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t111_B.1"; | _ -> assert false in let () = match t111_C, t_orig111_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t111_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t111_C.0"; | _ -> assert false in let () = match t111_D, t_orig111_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t111_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t111_D.0"; | _ -> assert false in let () = match t112_A, t_orig112_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t112_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t112_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t112_A.1"; | _ -> assert false in let () = match t112_B, t_orig112_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t112_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t112_B.0"; | _ -> assert false in let () = match t112_C, t_orig112_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t112_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t112_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t112_C.1"; | _ -> assert false in let () = match t113_A, t_orig113_A with @@ -2326,16 +2326,16 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" in let () = match t114_A, t_orig114_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t114_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t114_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t114_A.1"; | _ -> assert false in let () = match t114_B, t_orig114_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t114_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t114_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t114_B.1"; | _ -> assert false in let () = match t114_C, t_orig114_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t114_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t114_C.0"; | _ -> assert false in let () = match t115_A, t_orig115_A with @@ -2344,38 +2344,38 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes | _ -> assert false in let () = match t115_B, t_orig115_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t115_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t115_B.0"; | _ -> assert false in let () = match t115_C, t_orig115_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t115_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t115_C.0"; | _ -> assert false in let () = match t115_D, t_orig115_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t115_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t115_D.0"; | _ -> assert false in let () = match t116_A, t_orig116_A with - | A (a0), A (b0) -> check_int32 (Stable.Int32_u.to_int32 a0) (Stable.Int32_u.to_int32 b0) ~message:"t116_A.0"; + | A (a0), A (b0) -> check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a0) (Stdlib_upstream_compatible.Int32_u.to_int32 b0) ~message:"t116_A.0"; | _ -> assert false in let () = match t116_B, t_orig116_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t116_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t116_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t116_B.1"; | _ -> assert false in let () = match t117_A, t_orig117_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t117_A.0"; check_string a1 b1 ~message:"t117_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t117_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t117_A.2"; | _ -> assert false in let () = match t117_B, t_orig117_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t117_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t117_B.0"; | _ -> assert false in let () = match t117_C, t_orig117_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t117_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t117_C.0"; | _ -> assert false in let () = match t118_A, t_orig118_A with @@ -2384,16 +2384,16 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes | _ -> assert false in let () = match t118_B, t_orig118_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t118_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t118_B.0"; | _ -> assert false in let () = match t119_A, t_orig119_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t119_A.0"; -check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:"t119_A.1"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a1) (Stdlib_upstream_compatible.Int32_u.to_int32 b1) ~message:"t119_A.1"; in let () = match t120_A, t_orig120_A with - | A (a0), A (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t120_A.0"; + | A (a0), A (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t120_A.0"; | _ -> assert false in let () = match t120_B, t_orig120_B with @@ -2401,25 +2401,25 @@ check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:" | _ -> assert false in let () = match t120_C, t_orig120_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t120_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t120_C.0"; | _ -> assert false in let () = match t121_A, t_orig121_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t121_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t121_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t121_A.1"; | _ -> assert false in let () = match t121_B, t_orig121_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t121_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t121_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t121_B.1"; | _ -> assert false in let () = match t121_C, t_orig121_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t121_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t121_C.0"; | _ -> assert false in let () = match t121_D, t_orig121_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t121_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t121_D.0"; | _ -> assert false in let () = match t122_A, t_orig122_A with @@ -2427,17 +2427,17 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" | _ -> assert false in let () = match t122_B, t_orig122_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t122_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t122_B.0"; | _ -> assert false in let () = match t122_C, t_orig122_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t122_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t122_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t122_C.1"; | _ -> assert false in let () = match t123_A, t_orig123_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t123_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t123_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t123_A.1"; | _ -> assert false in let () = match t123_B, t_orig123_B with @@ -2451,38 +2451,38 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes in let () = match t124_B, t_orig124_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t124_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t124_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t124_B.1"; | _ -> assert false in let () = match t124_C, t_orig124_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t124_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t124_C.0"; | _ -> assert false in let () = match t125_A, t_orig125_A with - | A (a0), A (b0) -> check_int32 (Stable.Int32_u.to_int32 a0) (Stable.Int32_u.to_int32 b0) ~message:"t125_A.0"; + | A (a0), A (b0) -> check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a0) (Stdlib_upstream_compatible.Int32_u.to_int32 b0) ~message:"t125_A.0"; | _ -> assert false in let () = match t125_B, t_orig125_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t125_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t125_B.0"; | _ -> assert false in let () = match t125_C, t_orig125_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t125_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t125_C.0"; | _ -> assert false in let () = match t125_D, t_orig125_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t125_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t125_D.0"; | _ -> assert false in let () = match t126_A, t_orig126_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t126_A.0"; check_string a1 b1 ~message:"t126_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t126_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t126_A.2"; | _ -> assert false in let () = match t126_B, t_orig126_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t126_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t126_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t126_B.1"; | _ -> assert false in let () = match t127_A, t_orig127_A with @@ -2491,38 +2491,38 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes | _ -> assert false in let () = match t127_B, t_orig127_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t127_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t127_B.0"; | _ -> assert false in let () = match t127_C, t_orig127_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t127_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t127_C.0"; | _ -> assert false in let () = match t128_A, t_orig128_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t128_A.0"; -check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:"t128_A.1"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a1) (Stdlib_upstream_compatible.Int32_u.to_int32 b1) ~message:"t128_A.1"; | _ -> assert false in let () = match t128_B, t_orig128_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t128_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t128_B.0"; | _ -> assert false in let () = match t129_A, t_orig129_A with - | A (a0), A (b0) -> check_int64 (Stable.Int64_u.to_int64 a0) (Stable.Int64_u.to_int64 b0) ~message:"t129_A.0"; + | A (a0), A (b0) -> check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 a0) (Stdlib_upstream_compatible.Int64_u.to_int64 b0) ~message:"t129_A.0"; in let () = match t130_A, t_orig130_A with - | A (a0), A (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t130_A.0"; + | A (a0), A (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t130_A.0"; | _ -> assert false in let () = match t130_B, t_orig130_B with | B (a0,a1), B (b0,b1) -> check_float a0 b0 ~message:"t130_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t130_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t130_B.1"; | _ -> assert false in let () = match t131_A, t_orig131_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t131_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t131_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t131_A.1"; | _ -> assert false in let () = match t131_B, t_orig131_B with @@ -2530,7 +2530,7 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" | _ -> assert false in let () = match t131_C, t_orig131_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t131_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t131_C.0"; | _ -> assert false in let () = match t132_A, t_orig132_A with @@ -2539,29 +2539,29 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" in let () = match t132_B, t_orig132_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t132_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t132_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t132_B.1"; | _ -> assert false in let () = match t132_C, t_orig132_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t132_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t132_C.0"; | _ -> assert false in let () = match t132_D, t_orig132_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t132_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t132_D.0"; | _ -> assert false in let () = match t133_A, t_orig133_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t133_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t133_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t133_A.1"; | _ -> assert false in let () = match t133_B, t_orig133_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t133_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t133_B.0"; | _ -> assert false in let () = match t133_C, t_orig133_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t133_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t133_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t133_C.1"; | _ -> assert false in let () = match t134_A, t_orig134_A with @@ -2574,34 +2574,34 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes | _ -> assert false in let () = match t135_A, t_orig135_A with - | A (a0), A (b0) -> check_int32 (Stable.Int32_u.to_int32 a0) (Stable.Int32_u.to_int32 b0) ~message:"t135_A.0"; + | A (a0), A (b0) -> check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a0) (Stdlib_upstream_compatible.Int32_u.to_int32 b0) ~message:"t135_A.0"; | _ -> assert false in let () = match t135_B, t_orig135_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t135_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t135_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t135_B.1"; | _ -> assert false in let () = match t135_C, t_orig135_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t135_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t135_C.0"; | _ -> assert false in let () = match t136_A, t_orig136_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t136_A.0"; check_string a1 b1 ~message:"t136_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t136_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t136_A.2"; | _ -> assert false in let () = match t136_B, t_orig136_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t136_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t136_B.0"; | _ -> assert false in let () = match t136_C, t_orig136_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t136_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t136_C.0"; | _ -> assert false in let () = match t136_D, t_orig136_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t136_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t136_D.0"; | _ -> assert false in let () = match t137_A, t_orig137_A with @@ -2611,64 +2611,64 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes in let () = match t137_B, t_orig137_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t137_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t137_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t137_B.1"; | _ -> assert false in let () = match t138_A, t_orig138_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t138_A.0"; -check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:"t138_A.1"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a1) (Stdlib_upstream_compatible.Int32_u.to_int32 b1) ~message:"t138_A.1"; | _ -> assert false in let () = match t138_B, t_orig138_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t138_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t138_B.0"; | _ -> assert false in let () = match t138_C, t_orig138_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t138_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t138_C.0"; | _ -> assert false in let () = match t139_A, t_orig139_A with - | A (a0), A (b0) -> check_int64 (Stable.Int64_u.to_int64 a0) (Stable.Int64_u.to_int64 b0) ~message:"t139_A.0"; + | A (a0), A (b0) -> check_int64 (Stdlib_upstream_compatible.Int64_u.to_int64 a0) (Stdlib_upstream_compatible.Int64_u.to_int64 b0) ~message:"t139_A.0"; | _ -> assert false in let () = match t139_B, t_orig139_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t139_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t139_B.0"; | _ -> assert false in let () = match t140_A, t_orig140_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_float a0 b0 ~message:"t140_A.0"; check_string a1 b1 ~message:"t140_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t140_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t140_A.2"; in let () = match t141_A, t_orig141_A with - | A (a0), A (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t141_A.0"; + | A (a0), A (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t141_A.0"; | _ -> assert false in let () = match t141_B, t_orig141_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t141_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t141_B.0"; | _ -> assert false in let () = match t141_C, t_orig141_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t141_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t141_C.0"; | _ -> assert false in let () = match t141_D, t_orig141_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t141_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t141_D.0"; | _ -> assert false in let () = match t141_E, t_orig141_E with - | E (a0), E (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t141_E.0"; + | E (a0), E (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t141_E.0"; | _ -> assert false in let () = match t142_A, t_orig142_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t142_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t142_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t142_A.1"; | _ -> assert false in let () = match t142_B, t_orig142_B with | B (a0,a1), B (b0,b1) -> check_float a0 b0 ~message:"t142_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t142_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t142_B.1"; | _ -> assert false in let () = match t143_A, t_orig143_A with @@ -2680,25 +2680,25 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" | _ -> assert false in let () = match t143_C, t_orig143_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t143_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t143_C.0"; | _ -> assert false in let () = match t144_A, t_orig144_A with | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t144_A.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t144_A.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t144_A.1"; | _ -> assert false in let () = match t144_B, t_orig144_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t144_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t144_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t144_B.1"; | _ -> assert false in let () = match t144_C, t_orig144_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t144_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t144_C.0"; | _ -> assert false in let () = match t144_D, t_orig144_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t144_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t144_D.0"; | _ -> assert false in let () = match t145_A, t_orig145_A with @@ -2707,16 +2707,16 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes | _ -> assert false in let () = match t145_B, t_orig145_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t145_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t145_B.0"; | _ -> assert false in let () = match t145_C, t_orig145_C with | C (a0,a1), C (b0,b1) -> check_string a0 b0 ~message:"t145_C.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t145_C.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t145_C.1"; | _ -> assert false in let () = match t146_A, t_orig146_A with - | A (a0), A (b0) -> check_int32 (Stable.Int32_u.to_int32 a0) (Stable.Int32_u.to_int32 b0) ~message:"t146_A.0"; + | A (a0), A (b0) -> check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a0) (Stdlib_upstream_compatible.Int32_u.to_int32 b0) ~message:"t146_A.0"; | _ -> assert false in let () = match t146_B, t_orig146_B with @@ -2726,16 +2726,16 @@ check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:" let () = match t147_A, t_orig147_A with | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t147_A.0"; check_string a1 b1 ~message:"t147_A.1"; -check_float (Stable.Float_u.to_float a2) (Stable.Float_u.to_float b2) ~message:"t147_A.2"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a2) (Stdlib_upstream_compatible.Float_u.to_float b2) ~message:"t147_A.2"; | _ -> assert false in let () = match t147_B, t_orig147_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t147_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t147_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t147_B.1"; | _ -> assert false in let () = match t147_C, t_orig147_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t147_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t147_C.0"; | _ -> assert false in let () = match t148_A, t_orig148_A with @@ -2744,25 +2744,25 @@ check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~mes | _ -> assert false in let () = match t148_B, t_orig148_B with - | B (a0), B (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t148_B.0"; + | B (a0), B (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t148_B.0"; | _ -> assert false in let () = match t148_C, t_orig148_C with - | C (a0), C (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t148_C.0"; + | C (a0), C (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t148_C.0"; | _ -> assert false in let () = match t148_D, t_orig148_D with - | D (a0), D (b0) -> check_float (Stable.Float_u.to_float a0) (Stable.Float_u.to_float b0) ~message:"t148_D.0"; + | D (a0), D (b0) -> check_float (Stdlib_upstream_compatible.Float_u.to_float a0) (Stdlib_upstream_compatible.Float_u.to_float b0) ~message:"t148_D.0"; | _ -> assert false in let () = match t149_A, t_orig149_A with | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t149_A.0"; -check_int32 (Stable.Int32_u.to_int32 a1) (Stable.Int32_u.to_int32 b1) ~message:"t149_A.1"; +check_int32 (Stdlib_upstream_compatible.Int32_u.to_int32 a1) (Stdlib_upstream_compatible.Int32_u.to_int32 b1) ~message:"t149_A.1"; | _ -> assert false in let () = match t149_B, t_orig149_B with | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t149_B.0"; -check_float (Stable.Float_u.to_float a1) (Stable.Float_u.to_float b1) ~message:"t149_B.1"; +check_float (Stdlib_upstream_compatible.Float_u.to_float a1) (Stdlib_upstream_compatible.Float_u.to_float b1) ~message:"t149_B.1"; | _ -> assert false in print_endline " - Checking [Obj.reachable_words]"; diff --git a/testsuite/tests/mixed-blocks/test_mixed_blocks.ml b/testsuite/tests/mixed-blocks/test_mixed_blocks.ml index 93d4b774c18..b7650e7a053 100644 --- a/testsuite/tests/mixed-blocks/test_mixed_blocks.ml +++ b/testsuite/tests/mixed-blocks/test_mixed_blocks.ml @@ -1,6 +1,6 @@ (* TEST flambda2; - include stable; + include stdlib_upstream_compatible; { flags = "-extension layouts_beta"; native; @@ -13,10 +13,10 @@ (*****************************************) (* Prelude: Functions on unboxed numbers *) -module Float_u = Stable.Float_u -module Int32_u = Stable.Int32_u -module Int64_u = Stable.Int64_u -module Nativeint_u = Stable.Nativeint_u +module Float_u = Stdlib_upstream_compatible.Float_u +module Int32_u = Stdlib_upstream_compatible.Int32_u +module Int64_u = Stdlib_upstream_compatible.Int64_u +module Nativeint_u = Stdlib_upstream_compatible.Nativeint_u (******************************) (* Test: large mixed blocks *) diff --git a/testsuite/tests/parsetree/source_jane_street.ml b/testsuite/tests/parsetree/source_jane_street.ml index 2c19a0f1746..94e79d1d04b 100644 --- a/testsuite/tests/parsetree/source_jane_street.ml +++ b/testsuite/tests/parsetree/source_jane_street.ml @@ -198,10 +198,10 @@ let matches = (********************) (* Unboxed literals *) -module Float_u = Stable.Float_u -module Int32_u = Stable.Int32_u -module Int64_u = Stable.Int64_u -module Nativeint_u = Stable.Nativeint_u +module Float_u = Stdlib_upstream_compatible.Float_u +module Int32_u = Stdlib_upstream_compatible.Int32_u +module Int64_u = Stdlib_upstream_compatible.Int64_u +module Nativeint_u = Stdlib_upstream_compatible.Nativeint_u let test_float s f = Format.printf "%s: %f\n" s (Float_u.to_float f); Format.print_flush () diff --git a/testsuite/tests/parsetree/test_ppx.ml b/testsuite/tests/parsetree/test_ppx.ml index 9f934143406..a5c1d6d8b28 100644 --- a/testsuite/tests/parsetree/test_ppx.ml +++ b/testsuite/tests/parsetree/test_ppx.ml @@ -1,7 +1,7 @@ (* TEST readonly_files = "source_jane_street.ml ppx_no_op.ml"; include ocamlcommon; - include stable; + include stdlib_upstream_compatible; setup-ocamlc.byte-build-env; program = "${test_build_directory}/ppx_no_op.exe"; all_modules = "ppx_no_op.ml"; diff --git a/testsuite/tests/typing-layouts-arrays/basics.ml b/testsuite/tests/typing-layouts-arrays/basics.ml index ee2c72d3a0f..34e769c43c1 100644 --- a/testsuite/tests/typing-layouts-arrays/basics.ml +++ b/testsuite/tests/typing-layouts-arrays/basics.ml @@ -1,5 +1,5 @@ (* TEST - include stable; + include stdlib_upstream_compatible; flambda2; { flags = "-extension layouts_alpha -extension small_numbers"; @@ -246,15 +246,15 @@ module M6_1 = struct | [| _; _; z |] -> z | _ -> assert false - let _ = assert (Stable.Int32_u.equal #42l (get_third [| #0l; #1l; #42l |])) + let _ = assert (Stdlib_upstream_compatible.Int32_u.equal #42l (get_third [| #0l; #1l; #42l |])) - let _ = assert (Stable.Int64_u.equal #42L (get_third [| #0L; #1L; #42L |])) + let _ = assert (Stdlib_upstream_compatible.Int64_u.equal #42L (get_third [| #0L; #1L; #42L |])) end [%%expect{| -Line 11, characters 59-62: -11 | let _ = assert (Stable.Int64_u.equal #42L (get_third [| #0L; #1L; #42L |])) - ^^^ +Line 11, characters 79-82: +11 | let _ = assert (Stdlib_upstream_compatible.Int64_u.equal #42L (get_third [| #0L; #1L; #42L |])) + ^^^ Error: This expression has type int64# but an expression was expected of type ('a : bits32) The layout of int64# is bits64, because diff --git a/testsuite/tests/typing-layouts-arrays/exp_and_pat.ml b/testsuite/tests/typing-layouts-arrays/exp_and_pat.ml index c4148fbc04c..b3b8d1959fb 100644 --- a/testsuite/tests/typing-layouts-arrays/exp_and_pat.ml +++ b/testsuite/tests/typing-layouts-arrays/exp_and_pat.ml @@ -1,7 +1,7 @@ (* TEST readonly_files = "float_u_array.ml"; modules = "${readonly_files}"; - include stable; + include stdlib_upstream_compatible; flambda2; { flags = "-extension comprehensions -extension layouts_alpha"; @@ -27,7 +27,7 @@ supported) for arrays of unboxed types. In its own file so we can test both native and bytecode. *) -module Float_u = Stable.Float_u +module Float_u = Stdlib_upstream_compatible.Float_u let (=) = Float_u.equal diff --git a/testsuite/tests/typing-layouts-arrays/exp_and_pat_failing.ml b/testsuite/tests/typing-layouts-arrays/exp_and_pat_failing.ml index 681531f2555..882093b0013 100644 --- a/testsuite/tests/typing-layouts-arrays/exp_and_pat_failing.ml +++ b/testsuite/tests/typing-layouts-arrays/exp_and_pat_failing.ml @@ -1,7 +1,7 @@ (* TEST readonly_files = "float_u_array.ml"; modules = "${readonly_files}"; - include stable; + include stdlib_upstream_compatible; flambda2; { flags = "-extension comprehensions -extension layouts_alpha"; @@ -17,7 +17,7 @@ (* Failing array comprehension tests. Delete this file and move tests to [exp_and_pat.ml] when the feature is implemented.*) -module Float_u = Stable.Float_u +module Float_u = Stdlib_upstream_compatible.Float_u let of_int = Float_u.of_int let (=) = Float_u.equal @@ -44,7 +44,7 @@ let (=) = Float_u.equal let f () = [|Float_u.of_int e for e = 0 to 9|] [%%expect{| -module Float_u = Stable.Float_u +module Float_u = Stdlib_upstream_compatible.Float_u val of_int : int -> Float_u.t = val ( = ) : Float_u.t -> Float_u.t -> bool = Line 25, characters 13-29: diff --git a/testsuite/tests/typing-layouts-arrays/test_int32_u_array.ml b/testsuite/tests/typing-layouts-arrays/test_int32_u_array.ml index 97d59ebd151..81f2608f570 100644 --- a/testsuite/tests/typing-layouts-arrays/test_int32_u_array.ml +++ b/testsuite/tests/typing-layouts-arrays/test_int32_u_array.ml @@ -1,7 +1,7 @@ (* TEST readonly_files = "gen_u_array.ml test_gen_u_array.ml"; modules = "${readonly_files}"; - include stable; + include stdlib_upstream_compatible; flambda2; { bytecode; @@ -71,7 +71,7 @@ module Int32_u_array_boxed : Test_gen_u_array.S with type t = int32# array = Tes module M = Int32_u_array module I = Int32_I module E = struct - open Stable.Int32_u + open Stdlib_upstream_compatible.Int32_u let to_boxed x = to_int32 (x ()) let of_boxed x () = of_int32 x end @@ -186,7 +186,7 @@ let () = (* expression and patterns *) let () = - let ( = ) = Stable.Int32_u.equal in + let ( = ) = Stdlib_upstream_compatible.Int32_u.equal in (* match statement *) let d = [| #1l; #2l |] in (match d with diff --git a/testsuite/tests/typing-layouts-arrays/test_int64_u_array.ml b/testsuite/tests/typing-layouts-arrays/test_int64_u_array.ml index 1be88c65e75..445f3e78333 100644 --- a/testsuite/tests/typing-layouts-arrays/test_int64_u_array.ml +++ b/testsuite/tests/typing-layouts-arrays/test_int64_u_array.ml @@ -1,7 +1,7 @@ (* TEST readonly_files = "gen_u_array.ml test_gen_u_array.ml"; modules = "${readonly_files}"; - include stable; + include stdlib_upstream_compatible; flambda2; { bytecode; @@ -71,7 +71,7 @@ module Int64_u_array_boxed = Test_gen_u_array.Make_boxed (struct module M = Int64_u_array module I = Int64_I module E = struct - open Stable.Int64_u + open Stdlib_upstream_compatible.Int64_u let to_boxed x = to_int64 (x ()) let of_boxed x () = of_int64 x end @@ -187,7 +187,7 @@ let () = (* expression and patterns *) let () = - let ( = ) = Stable.Int64_u.equal in + let ( = ) = Stdlib_upstream_compatible.Int64_u.equal in (* match statement *) let d = [| #1L; #2L |] in (match d with diff --git a/testsuite/tests/typing-layouts-arrays/test_nativeint_u_array.ml b/testsuite/tests/typing-layouts-arrays/test_nativeint_u_array.ml index 5d5693593e4..8a1fe9b2f93 100644 --- a/testsuite/tests/typing-layouts-arrays/test_nativeint_u_array.ml +++ b/testsuite/tests/typing-layouts-arrays/test_nativeint_u_array.ml @@ -1,7 +1,7 @@ (* TEST readonly_files = "gen_u_array.ml test_gen_u_array.ml"; modules = "${readonly_files}"; - include stable; + include stdlib_upstream_compatible; flambda2; { bytecode; @@ -73,7 +73,7 @@ module Nativeint_u_array_boxed = Test_gen_u_array.Make_boxed (struct module M = Nativeint_u_array module I = Nativeint_I module E = struct - open Stable.Nativeint_u + open Stdlib_upstream_compatible.Nativeint_u let to_boxed x = to_nativeint (x ()) let of_boxed x () = of_nativeint x end @@ -189,7 +189,7 @@ let () = (* expression and patterns *) let () = - let ( = ) = Stable.Nativeint_u.equal in + let ( = ) = Stdlib_upstream_compatible.Nativeint_u.equal in (* match statement *) let d = [| #1n; #2n |] in (match d with diff --git a/testsuite/tests/typing-layouts-arrays/test_stdlib_float_u_array.ml b/testsuite/tests/typing-layouts-arrays/test_stdlib_float_u_array.ml index 6e38d7ede13..7d46676fc8b 100644 --- a/testsuite/tests/typing-layouts-arrays/test_stdlib_float_u_array.ml +++ b/testsuite/tests/typing-layouts-arrays/test_stdlib_float_u_array.ml @@ -1,7 +1,7 @@ (* TEST readonly_files = "float_u_array.ml"; modules = "${readonly_files}"; - include stable; + include stdlib_upstream_compatible; flambda2; { native; @@ -90,7 +90,7 @@ end module Test_float_u_array : S = struct include Float_u_array - module Float_u = Stable.Float_u + module Float_u = Stdlib_upstream_compatible.Float_u let to_float = Float_u.to_float let of_float = Float_u.of_float @@ -911,7 +911,7 @@ end module T3 = Test (Test_float_u_array) (* Extra tests for functions not covered above *) -module Float_u = Stable.Float_u +module Float_u = Stdlib_upstream_compatible.Float_u let () = let open Float_u_array in let check_inval f arg = diff --git a/testsuite/tests/typing-layouts-bits32/alloc.ml b/testsuite/tests/typing-layouts-bits32/alloc.ml index e22bb7667bd..f330dfd94d2 100644 --- a/testsuite/tests/typing-layouts-bits32/alloc.ml +++ b/testsuite/tests/typing-layouts-bits32/alloc.ml @@ -1,5 +1,5 @@ (* TEST - include stable; + include stdlib_upstream_compatible; flambda2; native; *) @@ -24,7 +24,7 @@ module Int32 = struct end module Int32_u = struct - include Stable.Int32_u + include Stdlib_upstream_compatible.Int32_u let ( + ) = add let ( - ) = sub diff --git a/testsuite/tests/typing-layouts-bits32/test_int32_u.ml b/testsuite/tests/typing-layouts-bits32/test_int32_u.ml index 57385b16353..8d14e303690 100644 --- a/testsuite/tests/typing-layouts-bits32/test_int32_u.ml +++ b/testsuite/tests/typing-layouts-bits32/test_int32_u.ml @@ -1,8 +1,8 @@ (* TEST - include stable; + include stdlib_upstream_compatible; *) -module Int32_u = Stable.Int32_u +module Int32_u = Stdlib_upstream_compatible.Int32_u (* Print all individual successful tests; used for debugging, as it will cause this test to fail *) diff --git a/testsuite/tests/typing-layouts-bits32/unboxed_bits32s.ml b/testsuite/tests/typing-layouts-bits32/unboxed_bits32s.ml index f94689ad736..87cd92740c6 100644 --- a/testsuite/tests/typing-layouts-bits32/unboxed_bits32s.ml +++ b/testsuite/tests/typing-layouts-bits32/unboxed_bits32s.ml @@ -1,5 +1,5 @@ (* TEST - include stable; + include stdlib_upstream_compatible; flambda2; { native; @@ -27,7 +27,7 @@ (* Prelude: Functions on unboxed int32s. *) module Int32_u = struct - include Stable.Int32_u + include Stdlib_upstream_compatible.Int32_u let ( + ) = add let ( - ) = sub diff --git a/testsuite/tests/typing-layouts-bits32/unboxed_bits32s_alpha.ml b/testsuite/tests/typing-layouts-bits32/unboxed_bits32s_alpha.ml index 15c2b1c9f6f..33845175350 100644 --- a/testsuite/tests/typing-layouts-bits32/unboxed_bits32s_alpha.ml +++ b/testsuite/tests/typing-layouts-bits32/unboxed_bits32s_alpha.ml @@ -1,5 +1,5 @@ (* TEST - include stable; + include stdlib_upstream_compatible; flambda2; { flags = "-extension layouts_alpha"; @@ -23,7 +23,7 @@ (* Prelude: Functions on unboxed int32s. *) module Int32_u = struct - include Stable.Int32_u + include Stdlib_upstream_compatible.Int32_u let ( + ) = add let ( - ) = sub diff --git a/testsuite/tests/typing-layouts-bits64/alloc.ml b/testsuite/tests/typing-layouts-bits64/alloc.ml index 2dc3d8f002d..137864a9845 100644 --- a/testsuite/tests/typing-layouts-bits64/alloc.ml +++ b/testsuite/tests/typing-layouts-bits64/alloc.ml @@ -1,5 +1,5 @@ (* TEST - include stable; + include stdlib_upstream_compatible; flambda2; native; *) @@ -24,7 +24,7 @@ module Int64 = struct end module Int64_u = struct - include Stable.Int64_u + include Stdlib_upstream_compatible.Int64_u let ( + ) = add let ( - ) = sub diff --git a/testsuite/tests/typing-layouts-bits64/test_int64_u.ml b/testsuite/tests/typing-layouts-bits64/test_int64_u.ml index 8aa6eee1d7a..d5361f7308d 100644 --- a/testsuite/tests/typing-layouts-bits64/test_int64_u.ml +++ b/testsuite/tests/typing-layouts-bits64/test_int64_u.ml @@ -1,10 +1,10 @@ (* TEST - include stable; + include stdlib_upstream_compatible; *) -module Int64_u = Stable.Int64_u -module Int32_u = Stable.Int32_u -module Nativeint_u = Stable.Nativeint_u +module Int64_u = Stdlib_upstream_compatible.Int64_u +module Int32_u = Stdlib_upstream_compatible.Int32_u +module Nativeint_u = Stdlib_upstream_compatible.Nativeint_u (* Print all individual successful tests; used for debugging, as it will cause this test to fail *) diff --git a/testsuite/tests/typing-layouts-bits64/unboxed_bits64s.ml b/testsuite/tests/typing-layouts-bits64/unboxed_bits64s.ml index 1705cb5e000..6915607a8fd 100644 --- a/testsuite/tests/typing-layouts-bits64/unboxed_bits64s.ml +++ b/testsuite/tests/typing-layouts-bits64/unboxed_bits64s.ml @@ -1,5 +1,5 @@ (* TEST - include stable; + include stdlib_upstream_compatible; flambda2; { native; @@ -27,7 +27,7 @@ (* Prelude: Functions on unboxed int64s. *) module Int64_u = struct - include Stable.Int64_u + include Stdlib_upstream_compatible.Int64_u let ( + ) = add let ( - ) = sub diff --git a/testsuite/tests/typing-layouts-bits64/unboxed_bits64s_alpha.ml b/testsuite/tests/typing-layouts-bits64/unboxed_bits64s_alpha.ml index 4376a0cbeaf..93aca18596c 100644 --- a/testsuite/tests/typing-layouts-bits64/unboxed_bits64s_alpha.ml +++ b/testsuite/tests/typing-layouts-bits64/unboxed_bits64s_alpha.ml @@ -1,5 +1,5 @@ (* TEST - include stable; + include stdlib_upstream_compatible; flambda2; { flags = "-extension layouts_alpha"; @@ -23,7 +23,7 @@ (* Prelude: Functions on unboxed int64s. *) module Int64_u = struct - include Stable.Int64_u + include Stdlib_upstream_compatible.Int64_u let ( + ) = add let ( - ) = sub diff --git a/testsuite/tests/typing-layouts-float64/alloc.ml b/testsuite/tests/typing-layouts-float64/alloc.ml index f9beb558ef1..dab72f2e5a6 100644 --- a/testsuite/tests/typing-layouts-float64/alloc.ml +++ b/testsuite/tests/typing-layouts-float64/alloc.ml @@ -1,5 +1,5 @@ (* TEST - include stable; + include stdlib_upstream_compatible; flambda2; native; *) @@ -12,7 +12,7 @@ floats. *) module Float_u = struct - include Stable.Float_u + include Stdlib_upstream_compatible.Float_u let ( + ) = add let ( - ) = sub diff --git a/testsuite/tests/typing-layouts-float64/basics.ml b/testsuite/tests/typing-layouts-float64/basics.ml index 0ecdb8a1e04..70e612fd8ed 100644 --- a/testsuite/tests/typing-layouts-float64/basics.ml +++ b/testsuite/tests/typing-layouts-float64/basics.ml @@ -1,6 +1,6 @@ (* TEST flambda2; - include stable; + include stdlib_upstream_compatible; { expect; } @@ -846,7 +846,7 @@ Error: This expression has type t_float64 (***********************************************************) (* Test 14: unboxed float records work like normal records *) -module FU = Stable.Float_u +module FU = Stdlib_upstream_compatible.Float_u type t14_1 = { x : float#; y : float# } @@ -889,7 +889,7 @@ let f14_4 r = [%%expect{| -module FU = Stable.Float_u +module FU = Stdlib_upstream_compatible.Float_u type t14_1 = { x : float#; y : float#; } val f14_1 : t14_1 -> FU.t = val r14 : t14_1 = {x = ; y = } diff --git a/testsuite/tests/typing-layouts-float64/basics_beta.ml b/testsuite/tests/typing-layouts-float64/basics_beta.ml index e8028ffe4e0..266c7202f61 100644 --- a/testsuite/tests/typing-layouts-float64/basics_beta.ml +++ b/testsuite/tests/typing-layouts-float64/basics_beta.ml @@ -1,5 +1,5 @@ (* TEST - include stable; + include stdlib_upstream_compatible; flambda2; { flags = "-extension layouts_alpha"; @@ -821,7 +821,7 @@ Error: This expression has type t_float64 (***********************************************************) (* Test 14: unboxed float records work like normal records *) -module FU = Stable.Float_u +module FU = Stdlib_upstream_compatible.Float_u type t14_1 = { x : float#; y : float# } @@ -864,7 +864,7 @@ let f14_4 r = [%%expect{| -module FU = Stable.Float_u +module FU = Stdlib_upstream_compatible.Float_u type t14_1 = { x : float#; y : float#; } val f14_1 : t14_1 -> FU.t = val r14 : t14_1 = {x = ; y = } diff --git a/testsuite/tests/typing-layouts-float64/debug_events.ml b/testsuite/tests/typing-layouts-float64/debug_events.ml index e9bafd1882c..afcb4d89809 100644 --- a/testsuite/tests/typing-layouts-float64/debug_events.ml +++ b/testsuite/tests/typing-layouts-float64/debug_events.ml @@ -1,8 +1,8 @@ (* TEST flags = "-g"; - include stable; + include stdlib_upstream_compatible; bytecode; *) -let f1 f i = Stable.Float_u.to_float (f i) -let f2 f i = Stable.Float_u.to_float (f i) +. 0. +let f1 f i = Stdlib_upstream_compatible.Float_u.to_float (f i) +let f2 f i = Stdlib_upstream_compatible.Float_u.to_float (f i) +. 0. diff --git a/testsuite/tests/typing-layouts-float64/stdlib_float_u.ml b/testsuite/tests/typing-layouts-float64/stdlib_float_u.ml index 32d75da0a5b..8a81bcb1ae2 100644 --- a/testsuite/tests/typing-layouts-float64/stdlib_float_u.ml +++ b/testsuite/tests/typing-layouts-float64/stdlib_float_u.ml @@ -1,5 +1,5 @@ (* TEST - include stable; + include stdlib_upstream_compatible; { flags = "-extension layouts_alpha"; native; @@ -15,7 +15,7 @@ } *) -module Float_u = Stable.Float_u +module Float_u = Stdlib_upstream_compatible.Float_u (* Constant seed for repeatable random-testing properties *) let () = Random.init 1234 diff --git a/testsuite/tests/typing-layouts-float64/unboxed_floats.ml b/testsuite/tests/typing-layouts-float64/unboxed_floats.ml index fca6eea7d73..bb348142296 100644 --- a/testsuite/tests/typing-layouts-float64/unboxed_floats.ml +++ b/testsuite/tests/typing-layouts-float64/unboxed_floats.ml @@ -1,6 +1,6 @@ (* TEST reference = "${test_source_directory}/unboxed_floats.reference"; - include stable; + include stdlib_upstream_compatible; flambda2; { native; @@ -51,7 +51,7 @@ (* Prelude: Functions on unboxed floats. *) module Float_u = struct - include Stable.Float_u + include Stdlib_upstream_compatible.Float_u let ( + ) = add let ( - ) = sub diff --git a/testsuite/tests/typing-layouts-float64/unboxed_floats_beta.ml b/testsuite/tests/typing-layouts-float64/unboxed_floats_beta.ml index 15f1a9ac531..10bc5aab8e7 100644 --- a/testsuite/tests/typing-layouts-float64/unboxed_floats_beta.ml +++ b/testsuite/tests/typing-layouts-float64/unboxed_floats_beta.ml @@ -1,6 +1,6 @@ (* TEST reference = "${test_source_directory}/unboxed_floats_beta.reference"; - include stable; + include stdlib_upstream_compatible; flambda2; { flags = "-extension layouts_beta"; @@ -24,7 +24,7 @@ (* Prelude: Functions on unboxed floats. *) module Float_u = struct - include Stable.Float_u + include Stdlib_upstream_compatible.Float_u let ( + ) = add let ( - ) = sub diff --git a/testsuite/tests/typing-layouts-word/alloc.ml b/testsuite/tests/typing-layouts-word/alloc.ml index e2be2b855b7..26d0a1e1b3d 100644 --- a/testsuite/tests/typing-layouts-word/alloc.ml +++ b/testsuite/tests/typing-layouts-word/alloc.ml @@ -1,5 +1,5 @@ (* TEST - include stable; + include stdlib_upstream_compatible; flambda2; native; *) @@ -24,7 +24,7 @@ module Nativeint = struct end module Nativeint_u = struct - include Stable.Nativeint_u + include Stdlib_upstream_compatible.Nativeint_u let ( + ) = add let ( - ) = sub diff --git a/testsuite/tests/typing-layouts-word/test_nativeint_u.ml b/testsuite/tests/typing-layouts-word/test_nativeint_u.ml index ea213daf1ed..88fea11a7eb 100644 --- a/testsuite/tests/typing-layouts-word/test_nativeint_u.ml +++ b/testsuite/tests/typing-layouts-word/test_nativeint_u.ml @@ -1,9 +1,9 @@ (* TEST - include stable; + include stdlib_upstream_compatible; *) -module Nativeint_u = Stable.Nativeint_u -module Int32_u = Stable.Int32_u +module Nativeint_u = Stdlib_upstream_compatible.Nativeint_u +module Int32_u = Stdlib_upstream_compatible.Int32_u (* Print all individual successful tests; used for debugging, as it will cause this test to fail *) diff --git a/testsuite/tests/typing-layouts-word/unboxed_nativeints.ml b/testsuite/tests/typing-layouts-word/unboxed_nativeints.ml index de77701184c..2750e33eec2 100644 --- a/testsuite/tests/typing-layouts-word/unboxed_nativeints.ml +++ b/testsuite/tests/typing-layouts-word/unboxed_nativeints.ml @@ -1,5 +1,5 @@ (* TEST - include stable; + include stdlib_upstream_compatible; flambda2; { native; @@ -27,7 +27,7 @@ (* Prelude: Functions on unboxed nativeints. *) module Nativeint_u = struct - include Stable.Nativeint_u + include Stdlib_upstream_compatible.Nativeint_u let ( + ) = add let ( - ) = sub diff --git a/testsuite/tests/typing-layouts-word/unboxed_nativeints_alpha.ml b/testsuite/tests/typing-layouts-word/unboxed_nativeints_alpha.ml index 6aa4555042b..b7835afa4eb 100644 --- a/testsuite/tests/typing-layouts-word/unboxed_nativeints_alpha.ml +++ b/testsuite/tests/typing-layouts-word/unboxed_nativeints_alpha.ml @@ -1,5 +1,5 @@ (* TEST - include stable; + include stdlib_upstream_compatible; flambda2; { flags = "-extension layouts_alpha"; @@ -23,7 +23,7 @@ (* Prelude: Functions on unboxed nativeints. *) module Nativeint_u = struct - include Stable.Nativeint_u + include Stdlib_upstream_compatible.Nativeint_u let ( + ) = add let ( - ) = sub diff --git a/testsuite/tests/typing-layouts/annots.ml b/testsuite/tests/typing-layouts/annots.ml index 94aa343908a..a2b94b49c53 100644 --- a/testsuite/tests/typing-layouts/annots.ml +++ b/testsuite/tests/typing-layouts/annots.ml @@ -1,5 +1,5 @@ (* TEST - include stable; + include stdlib_upstream_compatible; { expect; }{ @@ -296,10 +296,10 @@ val f : r -> int = |}] type rf = { fieldf : ('a : float64). 'a -> 'a } -let f { fieldf } = fieldf (Stable.Float_u.of_float 3.14);; +let f { fieldf } = fieldf (Stdlib_upstream_compatible.Float_u.of_float 3.14);; [%%expect {| type rf = { fieldf : ('a : float64). 'a -> 'a; } -val f : rf -> Stable.Float_u.t = +val f : rf -> Stdlib_upstream_compatible.Float_u.t = |}] let f { field } = field "hello" diff --git a/testsuite/tests/typing-layouts/any_in_types.ml b/testsuite/tests/typing-layouts/any_in_types.ml index 0a27e3131fb..349b4fcd983 100644 --- a/testsuite/tests/typing-layouts/any_in_types.ml +++ b/testsuite/tests/typing-layouts/any_in_types.ml @@ -1,5 +1,5 @@ (* TEST - include stable; + include stdlib_upstream_compatible; { native; }{ @@ -10,7 +10,7 @@ (* See also Test 10 in modules.ml, which tests for type-checking failures in code that is similar to this. *) -let unbox = Stable.Float_u.of_float +let unbox = Stdlib_upstream_compatible.Float_u.of_float module type S = sig type t : any @@ -24,9 +24,9 @@ end module M1 : S with type t = float# = struct type t = float# - let add x y = Stable.Float_u.add x y + let add x y = Stdlib_upstream_compatible.Float_u.add x y let one () = unbox 1. - let print f = Printf.printf "Printing a float#: %f\n" (Stable.Float_u.to_float (f ())) + let print f = Printf.printf "Printing a float#: %f\n" (Stdlib_upstream_compatible.Float_u.to_float (f ())) end module M2 : S with type t = int = struct @@ -37,14 +37,14 @@ module M2 : S with type t = int = struct let print f = Printf.printf "Printing a int: %d\n" (f ()) end -let () = Printf.printf "%f\n" (Stable.Float_u.to_float (M1.add (unbox 10.) (unbox 10.))) +let () = Printf.printf "%f\n" (Stdlib_upstream_compatible.Float_u.to_float (M1.add (unbox 10.) (unbox 10.))) let () = Printf.printf "%d\n" (M2.add 10 10) (* destructive substitution *) module M3 : S with type t := float# = struct - let add x y = Stable.Float_u.add x y + let add x y = Stdlib_upstream_compatible.Float_u.add x y let one () = unbox 1. - let print f = Printf.printf "Printing a float#: %f\n" (Stable.Float_u.to_float (f ())) + let print f = Printf.printf "Printing a float#: %f\n" (Stdlib_upstream_compatible.Float_u.to_float (f ())) end module M4 : S with type t := int = struct @@ -53,7 +53,7 @@ module M4 : S with type t := int = struct let print f = Printf.printf "Printing a int: %d\n" (f ()) end -let () = Printf.printf "%f\n" (Stable.Float_u.to_float (M3.add (unbox 10.) (unbox 10.))) +let () = Printf.printf "%f\n" (Stdlib_upstream_compatible.Float_u.to_float (M3.add (unbox 10.) (unbox 10.))) let () = Printf.printf "%d\n" (M4.add 10 10) (* functor *) @@ -86,7 +86,7 @@ let () = (Printf.printf "a\n"; unbox 10.) in - Printf.printf "%f\n" (Stable.Float_u.to_float r) + Printf.printf "%f\n" (Stdlib_upstream_compatible.Float_u.to_float r) with | _ -> Printf.printf "b\n" ;; diff --git a/testsuite/tests/typing-layouts/basics.ml b/testsuite/tests/typing-layouts/basics.ml index 5dd9954a52f..f611e314a0f 100644 --- a/testsuite/tests/typing-layouts/basics.ml +++ b/testsuite/tests/typing-layouts/basics.ml @@ -1,5 +1,5 @@ (* TEST - include stable; + include stdlib_upstream_compatible; { expect; }{ @@ -107,7 +107,7 @@ module M1 = struct type q = t s - let f1 () : 'a s = { a = fun x -> Stable.Float_u.abs x } + let f1 () : 'a s = { a = fun x -> Stdlib_upstream_compatible.Float_u.abs x } let f2 () : 'a s = { a = fun x -> x ^ "!" } let f3 () : 'a s = { a = fun x -> x + 1 } end;; @@ -117,7 +117,7 @@ module M1 : type t : any type ('a : any) s = { a : 'a -> 'a; } type q = t s - val f1 : unit -> Stable.Float_u.t s + val f1 : unit -> Stdlib_upstream_compatible.Float_u.t s val f2 : unit -> string s val f3 : unit -> int s end @@ -130,7 +130,7 @@ module M1 = struct type q = t s - let f1 () : 'a s = A (fun x -> Stable.Float_u.abs x) + let f1 () : 'a s = A (fun x -> Stdlib_upstream_compatible.Float_u.abs x) let f2 () : 'a s = A (fun x -> x ^ "!") let f3 () : 'a s = A (fun x -> x + 1) end;; @@ -140,7 +140,7 @@ module M1 : type t : any type ('a : any) s = A of ('a -> 'a) type q = t s - val f1 : unit -> Stable.Float_u.t s + val f1 : unit -> Stdlib_upstream_compatible.Float_u.t s val f2 : unit -> string s val f3 : unit -> int s end @@ -153,7 +153,7 @@ module M1 = struct type q = t s - let f1 () : 'a s = A { a = fun x -> Stable.Float_u.abs x } + let f1 () : 'a s = A { a = fun x -> Stdlib_upstream_compatible.Float_u.abs x } let f2 () : 'a s = A { a = fun x -> x ^ "!" } let f3 () : 'a s = A { a = fun x -> x + 1 } end;; @@ -163,7 +163,7 @@ module M1 : type t : any type ('a : any) s = A of { a : 'a -> 'a; } type q = t s - val f1 : unit -> Stable.Float_u.t s + val f1 : unit -> Stdlib_upstream_compatible.Float_u.t s val f2 : unit -> string s val f3 : unit -> int s end @@ -179,7 +179,7 @@ module M1 = struct let f0 () = A {a = (fun x y -> x)} let f1 () = A {a = (fun x y -> x + 1)} let f2 () = A {a = (fun x y -> x ^ "!")} - let f3 () = A {a = (fun x y -> Stable.Float_u.abs x)} + let f3 () = A {a = (fun x y -> Stdlib_upstream_compatible.Float_u.abs x)} let f4 () = A {a = (fun x y -> x + y)} let f5 () = A {a = (fun x y -> x ^ y)} end;; @@ -192,7 +192,7 @@ module M1 : val f0 : unit -> 'a s val f1 : unit -> int s val f2 : unit -> string s - val f3 : unit -> Stable.Float_u.t s + val f3 : unit -> Stdlib_upstream_compatible.Float_u.t s val f4 : unit -> int s val f5 : unit -> string s end @@ -208,7 +208,7 @@ module M1 = struct let f0 () = A (fun x y -> x) let f1 () = A (fun x y -> x + 1) let f2 () = A (fun x y -> x ^ "!") - let f3 () = A (fun x y -> Stable.Float_u.abs x) + let f3 () = A (fun x y -> Stdlib_upstream_compatible.Float_u.abs x) let f4 () = A (fun x y -> x + y) let f5 () = A (fun x y -> x ^ y) end @@ -221,7 +221,7 @@ module M1 : val f0 : unit -> 'a s val f1 : unit -> int s val f2 : unit -> string s - val f3 : unit -> Stable.Float_u.t s + val f3 : unit -> Stdlib_upstream_compatible.Float_u.t s val f4 : unit -> int s val f5 : unit -> string s end @@ -246,18 +246,19 @@ module type S1 = module M1 = struct type ('a : any) s = A : { a: 'a -> 'b -> 'a } -> 'a s - let f1 () = A {a = (fun x y -> Stable.Float_u.abs x)} + let f1 () = A {a = (fun x y -> Stdlib_upstream_compatible.Float_u.abs x)} end;; [%%expect{| -Line 4, characters 52-53: -4 | let f1 () = A {a = (fun x y -> Stable.Float_u.abs x)} - ^ +Line 4, characters 72-73: +4 | let f1 () = A {a = (fun x y -> Stdlib_upstream_compatible.Float_u.abs x)} + ^ Error: This expression has type ('a : value) - but an expression was expected of type Stable.Float_u.t = float# - The layout of Stable.Float_u.t is float64, because + but an expression was expected of type + Stdlib_upstream_compatible.Float_u.t = float# + The layout of Stdlib_upstream_compatible.Float_u.t is float64, because it is the primitive float64 type float#. - But the layout of Stable.Float_u.t must be a sublayout of value, because + But the layout of Stdlib_upstream_compatible.Float_u.t must be a sublayout of value, because of the definition of s at line 2, characters 2-55. |}] @@ -280,54 +281,57 @@ module type S1 = module M1 = struct type ('a : any) s = A : ('a -> 'b -> 'a) -> 'a s - let f1 () = A (fun x y -> Stable.Float_u.abs x) + let f1 () = A (fun x y -> Stdlib_upstream_compatible.Float_u.abs x) end;; [%%expect{| -Line 4, characters 47-48: -4 | let f1 () = A (fun x y -> Stable.Float_u.abs x) - ^ +Line 4, characters 67-68: +4 | let f1 () = A (fun x y -> Stdlib_upstream_compatible.Float_u.abs x) + ^ Error: This expression has type ('a : value) - but an expression was expected of type Stable.Float_u.t = float# - The layout of Stable.Float_u.t is float64, because + but an expression was expected of type + Stdlib_upstream_compatible.Float_u.t = float# + The layout of Stdlib_upstream_compatible.Float_u.t is float64, because it is the primitive float64 type float#. - But the layout of Stable.Float_u.t must be a sublayout of value, because + But the layout of Stdlib_upstream_compatible.Float_u.t must be a sublayout of value, because of the definition of s at line 2, characters 2-50. |}] module M1 = struct type ('a : any) s = A : ('a : any) 'b. { a: 'a -> 'b -> 'a } -> 'a s - let f6 () = A {a = (fun x y -> Stable.Float_u.add x y)} + let f6 () = A {a = (fun x y -> Stdlib_upstream_compatible.Float_u.add x y)} end;; [%%expect{| -Line 4, characters 54-55: -4 | let f6 () = A {a = (fun x y -> Stable.Float_u.add x y)} - ^ +Line 4, characters 74-75: +4 | let f6 () = A {a = (fun x y -> Stdlib_upstream_compatible.Float_u.add x y)} + ^ Error: This expression has type ('a : value) - but an expression was expected of type Stable.Float_u.t = float# - The layout of Stable.Float_u.t is float64, because + but an expression was expected of type + Stdlib_upstream_compatible.Float_u.t = float# + The layout of Stdlib_upstream_compatible.Float_u.t is float64, because it is the primitive float64 type float#. - But the layout of Stable.Float_u.t must be a sublayout of value, because + But the layout of Stdlib_upstream_compatible.Float_u.t must be a sublayout of value, because of the definition of s at line 2, characters 2-70. |}] module M1 = struct type ('a : any) s = A : ('a : any) 'b. ('a -> 'b -> 'a) -> 'a s - let f6 () = A (fun x y -> Stable.Float_u.add x y) + let f6 () = A (fun x y -> Stdlib_upstream_compatible.Float_u.add x y) end;; [%%expect{| -Line 4, characters 49-50: -4 | let f6 () = A (fun x y -> Stable.Float_u.add x y) - ^ +Line 4, characters 69-70: +4 | let f6 () = A (fun x y -> Stdlib_upstream_compatible.Float_u.add x y) + ^ Error: This expression has type ('a : value) - but an expression was expected of type Stable.Float_u.t = float# - The layout of Stable.Float_u.t is float64, because + but an expression was expected of type + Stdlib_upstream_compatible.Float_u.t = float# + The layout of Stdlib_upstream_compatible.Float_u.t is float64, because it is the primitive float64 type float#. - But the layout of Stable.Float_u.t must be a sublayout of value, because + But the layout of Stdlib_upstream_compatible.Float_u.t must be a sublayout of value, because of the definition of s at line 2, characters 2-65. |}] @@ -714,19 +718,20 @@ Error: Polymorphic variant constructor argument types must have layout value. module M8_2f = struct let foo x = match x with - | `Baz 42 -> Stable.Float_u.of_float 3.14 + | `Baz 42 -> Stdlib_upstream_compatible.Float_u.of_float 3.14 | `Bar v -> v - | `Bas i -> Stable.Float_u.of_float 3.14 + | `Bas i -> Stdlib_upstream_compatible.Float_u.of_float 3.14 end;; [%%expect {| Line 5, characters 16-17: 5 | | `Bar v -> v ^ Error: This expression has type ('a : value) - but an expression was expected of type Stable.Float_u.t = float# - The layout of Stable.Float_u.t is float64, because + but an expression was expected of type + Stdlib_upstream_compatible.Float_u.t = float# + The layout of Stdlib_upstream_compatible.Float_u.t is float64, because it is the primitive float64 type float#. - But the layout of Stable.Float_u.t must be a sublayout of value, because + But the layout of Stdlib_upstream_compatible.Float_u.t must be a sublayout of value, because it's the type of the field of a polymorphic variant. |}];; @@ -2158,14 +2163,14 @@ module M6 : sig val f : ('a. 'a -> unit) -> unit end = struct let f (g : ('a : any). 'a -> unit) = - ignore (g (Stable.Float_u.of_float 3.14)); ignore (g "hello"); ignore (g 5); () + ignore (g (Stdlib_upstream_compatible.Float_u.of_float 3.14)); ignore (g "hello"); ignore (g 5); () end [%%expect{| Lines 3-6, characters 6-3: 3 | ......struct 4 | let f (g : ('a : any). 'a -> unit) = -5 | ignore (g (Stable.Float_u.of_float 3.14)); ignore (g "hello"); ignore (g 5); () +5 | ignore (g (Stdlib_upstream_compatible.Float_u.of_float 3.14)); ignore (g "hello"); ignore (g 5); () 6 | end Error: Signature mismatch: Modules do not match: diff --git a/testsuite/tests/typing-layouts/error_message_attr.ml b/testsuite/tests/typing-layouts/error_message_attr.ml index 53692d9f2ba..b644f78a1f2 100644 --- a/testsuite/tests/typing-layouts/error_message_attr.ml +++ b/testsuite/tests/typing-layouts/error_message_attr.ml @@ -1,13 +1,13 @@ (* TEST - include stable; + include stdlib_upstream_compatible; flags = "-extension layouts_alpha"; expect; *) -module Float_u = Stable.Float_u +module Float_u = Stdlib_upstream_compatible.Float_u [%%expect{| -module Float_u = Stable.Float_u +module Float_u = Stdlib_upstream_compatible.Float_u |}] (* Needs a string payload *) diff --git a/testsuite/tests/typing-layouts/layout_poly.ml b/testsuite/tests/typing-layouts/layout_poly.ml index 191bf95ecbb..b92bfaebde6 100644 --- a/testsuite/tests/typing-layouts/layout_poly.ml +++ b/testsuite/tests/typing-layouts/layout_poly.ml @@ -1,5 +1,5 @@ (* TEST - include stable; + include stdlib_upstream_compatible; { flags = "-extension layouts"; expect; @@ -9,7 +9,7 @@ } *) -module F = Stable.Float_u +module F = Stdlib_upstream_compatible.Float_u type t_any : any type ('a : any) t_with_any = 'a @@ -19,7 +19,7 @@ end = struct type ('a : any) t = 'a end [%%expect{| -module F = Stable.Float_u +module F = Stdlib_upstream_compatible.Float_u type t_any : any type ('a : any) t_with_any = 'a module M_any : sig type ('a : any) t = private 'a end diff --git a/testsuite/tests/typing-layouts/layout_poly_native.ml b/testsuite/tests/typing-layouts/layout_poly_native.ml index 2d75ae1c190..3678d6d7ce3 100644 --- a/testsuite/tests/typing-layouts/layout_poly_native.ml +++ b/testsuite/tests/typing-layouts/layout_poly_native.ml @@ -1,6 +1,6 @@ (* TEST flags = "-extension layouts"; - include stable; + include stdlib_upstream_compatible; flambda2; { native; @@ -17,10 +17,10 @@ external[@layout_poly] apply : ('a : any) ('b : any). ('a -> 'b) -> 'a -> 'b = " external[@layout_poly] revapply : ('a : any) ('b : any). 'a -> ('a -> 'b) -> 'b = "%revapply" type t_any : any -module N = Stable.Nativeint_u -module I32 = Stable.Int32_u -module I64 = Stable.Int64_u -module F = Stable.Float_u +module N = Stdlib_upstream_compatible.Nativeint_u +module I32 = Stdlib_upstream_compatible.Int32_u +module I64 = Stdlib_upstream_compatible.Int64_u +module F = Stdlib_upstream_compatible.Float_u let () = (* id (assert false : t_any); *) Printf.printf "%s\n" (N.to_string (id #1n)); diff --git a/testsuite/tests/typing-layouts/literals.ml b/testsuite/tests/typing-layouts/literals.ml index b0d86cf140f..c2bc1308f1e 100644 --- a/testsuite/tests/typing-layouts/literals.ml +++ b/testsuite/tests/typing-layouts/literals.ml @@ -1,5 +1,5 @@ (* TEST - include stable; + include stdlib_upstream_compatible; flags = "-extension layouts_beta"; expect; *) @@ -7,10 +7,10 @@ (*****************************************) (* Prelude: Functions on unboxed floats. *) -module Float_u = Stable.Float_u -module Int32_u = Stable.Int32_u -module Int64_u = Stable.Int64_u -module Nativeint_u = Stable.Nativeint_u +module Float_u = Stdlib_upstream_compatible.Float_u +module Int32_u = Stdlib_upstream_compatible.Int32_u +module Int64_u = Stdlib_upstream_compatible.Int64_u +module Nativeint_u = Stdlib_upstream_compatible.Nativeint_u let test_float s f = Format.printf "%s: %f\n" s (Float_u.to_float f); Format.print_flush () @@ -22,10 +22,10 @@ let test_nativeint s f = Format.printf "%s: %s\n" s (Nativeint_u.to_string f); Format.print_flush () [%%expect{| -module Float_u = Stable.Float_u -module Int32_u = Stable.Int32_u -module Int64_u = Stable.Int64_u -module Nativeint_u = Stable.Nativeint_u +module Float_u = Stdlib_upstream_compatible.Float_u +module Int32_u = Stdlib_upstream_compatible.Int32_u +module Int64_u = Stdlib_upstream_compatible.Int64_u +module Nativeint_u = Stdlib_upstream_compatible.Nativeint_u val test_float : string -> Float_u.t -> unit = val test_int32 : string -> Int32_u.t -> unit = val test_int64 : string -> Int64_u.t -> unit = diff --git a/testsuite/tests/typing-layouts/literals_native.ml b/testsuite/tests/typing-layouts/literals_native.ml index eaf59496f31..1c1486a84a5 100644 --- a/testsuite/tests/typing-layouts/literals_native.ml +++ b/testsuite/tests/typing-layouts/literals_native.ml @@ -1,6 +1,6 @@ (* TEST flags = "-extension layouts_beta"; - include stable; + include stdlib_upstream_compatible; flambda2; { native; @@ -12,10 +12,10 @@ (*****************************************) (* Prelude: Functions on unboxed floats. *) -module Float_u = Stable.Float_u -module Int32_u = Stable.Int32_u -module Int64_u = Stable.Int64_u -module Nativeint_u = Stable.Nativeint_u +module Float_u = Stdlib_upstream_compatible.Float_u +module Int32_u = Stdlib_upstream_compatible.Int32_u +module Int64_u = Stdlib_upstream_compatible.Int64_u +module Nativeint_u = Stdlib_upstream_compatible.Nativeint_u let test_float s f = Format.printf "%s: %f\n" s (Float_u.to_float f); Format.print_flush () diff --git a/testsuite/tests/typing-layouts/modules.ml b/testsuite/tests/typing-layouts/modules.ml index eae38e52f9c..e5cf9a85e2a 100644 --- a/testsuite/tests/typing-layouts/modules.ml +++ b/testsuite/tests/typing-layouts/modules.ml @@ -1,5 +1,5 @@ (* TEST - include stable; + include stdlib_upstream_compatible; { expect; }{ @@ -653,8 +653,8 @@ module type S = sig end module Floaty : S with type t := float# = struct - let one () = Stable.Float_u.of_float 1. (* CR layouts: use literal syntax *) - let print t = Printf.printf "%f" (Stable.Float_u.to_float t) + let one () = Stdlib_upstream_compatible.Float_u.of_float 1. (* CR layouts: use literal syntax *) + let print t = Printf.printf "%f" (Stdlib_upstream_compatible.Float_u.to_float t) end module Inty : S with type t := int = struct diff --git a/testsuite/tests/typing-layouts/unboxed_bigstring_primitives.ml b/testsuite/tests/typing-layouts/unboxed_bigstring_primitives.ml index 7c57f7ddd8d..663393572e7 100644 --- a/testsuite/tests/typing-layouts/unboxed_bigstring_primitives.ml +++ b/testsuite/tests/typing-layouts/unboxed_bigstring_primitives.ml @@ -1,6 +1,6 @@ (* TEST flambda2; - include stable; + include stdlib_upstream_compatible; { native; }{ @@ -73,19 +73,19 @@ external bswap32: int32 -> int32 = "%bswap_int32" external bswap64: int64 -> int64 = "%bswap_int64" let swap32 x = - let open Stable.Int32_u in + let open Stdlib_upstream_compatible.Int32_u in if Sys.big_endian then x |> to_int32 |> bswap32 |> of_int32 else x let swap64 x = - let open Stable.Int64_u in + let open Stdlib_upstream_compatible.Int64_u in if Sys.big_endian then x |> to_int64 |> bswap64 |> of_int64 else x -let to_int32 = Stable.Int32_u.to_int32 -let to_int64 = Stable.Int64_u.to_int64 +let to_int32 = Stdlib_upstream_compatible.Int32_u.to_int32 +let to_int64 = Stdlib_upstream_compatible.Int64_u.to_int64 let test get_64 set_64 get_32 set_32 = set_32 s 0 (swap32 #0x12345678l); Printf.printf "%lx %lx %lx\n%!" diff --git a/testsuite/tests/typing-layouts/unboxed_int_array_indexing.ml b/testsuite/tests/typing-layouts/unboxed_int_array_indexing.ml index 51299ab00a8..18a7b3fcccf 100644 --- a/testsuite/tests/typing-layouts/unboxed_int_array_indexing.ml +++ b/testsuite/tests/typing-layouts/unboxed_int_array_indexing.ml @@ -1,6 +1,6 @@ (* TEST flambda2; - include stable; + include stdlib_upstream_compatible; { native; }{ @@ -21,7 +21,7 @@ *) module By_int64_u = struct - module I = Stable.Int64_u + module I = Stdlib_upstream_compatible.Int64_u module A = struct external get : 'a array -> int64# -> 'a = "%array_safe_get_indexed_by_int64#" @@ -35,7 +35,7 @@ module By_int64_u = struct end module By_int32_u = struct - module I = Stable.Int32_u + module I = Stdlib_upstream_compatible.Int32_u module A = struct external get : 'a array -> int32# -> 'a = "%array_safe_get_indexed_by_int32#" @@ -49,7 +49,7 @@ module By_int32_u = struct end module By_nativeint_u = struct - module I = Stable.Nativeint_u + module I = Stdlib_upstream_compatible.Nativeint_u module A = struct external get : 'a array -> nativeint# -> 'a =