English
The constructor for Equivalence.CommShift: given a NatTrans.CommShift h, produce an Equivalence.CommShift A with the unit and counit data defined accordingly.
Русский
Конструктор для Equivalence.CommShift: при наличии NatTrans.CommShift h строится Equivalence.CommShift A с заданием единичной и контрогда единицы.
LaTeX
$$Given $h$, define $E.CommShift A$ by supplying $commShift_unit := h$ and $commShift_counit := Adjunction.CommShift.mk' E.toAdjunction A h$.$$
Lean4
/-- Constructor for `Equivalence.CommShift`. -/
theorem mk' (h : NatTrans.CommShift E.unitIso.hom A) : E.CommShift A
where
commShift_unit := h
commShift_counit := (Adjunction.CommShift.mk' E.toAdjunction A h).commShift_counit