fact: Definition constr1 {X : UU} (P : X -> UU) {x x' : X} (e : x = x') : ∑ (f : P x -> P x'), ∑ (ee : ∏ p : P x, tpair _ x p = tpair _ x' (f p)), ∏ (pp : P x), maponpaths pr1 (ee pp) = e.
imports: UniMath.Foundations.Preamble