mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-11 17:56:48 +03:00
8 lines
213 B
Plaintext
8 lines
213 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) |