∀ {T : Type u_1} [inst : CategoryTheory.Category.{v_1, u_1} T] {P : CategoryTheory.MorphismProperty T}
  (Q : CategoryTheory.MorphismProperty T) [inst_1 : Q.IsMultiplicative] {X Y : T} [inst_2 : P.IsStableUnderComposition]
  {f : X ⟶ Y} (hPf : P f)
  {X_1 Y_1 :
    CategoryTheory.MorphismProperty.Comma (CategoryTheory.Functor.id T) (CategoryTheory.Functor.fromPUnit X) P Q ⊤}
  (f_1 : X_1 ⟶ Y_1),
  ((CategoryTheory.MorphismProperty.Over.map Q hPf).map f_1).left =
    (CategoryTheory.MorphismProperty.Comma.Hom.hom f_1).left