{A B C} (f : A -> B -> C) {a a' : A} (p : a = a') {b b' : B} (q : b = b') : PathCube (sq_ap (uncurry f) (sq_prod (hr, vr))) (sq_ap011 f p q) (sq_G1 (ap_uncurry _ _ _)) (sq_G1 (ap_uncurry _ _ _)) (sq_G1 (ap_uncurry _ _ _)) (sq_G1 (ap_uncurry _ _ _)). Proof. by destruct p, q. Defined.
Require Import Basics. Require Import Cubical.DPath. Require Import Cubical.PathSquare. Require Import Cubical.DPathSquare. Require Import Types.Paths Types.Prod.