mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-11 16:25:54 +03:00
10 lines
271 B
Plaintext
10 lines
271 B
Plaintext
Kind.reduce.ref
|
|
: ∀(maj: Bool)
|
|
∀(nam: String)
|
|
∀(val: Kind.Term)
|
|
Kind.Term
|
|
= λmaj λnam λval
|
|
let P = λx ∀(nam: String) ∀(val: Kind.Term) Kind.Term
|
|
let true = λnam λval (Kind.reduce maj val)
|
|
let false = Kind.ref
|
|
(~maj P true false nam val) |