Useful but limited polymorphism

lib/list.tri

@@ -291,3 +291,151 @@ zipWith_ self f xs ys =
         ys)
     xs
 zipWith = f xs ys : y zipWith_ f xs ys
+
+-- ---------------------------------------------------------------------------
+-- View facts
+--
+-- Value-level metadata consumed by View tooling. These facts are ordinary Tree
+-- Calculus data, not host-side assumptions and not part of the public stdlib
+-- API exported by module manifests.
+-- ---------------------------------------------------------------------------
+
+viewFacts =
+  [(factsFact "matchList" factsTrusted
+     (factsForall [0 1]
+       (factsFn
+         [(factsVar 1)
+          (factsFn
+            [(factsVar 0) (factsList (factsVar 0))]
+            (factsVar 1))
+          (factsList (factsVar 0))]
+         (factsVar 1))))
+   (factsFact "emptyList?" factsTrusted
+     (factsForall [0]
+       (factsFn [(factsList (factsVar 0))] factsBool)))
+   (factsFact "tail" factsTrusted
+     (factsForall [0]
+       (factsFn [(factsList (factsVar 0))] (factsList (factsVar 0)))))
+   (factsFact "append" factsTrusted
+     (factsForall [0]
+       (factsFn
+         [(factsList (factsVar 0))
+          (factsList (factsVar 0))]
+         (factsList (factsVar 0)))))
+   (factsFact "lExist?" factsTrusted
+     (factsForall [0]
+       (factsFn [(factsVar 0) (factsList (factsVar 0))] factsBool)))
+   (factsFact "map" factsTrusted
+     (factsForall [0 1]
+       (factsFn
+         [(factsFn [(factsVar 0)] (factsVar 1))
+          (factsList (factsVar 0))]
+         (factsList (factsVar 1)))))
+   (factsFact "filter" factsTrusted
+     (factsForall [0]
+       (factsFn
+         [(factsFn [(factsVar 0)] factsBool)
+          (factsList (factsVar 0))]
+         (factsList (factsVar 0)))))
+   (factsFact "foldl" factsTrusted
+     (factsForall [0 1]
+       (factsFn
+         [(factsFn [(factsVar 1) (factsVar 0)] (factsVar 1))
+          (factsVar 1)
+          (factsList (factsVar 0))]
+         (factsVar 1))))
+   (factsFact "foldr" factsTrusted
+     (factsForall [0 1]
+       (factsFn
+         [(factsFn [(factsVar 1) (factsVar 0)] (factsVar 1))
+          (factsVar 1)
+          (factsList (factsVar 0))]
+         (factsVar 1))))
+   (factsFact "length" factsTrusted
+     (factsForall [0]
+       (factsFn [(factsList (factsVar 0))] factsByte)))
+   (factsFact "reverse" factsTrusted
+     (factsForall [0]
+       (factsFn [(factsList (factsVar 0))] (factsList (factsVar 0)))))
+   (factsFact "snoc" factsTrusted
+     (factsForall [0]
+       (factsFn [(factsVar 0) (factsList (factsVar 0))] (factsList (factsVar 0)))))
+   (factsFact "count" factsTrusted
+     (factsForall [0]
+       (factsFn [(factsVar 0) (factsList (factsVar 0))] factsByte)))
+   (factsFact "all?" factsTrusted
+     (factsForall [0]
+       (factsFn [(factsFn [(factsVar 0)] factsBool) (factsList (factsVar 0))] factsBool)))
+   (factsFact "any?" factsTrusted
+     (factsForall [0]
+       (factsFn [(factsFn [(factsVar 0)] factsBool) (factsList (factsVar 0))] factsBool)))
+   (factsFact "intersect" factsTrusted
+     (factsForall [0]
+       (factsFn [(factsList (factsVar 0)) (factsList (factsVar 0))] (factsList (factsVar 0)))))
+   (factsFact "headMaybe" factsTrusted
+     (factsForall [0]
+       (factsFn [(factsList (factsVar 0))] (factsMaybe (factsVar 0)))))
+   (factsFact "lastMaybe" factsTrusted
+     (factsForall [0]
+       (factsFn [(factsList (factsVar 0))] (factsMaybe (factsVar 0)))))
+   (factsFact "nthMaybe" factsTrusted
+     (factsForall [0]
+       (factsFn [factsByte (factsList (factsVar 0))] (factsMaybe (factsVar 0)))))
+   (factsFact "take" factsTrusted
+     (factsForall [0]
+       (factsFn [factsByte (factsList (factsVar 0))] (factsList (factsVar 0)))))
+   (factsFact "drop" factsTrusted
+     (factsForall [0]
+       (factsFn [factsByte (factsList (factsVar 0))] (factsList (factsVar 0)))))
+   (factsFact "splitAt" factsTrusted
+     (factsForall [0]
+       (factsFn
+         [factsByte (factsList (factsVar 0))]
+         (factsPair (factsList (factsVar 0)) (factsList (factsVar 0))))))
+   (factsFact "concatMap" factsTrusted
+     (factsForall [0 1]
+       (factsFn
+         [(factsFn [(factsVar 0)] (factsList (factsVar 1)))
+          (factsList (factsVar 0))]
+         (factsList (factsVar 1)))))
+   (factsFact "find" factsTrusted
+     (factsForall [0]
+       (factsFn
+         [(factsFn [(factsVar 0)] factsBool)
+          (factsList (factsVar 0))]
+         (factsMaybe (factsVar 0)))))
+   (factsFact "partition" factsTrusted
+     (factsForall [0]
+       (factsFn
+         [(factsFn [(factsVar 0)] factsBool)
+          (factsList (factsVar 0))]
+         (factsPair (factsList (factsVar 0)) (factsList (factsVar 0))))))
+   (factsFact "strLength" factsTrusted
+     (factsFn [factsString] factsByte))
+   (factsFact "strAppend" factsTrusted
+     (factsFn [factsString factsString] factsString))
+   (factsFact "strEq?" factsTrusted
+     (factsFn [factsString factsString] factsBool))
+   (factsFact "strEmpty?" factsTrusted
+     (factsFn [factsString] factsBool))
+   (factsFact "startsWith?" factsTrusted
+     (factsFn [factsString factsString] factsBool))
+   (factsFact "endsWith?" factsTrusted
+     (factsFn [factsString factsString] factsBool))
+   (factsFact "contains?" factsTrusted
+     (factsFn [factsString factsString] factsBool))
+   (factsFact "lines" factsTrusted
+     (factsFn [factsString] (factsList factsString)))
+   (factsFact "unlines" factsTrusted
+     (factsFn [(factsList factsString)] factsString))
+   (factsFact "words" factsTrusted
+     (factsFn [factsString] (factsList factsString)))
+   (factsFact "unwords" factsTrusted
+     (factsFn [(factsList factsString)] factsString))
+   (factsFact "zipWith" factsTrusted
+     (factsForall [0 1 2]
+       (factsFn
+         [(factsFn [(factsVar 0) (factsVar 1)] (factsVar 2))
+          (factsList (factsVar 0))
+          (factsList (factsVar 1))]
+         (factsList (factsVar 2)))))]