syntax - F# でのセットの交差

Question

この質問からの答えの1つを理解しようとしています。コードを次のように編集しましたが、返されるだけです[]

let rec intersect a b =
    let L1 = List.sort(a)
    let L2 = List.sort(b)
    match L1 with
    |h::t -> match L2 with
             |h2::t2 -> 
                 if h=h2 then h::(intersect t t2)
                 else if h>h2 then intersect t L2 else intersect L1 t2
             |[] -> []
    |[] -> [];;

intersect [1;2;3] [2;3;4]

交差する値のリスト (セット) を返すには、何を変更する必要がありますか?