{X} {a : X} {u v : idpath a = idpath a} (q : u = 1) (r : 1 = v) : Ehrnat_p1_pp (eh_p1 u) (eh_p1 v) (ehrnat_pp q r 1) (ulnat_pp q r) (urnat_pp q r) (ehrnat_p1 q) (ehrnat_p1 r) = ehrnat_p1 (q @ r). Proof. revert u q. snrapply (equiv_path_ind (equiv_path_inverse _)). by destruct r. Defined.
From HoTT Require Import Basics Types.