PowerAssert for F#

passert.fs

open System
open System.Linq.Expressions
open Microsoft.FSharp.Quotations
open FSharp.Quotations.Evaluator

let toLinq (expr : Expr<bool>) =
  let linq = expr.ToLinqExpressionUntyped()
  let call = linq :?> Expression<Func<unit, bool>>
  Expression.Lambda(call.Body) :?> Expression<Func<bool>>

let passert f = PowerAssert.PAssert.IsTrue (toLinq f)

[<EntryPoint>]
let main argv = 
    passert <@ 1 = 2 @>
    0