mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-11 20:47:25 +03:00
8 lines
262 B
Plaintext
8 lines
262 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) |