λn. match_nat_type O (λp. p) n

Definition pred : nat -> nat := fun (n:nat) => match_nat_type (nat) O (fun (p:nat) => p) n

definition pred : nat -> nat := \lambda n : nat. (match_nat_type) (nat) (O) (\lambda p : nat. p) n

noncomputable def pred : (nat.nat) -> nat.nat := fun (n : nat.nat) , ((((nat.match_nat_type) (nat.nat)) ((nat.O) )) (fun (p : nat.nat) , p)) (n)

pred : [nat_sttfa.sttfa_nat -> nat_sttfa.sttfa_nat] = (LAMBDA(n:nat_sttfa.sttfa_nat):nat_sttfa.match_nat_type[nat_sttfa.sttfa_nat](nat_sttfa.sttfa_O)((LAMBDA(p:nat_sttfa.sttfa_nat):p))(n))

Printing for OpenTheory is not working at the moment.