Am_Ops.Float_as

struct

    let ( +. ) = Pervasives.( +. )

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

    let ( *. ) = Pervasives.( *. )

    let ( /. ) = Pervasives.( /. )

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

  end