Code refactoring: single case union deconstruction

[psfinaki]

Refactor this code:

type CustomerId = CustomerId of id: int

let ProcessCustomerId (cid: CustomerId) = 
    match cid with
    | CustomerId id -> printfn $"{id}"

into the following code:

type CustomerId = CustomerId of id: int

let ProcessCustomerId (CustomerId id) = 
    printfn $"{id}"

Thanks @vzarytovskii for the idea.