mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-11 17:56:48 +03:00
12 lines
429 B
Plaintext
12 lines
429 B
Plaintext
Kind.Book.to_hvm.prelude : String = `
|
|
(U60.match 0 z s) = z
|
|
(U60.match n z s) = (s (- n 1))
|
|
|
|
(Str String.nil) = λP λcons λnil nil
|
|
(Str (String.cons x xs)) = λP λcons λnil (cons x (Str xs))
|
|
|
|
(Str.view str) = (str 0 λhλt(String.cons h (Str.view t)) String.nil)
|
|
(Strs.view strs) = (List.view λx(Str.view x) strs)
|
|
(List.view elem list) = (list 0 λhλt(List.cons (elem h) (List.view elem t)) List.nil)
|
|
`
|