fact: Fixpoint Vforall_of_sig (A : Type) (P : A -> Prop) n (v : vector (sig P) n) : Vforall P (Vmap (@proj1_sig A P) v) := match v in vector _ n return Vforall P (Vmap (@proj1_sig A P) v) with | Vnil => I | Vcons a w => conj (@proj2_sig A P a) (Vforall_of_sig w) end.
imports: Coq(Vector Program Structures.Equalities Morphisms) CoLoR(LogicUtil NatUtil EqUtil ListUtil BoolUtil RelUtil)