т.е. даже так не получится? let GetSuitFormCard (card: PlayingCards) = match card with | ValueCard(_, s) -> s | с -> // cast to Suit