Coq < Print nat_ind. nat_ind = [P:(nat->Prop); f:(P O); f0:((n:nat)(P n)->(P (S n)))] Fix F {F [n:nat] : (P n) := Cases n of O => f | (S n0) => (f0 n0 (F n0)) end} : (P:(nat->Prop))(P O)->((n:nat)(P n)->(P (S n)))->(n:nat)(P n)