let G1, G2, G3 be WGraph; :: thesis: for F1 being PGraphMapping of G1,G2

for F2 being PGraphMapping of G2,G3 st F1 is weight-preserving & F2 is weight-preserving holds

F2 * F1 is weight-preserving

let F1 be PGraphMapping of G1,G2; :: thesis: for F2 being PGraphMapping of G2,G3 st F1 is weight-preserving & F2 is weight-preserving holds

F2 * F1 is weight-preserving

let F2 be PGraphMapping of G2,G3; :: thesis: ( F1 is weight-preserving & F2 is weight-preserving implies F2 * F1 is weight-preserving )

assume A1: ( F1 is weight-preserving & F2 is weight-preserving ) ; :: thesis: F2 * F1 is weight-preserving

thus (the_Weight_of G3) * ((F2 * F1) _E) = ((the_Weight_of G3) * (F2 _E)) * (F1 _E) by RELAT_1:36

.= (the_Weight_of G1) | (dom ((F2 * F1) _E)) by A1, Th1 ; :: according to GLIB_010:def 25 :: thesis: verum

for F2 being PGraphMapping of G2,G3 st F1 is weight-preserving & F2 is weight-preserving holds

F2 * F1 is weight-preserving

let F1 be PGraphMapping of G1,G2; :: thesis: for F2 being PGraphMapping of G2,G3 st F1 is weight-preserving & F2 is weight-preserving holds

F2 * F1 is weight-preserving

let F2 be PGraphMapping of G2,G3; :: thesis: ( F1 is weight-preserving & F2 is weight-preserving implies F2 * F1 is weight-preserving )

assume A1: ( F1 is weight-preserving & F2 is weight-preserving ) ; :: thesis: F2 * F1 is weight-preserving

thus (the_Weight_of G3) * ((F2 * F1) _E) = ((the_Weight_of G3) * (F2 _E)) * (F1 _E) by RELAT_1:36

.= (the_Weight_of G1) | (dom ((F2 * F1) _E)) by A1, Th1 ; :: according to GLIB_010:def 25 :: thesis: verum