∀ (X : Pointed) (Y : TwoP) (f : X ⟶ ((CategoryTheory.forget₂ TwoP Bipointed).comp bipointedToPointedSnd).obj Y),
  Option.elim (pointedToTwoPSnd.obj X).toBipointed.toProd.1 Y.toTwoPointing.toProd.1 f.toFun =
    Option.elim (pointedToTwoPSnd.obj X).toBipointed.toProd.1 Y.toTwoPointing.toProd.1 f.toFun