| By: |
(RWO
(Thm* ll1,ll2:(Top List) List. concat(ll1 @ ll2) ~ (concat(ll1) @ concat(ll2))
(0)
THEN
(RWO Thm* l:Top List, ll:(Top List) List. concat([l / ll]) ~ (l @ concat(ll))
(0)
THEN
(Reduce 0)
THEN
(RWO Thm* l:T List. (l @ nil) ~ l 0)
THEN
(Fold `w-snds` 0) |