По-видимому, нет логической версии побитового исключительного или оператора (^^^)... что делать?
(^^^)
Это обеспечивается оператором не равных <>.
<>
let inline xor a b = (a || b) && not (a && b)