|
（伊莎贝尔·霍尔）
definition“ReducedRelation2 ReflPartialOrder==（让min=（List.find（%x.x:（snd`（（set-ReflPartialOrder）-{（x，x）}）））（映射fst-ReflPartialOrder））in（min，filter（%（x，y）.x~=最小值&y~=最小）ReflParticalOrder”）”
定义“generateConflicts5或mc==
[c Int（{m}×Y）Int（Y×{m}）.Y<-map（图像{z:或.fst z=m&snd z=m}）
（映射集（子列表（如果（Or`{m}）-{m}={}，那么（sorted_list_of_set（Domain Or）））else
sorted_list_of_set（Inter｛c``｛M｝| M？next1或｛M｝）））]“
函数conflictsFor2，其中“conflictsFor2 Or=（let（M，Or）=ReducedRelation2 Or in if M=None then[｛｝]
否则，设m=concat中的m[remdups（generateConflicts5（set Or）m c）.c<-冲突For2或]）“
value“映射（%n.listsum（映射（大小o冲突For2 o adj2PairList）（allReflPartialOrders n））[1..<7]
（*正确性定理*）
定理假设“N>0”表示“卡片（esOver{0..<N}）”=
listsum（映射（大小o remdups o冲突For2 o adj2PairList）（allReflPartialOrders N）“
| 