Base WPF ViewModel in F#

SomethingViewModel.fs

type SomethingViewModel() as this =
    inherit ViewModelBase()
    let (<<+) (_ : unit) (e : Microsoft.FSharp.Quotations.Expr) =
        this.OnPropertyChanged e

    let mutable somePropertyValue = ""
    member x.SomeProperty
        with get() = somePropertyValue
        and set value = (somePropertyValue <- value) <<+ <@ x.SomeProperty @>

ViewModelBase.fs

open System
open System.ComponentModel
open Microsoft.FSharp.Quotations
open Microsoft.FSharp.Quotations.Patterns

type ViewModelBase() =
    let propertyChanged = new Event<_, _>()
    interface INotifyPropertyChanged with
        [<CLIEvent>]
        member x.PropertyChanged = propertyChanged.Publish

    abstract member OnPropertyChanged: string -> unit
    default x.OnPropertyChanged(propertyName : string) =
        propertyChanged.Trigger(x, new PropertyChangedEventArgs(propertyName))

    member x.OnPropertyChanged(expr : Expr) =
        let propName =
            match expr with
            | PropertyGet(a, b, list) -> b.Name
            | _ -> failwith "Not a valid property expression %A" expr
        x.OnPropertyChanged(propName)