fact: Record BoundedIndex (n : nat) (Bound : Vector.t A n) := { bindex : A; indexb : IndexBound bindex Bound }.
imports: Coq.Lists.List Coq.Strings.String Coq.Arith.Arith Coq.Logic.Eqdep_dec Fiat.Common.ilist Fiat.Common.ilist2