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