Am_Ops.Float_as

struct

    let ( + ) = Pervasives.( +. )

    let ( - ) = Pervasives.( -. )

    let ( * ) = Pervasives.( *. )

    let ( / ) = Pervasives.( /. )

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

  end