Definition is_left_adjoint_slice_dom_mor : yf --> pr_cod_fib BP x z. Proof. use make_cod_fib_mor. - use BinProductArrow. + apply cod_mor. + exact g. - abstract (cbn ; rewrite BinProductPr1Commutes ; apply idpath). Defined.
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Core.Prelude. Require Import UniMath.CategoryTheory.Adjunctions.Core. Require Import UniMath.CategoryTheory.DisplayedCats.Core. Require Import UniMath.CategoryTheory.DisplayedCats.Codomain. Require Import UniMath.CategoryTheory.DisplayedCats.Codomain.FiberCod. Require Import UniMath.CategoryTheory.Limits.BinProducts.