proposition: Proposition ump_product_auto4 (C : Category) `{@Cartesian C} (c d p q: C) (h : c ~> d) (f : d ~> p) (g : d ~> q) (k : c ~> p × q) : f ∘ h ≈ exl ∘ k -> g ∘ h ≈ exr ∘ k -> k ≈ (fork f g ∘ h).
proof: Proof. intros H1 H2. rewrite <- fork_comp. apply ump_product_auto1; symmetry; assumption. Qed.
imports: Category.Lib Category.Theory.Category Category.Theory.Functor Category.Theory.Natural.Transformation Category.Instance.Sets Category.Instance.Fun Category.Structure.Cartesian Category.Lib.Tactics2