Combining bs-deriving with Bastet's expected function names

Domino.re

module Face = {
  [@deriving (enum, ord, eq)]
  type t =
    | Blank
    | One
    | Two
    | Three
    | Four
    | Five
    | Six
    | Seven
    | Eight
    | Nine
    | Ten
    | Eleven
    | Twelve;

  let eq = (a: t, b: t) => a == b;
  let compare = (a: t, b: t) => Relude.Ordering.fromInt(compare(a, b));

  let toEnum = of_enum;
  let fromEnum = to_enum;
  let cardinality = max + 1;

  let succ = v => toEnum(fromEnum(v) + 1);
  let pred = v => toEnum(fromEnum(v) - 1);

  let bottom = Blank;
  let top = Twelve;
};

type t =
  | Domino(Face.t, Face.t);