Захотелось объявить константу для использования в паттерн матчинге в том числе:

let constant1 = -1
let constant2 = -2
match x with
| constant1 -> ...
| constant2 -> ...

С разбегу не вышло, выходит что constant1 внутри match — местячковый идентификатор. Что посоветуете кроме такого варианта:

match x with
| v when v = constant1 -> ...
| v when v = constant2 -> ...