Scoping nonstructural operators

ops.fsx

[<AutoOpen>]
module Ops =
    open NonStructuralComparison
    let inline nsHash x = hash x
    let inline nsCompare x = compare x
    let inline (=&) a b = a = b
    let inline (<>&) a b = a <> b
    let inline (<&) a b = a < b
    let inline (>&) a b = a > b
    let inline (<=&) a b = a <= b
    let inline (>=&) a b = a >= b


let now = System.DateTime.Now
let tom = now.AddDays(1.)

(now =  now) |> printfn "%b"
(now =& now) |> printfn "%b"
(now <>  tom) |> printfn "%b"
(now <>& tom) |> printfn "%b"
(now <  tom) |> printfn "%b"
(now <& tom) |> printfn "%b"