Definition make_pseudomonic {B : bicat} {a b : B} {f : a --> b} (Hf₁ : faithful_1cell f) (Hf₂ : ∏ (z : B) (g₁ g₂ : z --> a) (αf : g₁ · f ==> g₂ · f) (Hαf : is_invertible_2cell αf), ∑ (α : g₁ ==> g₂), is_invertible_2cell α × α ▹ f = αf) : pseudomonic_1cell f := (Hf₁ ,, Hf₂).
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Core.Categories. Require Import UniMath.CategoryTheory.Core.Functors. Require Import UniMath.CategoryTheory.Core.Isos. Require Import UniMath.Bicategories.Core.Bicat. Import Bicat.Notations. Require Import UniMath.Bicategories.Core.Invertible_2cells.