F# Array instantiates with 5 items but not with 6

Я новичок в F#, поэтому, возможно, упускаю что-то тривиальное, но вот так.

Это работает -

let monthsWith31Days = [| MonthType.January; 
                          MonthType.March;
                          MonthType.May;
                          MonthType.July;
                          MonthType.December |]

А это нет

let monthsWith31Days = [| MonthType.January; 
                          MonthType.March;
                          MonthType.May;
                          MonthType.July;
                          MonthType.August;
                          MonthType.December |]

Я заметил, что важно не само содержание, а количество элементов (даже если я меняю фактически используемые элементы). Проблема начинается, когда количество элементов превышает 5.

Вот какую ошибку я получаю, когда запускаю свои тесты NUnit -

System.ArgumentException: Значение не попадает в ожидаемый диапазон.

Есть идеи, что я упускаю?

Edit:

Полное определение типа (два типа связаны, поэтому показываю оба здесь) -

type public Month(monthType:MonthType, year:Year) = 
        member public this.Year 
            with get () = year
        member public this.MonthType 
            with get () = monthType

        member public this.GetDaysCount () = 
            let monthsWith31Days = [| MonthType.January; 
                                      MonthType.March;
                                      MonthType.May;
                                      MonthType.July;
                                      MonthType.August;
                                      MonthType.December |]

            let has31 = monthsWith31Days |> Array.filter(fun n -> (int)n = (int)this.monthType) |> Array.length

            if (has31 > 0)
            then 31
//            else if (this.MonthType = MonthType.February)
//            then (if this.Year.Leap then 29 
//                  else 28)
            else 30


    and public Year(ad:int) = 
        member public this.AD
            with get() = ad

        member public this.Months = Enum.GetValues(typeof<MonthType>).Cast().ToArray()
                                    |> Array.map(fun n -> new Month (n, this))

        member public this.GetMonth (index:int) = 
            (this.Months |> Array.filter(fun p-> (int)p.MonthType = index)).First()

        member public this.GetMonth (monthName:string) = 
            let requiredMonthType = Enum.Parse(typeof<MonthType>, monthName) |> unbox<MonthType>
            (this.Months |> Array.filter(fun p-> p.MonthType = requiredMonthType)).First()

        member public this.Leap = 
            if this.AD % 400 = 0 then true
            else if this.AD % 100 = 0 then false
            else if this.AD % 4 = 0 then true
            else false

        member this.DaysCount = if this.Leap then 366 else 365