Source file `repr.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
(**************************************************************************)
(*                                                                        *)
(*                                 OCaml                                  *)
(*                                                                        *)
(*                              Kate Deplaix                              *)
(*                                                                        *)
(*   Copyright 2025 Kate Deplaix                                          *)
(*                                                                        *)
(*   All rights reserved.  This file is distributed under the terms of    *)
(*   the GNU Lesser General Public License version 2.1, with the          *)
(*   special exception on linking described in the file LICENSE.          *)
(*                                                                        *)
(**************************************************************************)

external phys_equal : 'a -> 'a -> bool = "%eq"

external equal : 'a -> 'a -> bool = "%equal"
external compare : 'a -> 'a -> int = "%compare"

let min = Stdlib.min
let max = Stdlib.max