Active pattern for working with Nullable in F#

gistfile1.txt

let (|HasValue|Null|) (x:System.Nullable<_>) =
    if x.HasValue then
        HasValue (x.Value)
    else
        Null

let f x = 
    match x with
    |   HasValue v -> v + 1
    |   Null -> 0