Lemma PathOverConstant_map1_map2 {X:Type} {x x':X} (p:x=x') {Z : Type} {z z' : Z} (q : z = z') : PathOverConstant_map2 (PathOverConstant_map1 p q) = q. Proof. now induction p. Defined.
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.Tactics. Require Import UniMath.MoreFoundations.PartA.