mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-11 20:47:25 +03:00
54 lines
1.3 KiB
Plaintext
54 lines
1.3 KiB
Plaintext
Kind.if.op2
|
|
: ∀(term: Kind.Term)
|
|
∀(P: *)
|
|
∀(Y:
|
|
∀(opr: Kind.Oper) ∀(fst: Kind.Term) ∀(snd: Kind.Term)
|
|
P
|
|
)
|
|
∀(N: ∀(val: Kind.Term) P)
|
|
P
|
|
= λterm λP λY λN
|
|
let P = λx
|
|
∀(Y:
|
|
∀(opr: Kind.Oper) ∀(fst: Kind.Term) ∀(snd: Kind.Term)
|
|
P
|
|
)
|
|
∀(N: ∀(val: Kind.Term) P)
|
|
P
|
|
let all = λnam λinp λbod λY λN (N (Kind.all nam inp bod))
|
|
let lam = λnam λbod λY λN (N (Kind.lam nam bod))
|
|
let app = λfun λarg λY λN (N (Kind.app fun arg))
|
|
let ann = λval λtyp λY λN (N (Kind.ann val typ))
|
|
let slf = λnam λbod λY λN (N (Kind.slf nam bod))
|
|
let ins = λval λY λN (N (Kind.ins val))
|
|
let ref = λnam λval λY λN (N (Kind.ref nam val))
|
|
let def = λnam λval λbod λY λN (N (Kind.def nam val bod))
|
|
let set = λY λN (N Kind.set)
|
|
let u60 = λY λN (N Kind.u60)
|
|
let num = λval λY λN (N (Kind.num val))
|
|
let op2 = λopr λfst λsnd λY λN (Y opr fst snd)
|
|
let mat = λnam λx λz λs λp λY λN (N (Kind.mat nam x z s p))
|
|
let txt = λlit λY λN (N (Kind.txt lit))
|
|
let hol = λnam λctx λY λN (N (Kind.hol nam ctx))
|
|
let var = λnam λidx λY λN (N (Kind.var nam idx))
|
|
(~term
|
|
P
|
|
all
|
|
lam
|
|
app
|
|
ann
|
|
slf
|
|
ins
|
|
ref
|
|
def
|
|
set
|
|
u60
|
|
num
|
|
op2
|
|
mat
|
|
txt
|
|
hol
|
|
var
|
|
Y
|
|
N
|
|
) |