Make cgen/seq for lists be used more often.

pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/infer/infer-unit.rkt

@@ -432,6 +432,10 @@
            #:when (subtype a b)
            empty]
 
+          ;; Lists delegate to sequences
+          [((ListSeq: s-seq) (ListSeq: t-seq))
+           (cgen/seq V X Y s-seq t-seq)]
+
           ;; refinements are erased to their bound
           [((Refinement: S _) T)
            (cg S T)]
@@ -555,10 +559,6 @@
           [((Set: t) (Sequence: (list t*)))
            (cg t t*)]
 
-          ;; Lists delegate to sequences
-          [((ListSeq: s-seq) (ListSeq: t-seq))
-           (cgen/seq V X Y s-seq t-seq)]
-
           ;; if we have two mu's, we rename them to have the same variable
           ;; and then compare the bodies
           ;; This relies on (B 0) only unifying with itself,