mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-11 19:47:15 +03:00
11 lines
221 B
Plaintext
11 lines
221 B
Plaintext
HVM.print.many
|
|
: ∀(A: *)
|
|
∀(msgs: (List String))
|
|
∀(ret: A)
|
|
A
|
|
= λA λmsgs λret
|
|
let P = λx(A)
|
|
let cons = λmsg λmsgs (HVM.print A msg (HVM.print.many A msgs ret))
|
|
let nil = ret
|
|
(~msgs P cons nil)
|