Kind.if.ref
: ∀(term: Kind.Term)
  ∀(P: *)
  ∀(Y: ∀(nam: String) ∀(val: Kind.Term) P)
  ∀(N: ∀(val: Kind.Term) P)
  P
= λterm λP λY λN
  let P   = λx ∀(Y: ∀(nam: String) ∀(val: 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 (Y 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 (N (Kind.op2 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)