mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-11 17:46:40 +03:00
10 lines
293 B
Plaintext
10 lines
293 B
Plaintext
Kind.reduce.app
|
|
: ∀(maj: Bool)
|
|
∀(fun: Kind.Term)
|
|
∀(arg: Kind.Term)
|
|
Kind.Term
|
|
= λmaj λfun λarg
|
|
let P = ∀(arg: Kind.Term) Kind.Term
|
|
let Y = λnam λbod λarg (Kind.reduce maj (bod (Kind.reduce maj arg)))
|
|
let N = λfun λarg (Kind.app fun arg)
|
|
(Kind.if.lam fun P Y N arg) |