finnat_ind_beta_zero@{u} (P : forall n : nat, FinNat n -> Type@{u}) (z : forall n : nat, P n.+1 (zero_finnat n)) (s : forall (n : nat) (u : FinNat n), P n u -> P n.+1 (succ_finnat u)) (n : nat) : finnat_ind P z s (zero_finnat n) = z n. Proof. snrapply (transport2 _ (q:=idpath@{Set})). rapply path_ishprop. Defined.
Require Import Basics.Overture Basics.Tactics Basics.Trunc Basics.PathGroupoids Require Import Types.Empty Types.Sigma Types.Sum Types.Prod Types.Equiv. Require Import Spaces.Nat.Core. Require Import Finite.Fin.