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