SubClass HasBinProd1 := RightAdj (Diag C).Structure IsCartesian1 : Type := 
  {Car_terminal1 :> Terminal1 C; Car_BP1 :> HasBinProd1}.Structure IsCartesian1 : Type := 
  {Car_terminal1 :> Terminal1 C; Car_BP1 :> HasBinProd1}.Structure IsCartesian1 : Type := 
  {Car_terminal1 :> Terminal1 C; Car_BP1 :> HasBinProd1}.Definition Obj_prod1 := CoUA_ob ua'.Definition Proj1_prod1 := Hom_l (CoUA_mor ua').Definition Proj2_prod1 := Hom_r (CoUA_mor ua').

Lemma Together1_r : Map2_congr_law Together1.