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);
for f1 being morphism of (OrdC 1) holds f1 is Morphism of o1,o2let f1 be
morphism of
(OrdC 1);
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;
verum
end;
let a, b be Object of (OrdC 1); CAT_8:def 11 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
; 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
; ex p2 being Morphism of a,b st
( Hom (a,a) <> {} & Hom (a,b) <> {} & a,p1,p2 is_product_of a,b )
take
p2
; ( Hom (a,a) <> {} & Hom (a,b) <> {} & a,p1,p2 is_product_of a,b )
thus A5:
( Hom (a,a) <> {} & Hom (a,b) <> {} )
by A4; 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);
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;
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;
( 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)
<> {} )
;
( 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)
<> {}
;
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
;
( 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
;
( 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
;
for h1 being Morphism of c1,a st p1 * h1 = q1 & p2 * h1 = q2 holds
h = h1
let h1 be
Morphism of
c1,
a;
( p1 * h1 = q1 & p2 * h1 = q2 implies h = h1 )
assume
(
p1 * h1 = q1 &
p2 * h1 = q2 )
;
h = h1
thus
h = h1
by A1, TARSKI:def 1;
verum
end;
hence
a,p1,p2 is_product_of a,b
by A5, Def10; verum