fact: Fixpoint for_all_family_prod (F : I → Type) {ℓ : list I} (P : ∀ i, F i -> Type) : FamilyProd F ℓ → Type := match ℓ with | nil => λ _, True | i :: _ => λ '(x,s), P i x ∧ for_all_family_prod F P s end.
imports: HoTT.Utf8Minimal HoTT.Basics.Overture Types.Unit HoTT.Classes.implementations.list