Prelude.fs

[<AutoOpen>]
module Prelude

let (^) = (<|)
type CR = CompilationRepresentationAttribute
let [<Literal>] ModuleSuffix = CompilationRepresentationFlags.ModuleSuffix
type RQA = RequireQualifiedAccessAttribute

let inline flip f a b = f b a
let inline curry f a b = f(a, b)
let inline uncurry f (a, b) = f a b

let inline expect expected seen = 
    if expected <> seen then
        failwithf "internal error, unexpected state, expected %A, but seen %A" expected seen