set C = OrdC 1;
consider f being morphism of (OrdC 1) such that
A1: ( f is identity & Ob (OrdC 1) = {f} & Mor (OrdC 1) = {f} ) by Th15;
A2: for o1, o2 being Object of (OrdC 1)
for f1 being morphism of (OrdC 1) holds f1 is Morphism of o1,o2
proof
let o1, o2 be Object of (OrdC 1); :: thesis: for f1 being morphism of (OrdC 1) holds f1 is Morphism of o1,o2
let f1 be morphism of (OrdC 1); :: thesis: f1 is Morphism of o1,o2
A3: dom f1 = f by A1, TARSKI:def 1
.= o1 by A1, TARSKI:def 1 ;
cod f1 = f by A1, TARSKI:def 1
.= o2 by A1, TARSKI:def 1 ;
then f1 in Hom (o1,o2) by A3, CAT_7:20;
hence f1 is Morphism of o1,o2 by CAT_7:def 3; :: thesis: verum
end;
let a, b be Object of (OrdC 1); :: according to CAT_8:def 11 :: thesis: ex d being Object of (OrdC 1) ex p1 being Morphism of d,a ex p2 being Morphism of d,b st
( Hom (d,a) <> {} & Hom (d,b) <> {} & d,p1,p2 is_product_of a,b )

A4: a = f by A1, TARSKI:def 1
.= b by A1, TARSKI:def 1 ;
take a ; :: thesis: ex p1 being Morphism of a,a ex p2 being Morphism of a,b st
( Hom (a,a) <> {} & Hom (a,b) <> {} & a,p1,p2 is_product_of a,b )

reconsider p1 = f as Morphism of a,a by A2;
reconsider p2 = f as Morphism of a,b by A2;
take p1 ; :: thesis: ex p2 being Morphism of a,b st
( Hom (a,a) <> {} & Hom (a,b) <> {} & a,p1,p2 is_product_of a,b )

take p2 ; :: thesis: ( Hom (a,a) <> {} & Hom (a,b) <> {} & a,p1,p2 is_product_of a,b )
thus A5: ( Hom (a,a) <> {} & Hom (a,b) <> {} ) by A4; :: thesis: a,p1,p2 is_product_of a,b
for c1 being Object of (OrdC 1)
for q1 being Morphism of c1,a
for q2 being Morphism of c1,b st Hom (c1,a) <> {} & Hom (c1,b) <> {} holds
( Hom (c1,a) <> {} & ex h being Morphism of c1,a st
( p1 * h = q1 & p2 * h = q2 & ( for h1 being Morphism of c1,a st p1 * h1 = q1 & p2 * h1 = q2 holds
h = h1 ) ) )
proof
let c1 be Object of (OrdC 1); :: thesis: for q1 being Morphism of c1,a
for q2 being Morphism of c1,b st Hom (c1,a) <> {} & Hom (c1,b) <> {} holds
( Hom (c1,a) <> {} & ex h being Morphism of c1,a st
( p1 * h = q1 & p2 * h = q2 & ( for h1 being Morphism of c1,a st p1 * h1 = q1 & p2 * h1 = q2 holds
h = h1 ) ) )

let q1 be Morphism of c1,a; :: thesis: for q2 being Morphism of c1,b st Hom (c1,a) <> {} & Hom (c1,b) <> {} holds
( Hom (c1,a) <> {} & ex h being Morphism of c1,a st
( p1 * h = q1 & p2 * h = q2 & ( for h1 being Morphism of c1,a st p1 * h1 = q1 & p2 * h1 = q2 holds
h = h1 ) ) )

let q2 be Morphism of c1,b; :: thesis: ( Hom (c1,a) <> {} & Hom (c1,b) <> {} implies ( Hom (c1,a) <> {} & ex h being Morphism of c1,a st
( p1 * h = q1 & p2 * h = q2 & ( for h1 being Morphism of c1,a st p1 * h1 = q1 & p2 * h1 = q2 holds
h = h1 ) ) ) )

assume ( Hom (c1,a) <> {} & Hom (c1,b) <> {} ) ; :: thesis: ( Hom (c1,a) <> {} & ex h being Morphism of c1,a st
( p1 * h = q1 & p2 * h = q2 & ( for h1 being Morphism of c1,a st p1 * h1 = q1 & p2 * h1 = q2 holds
h = h1 ) ) )

c1 = f by A1, TARSKI:def 1
.= a by A1, TARSKI:def 1 ;
hence Hom (c1,a) <> {} ; :: thesis: ex h being Morphism of c1,a st
( p1 * h = q1 & p2 * h = q2 & ( for h1 being Morphism of c1,a st p1 * h1 = q1 & p2 * h1 = q2 holds
h = h1 ) )

reconsider h = f as Morphism of c1,a by A2;
take h ; :: thesis: ( p1 * h = q1 & p2 * h = q2 & ( for h1 being Morphism of c1,a st p1 * h1 = q1 & p2 * h1 = q2 holds
h = h1 ) )

thus p1 * h = f by A1, TARSKI:def 1
.= q1 by A1, TARSKI:def 1 ; :: thesis: ( p2 * h = q2 & ( for h1 being Morphism of c1,a st p1 * h1 = q1 & p2 * h1 = q2 holds
h = h1 ) )

thus p2 * h = f by A1, TARSKI:def 1
.= q2 by A1, TARSKI:def 1 ; :: thesis: for h1 being Morphism of c1,a st p1 * h1 = q1 & p2 * h1 = q2 holds
h = h1

let h1 be Morphism of c1,a; :: thesis: ( p1 * h1 = q1 & p2 * h1 = q2 implies h = h1 )
assume ( p1 * h1 = q1 & p2 * h1 = q2 ) ; :: thesis: h = h1
thus h = h1 by A1, TARSKI:def 1; :: thesis: verum
end;
hence a,p1,p2 is_product_of a,b by A5, Def10; :: thesis: verum