Метка записи Suit не определена. Пример из книги не компилируется

// Learn more about F# at http://fsharp.org
// https://docs.microsoft.com/ru-ru/dotnet/fsharp/language-reference/discriminated-unions
 
open System
 
let EXIT_SUCCESS = 0
 
// Размеченное объединение (Discriminated Union, DU) — это тип, представляющий собой набор значений, 
// относящийся к одному из нескольких четко определенных вариантов, каждый из которых может иметь 
// различные значения и типы. В объектно-ориентированной парадигме размеченное объединение можно 
// рассматривать как набор классов, унаследованных от общего базового класса. 
// В общем случае DU — это инструмент, используемый для построения сложных структур данных, 
// для создания моделей предметной области и для представления рекурсивных структур, 
// таких как тип данных Tree.
 
// В следующем коде представлены масть и достоинство игральной карты:
type Suit = Hearts | Clubs | Diamonds | Spades
 
type Rank =
    | Value of int
    | Ace
    | King
    | Queen
    | Jack
    static member GetAllRanks() = [ 
        yield Ace
        for i in 2 .. 10 do yield Value i
        yield Jack
        yield Queen
        yield King ]
 
// Как видим, размеченные объединения могут быть расширены посредством 
// свойств и методов. Список, представляющий все карты в колоде, может 
// быть вычислен следующим образом:
let fullDeck = [ 
    for suit in [ Hearts; Clubs; Diamonds; Spades] do
        for rank in Rank.GetAllRanks() do
            yield { Suit  = suit; Rank = rank } ]
 
 
// Приведенный ниже код объявляет фигуру размеченного объединения, которая может 
// иметь значения любого из трех вариантов: Rectangle, Circle и Prism. 
// Каждый вариант имеет другой набор полей. В Rectangle есть 
// два именованных поля типа float, которые имеют имена width и length. 
// В варианте Circle есть только одно именованное поле, radius. 
// В варианте Prism есть три поля, два из которых (width и height) называются полями. 
// Безымянные поля называются анонимными полями.
type Shape =
    | Rectangle of width : float * length : float
    | Circle of radius : float
    | Prism of width : float * float * height : float // Посередине анонимное поле
 
[<EntryPoint>]
let main argv =
 
    let rect = Rectangle(length = 1.3, width = 10.0)
    let circ = Circle (1.0)
    let prism = Prism(5., 2.0, height = 3.0)
 
 
    EXIT_SUCCESS

type PlayingCard = { Suit : Suit; Rank : Rank }