fact: Fixpoint fin_beq {m n} (p : Fin.t m) (q : Fin.t n) := match p, q with | @Fin.F1 m', @Fin.F1 n' => Nat.eqb m' n' | Fin.FS _ _, Fin.F1 _ => false | Fin.F1 _, Fin.FS _ _ => false | Fin.FS _ p', Fin.FS _ q' => fin_beq p' q' end.
imports: Coq.Lists.List Coq.Strings.String Coq.Arith.Arith Coq.Logic.Eqdep_dec Fiat.Common.ilist Fiat.Common.ilist2