fact: Definition bandfmap {X Y : UU} (f : X -> Y) (P : X -> UU) (Q : Y -> UU) (fm : ∏ x : X, P x -> (Q (f x))) : (∑ x, P x) -> (∑ x, Q x) := λ xp, f (pr1 xp) ,, fm (pr1 xp) (pr2 xp).
imports: UniMath.Foundations.Preamble