fact: Fixpoint nat_eq_transfer_refl (P : nat -> Type) (n : nat) : forall v : P n, nat_eq_transfer P n n v = inl v := match n return forall v : P n, nat_eq_transfer P n n v = inl v with | 0 => fun v => eq_refl | S n' => @nat_eq_transfer_refl (fun k => P (S k)) n' end.
imports: Coq.Setoids.Setoid Coq.Program.Program Coq.Program.Wf Coq.Arith.Wf_nat Coq.Classes.Morphisms Coq.Init.Wf Coq.Lists.SetoidList Coq.Arith.PeanoNat Fiat.Common.Coq__8_4__8_5__Compat