Am_Ops.Int_as

struct

    let ( +. ) = Pervasives.( + )

    let ( -. ) = Pervasives.( - )

    let ( *. ) = Pervasives.( * )

    let ( /. ) = Pervasives.( / )

    let ( ~-. ) = Pervasives.( ~- )

  end