type Id =
    Id of System.Guid
    with
        override this.ToString() = let (Id id) = this in string id
        static member op_Equality (a, b : Id) = a = b
        static member op_Inequality (a, b : Id) = a <> b