mirror of
https://github.com/c-cube/sidekick.git
synced 2025-12-06 11:15:43 -05:00
style
This commit is contained in:
parent
b35ca4496f
commit
0a14d556d9
1 changed files with 1 additions and 1 deletions
|
|
@ -142,7 +142,7 @@ let distinct_l tst l =
|
|||
| l ->
|
||||
(* turn into [and_{i<j} t_i != t_j] *)
|
||||
let cs =
|
||||
CCList.diagonal l |> List.map (fun (a,b) -> neq tst a b)
|
||||
CCList.diagonal l |> List.map (fun (a,b) -> neq tst a b)
|
||||
in
|
||||
and_l tst cs
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue