let n, i, j be Nat; :: thesis: ( i in Seg n & j in Seg n & i < j implies ex ODD, EVEN being finite set st
( EVEN = { p where p is Element of Permutations n : p is even } & ODD = { q where q is Element of Permutations n : q is odd } & EVEN /\ ODD = {} & EVEN \/ ODD = Permutations n & ex PERM being Function of EVEN,ODD ex perm being Element of Permutations n st
( perm is being_transposition & perm . i = j & dom PERM = EVEN & PERM is bijective & ( for p being Element of Permutations n st p in EVEN holds
PERM . p = p * perm ) ) ) )

assume that
A1: i in Seg n and
A2: j in Seg n and
A3: i < j ; :: thesis: ex ODD, EVEN being finite set st
( EVEN = { p where p is Element of Permutations n : p is even } & ODD = { q where q is Element of Permutations n : q is odd } & EVEN /\ ODD = {} & EVEN \/ ODD = Permutations n & ex PERM being Function of EVEN,ODD ex perm being Element of Permutations n st
( perm is being_transposition & perm . i = j & dom PERM = EVEN & PERM is bijective & ( for p being Element of Permutations n st p in EVEN holds
PERM . p = p * perm ) ) )

set P = Permutations n;
consider tr being Element of Permutations n such that
A4: tr is being_transposition and
A5: tr . i = j by A1, A2, A3, Th16;
{i,j} in 2Set (Seg n) by A1, A2, A3, Th1;
then reconsider n2 = n - 2 as Nat by Th2, NAT_1:21, NAT_1:23;
set ODD = { q where q is Element of Permutations n : q is odd } ;
set EVEN = { p where p is Element of Permutations n : p is even } ;
A6: { p where p is Element of Permutations n : p is even } c= Permutations n
proof
let x be object ; :: according to TARSKI:def 3 :: thesis: ( not x in { p where p is Element of Permutations n : p is even } or x in Permutations n )
assume x in { p where p is Element of Permutations n : p is even } ; :: thesis: x in Permutations n
then ex p being Element of Permutations n st
( p = x & p is even ) ;
hence x in Permutations n ; :: thesis: verum
end;
A7: { q where q is Element of Permutations n : q is odd } c= Permutations n
proof
let x be object ; :: according to TARSKI:def 3 :: thesis: ( not x in { q where q is Element of Permutations n : q is odd } or x in Permutations n )
assume x in { q where q is Element of Permutations n : q is odd } ; :: thesis: x in Permutations n
then ex q being Element of Permutations n st
( q = x & q is odd ) ;
hence x in Permutations n ; :: thesis: verum
end;
then reconsider O = { q where q is Element of Permutations n : q is odd } , E = { p where p is Element of Permutations n : p is even } as finite set by A6;
take O ; :: thesis: ex EVEN being finite set st
( EVEN = { p where p is Element of Permutations n : p is even } & O = { q where q is Element of Permutations n : q is odd } & EVEN /\ O = {} & EVEN \/ O = Permutations n & ex PERM being Function of EVEN,O ex perm being Element of Permutations n st
( perm is being_transposition & perm . i = j & dom PERM = EVEN & PERM is bijective & ( for p being Element of Permutations n st p in EVEN holds
PERM . p = p * perm ) ) )

take E ; :: thesis: ( E = { p where p is Element of Permutations n : p is even } & O = { q where q is Element of Permutations n : q is odd } & E /\ O = {} & E \/ O = Permutations n & ex PERM being Function of E,O ex perm being Element of Permutations n st
( perm is being_transposition & perm . i = j & dom PERM = E & PERM is bijective & ( for p being Element of Permutations n st p in E holds
PERM . p = p * perm ) ) )

thus ( E = { p where p is Element of Permutations n : p is even } & O = { q where q is Element of Permutations n : q is odd } ) ; :: thesis: ( E /\ O = {} & E \/ O = Permutations n & ex PERM being Function of E,O ex perm being Element of Permutations n st
( perm is being_transposition & perm . i = j & dom PERM = E & PERM is bijective & ( for p being Element of Permutations n st p in E holds
PERM . p = p * perm ) ) )

thus E /\ O = {} :: thesis: ( E \/ O = Permutations n & ex PERM being Function of E,O ex perm being Element of Permutations n st
( perm is being_transposition & perm . i = j & dom PERM = E & PERM is bijective & ( for p being Element of Permutations n st p in E holds
PERM . p = p * perm ) ) )
proof
assume E /\ O <> {} ; :: thesis: contradiction
then consider x being object such that
A8: x in E /\ O by XBOOLE_0:def 1;
x in O by A8, XBOOLE_0:def 4;
then A9: ex q being Element of Permutations n st
( q = x & q is odd ) ;
x in E by A8, XBOOLE_0:def 4;
then ex p being Element of Permutations n st
( p = x & p is even ) ;
hence contradiction by A9; :: thesis: verum
end;
thus E \/ O = Permutations n :: thesis: ex PERM being Function of E,O ex perm being Element of Permutations n st
( perm is being_transposition & perm . i = j & dom PERM = E & PERM is bijective & ( for p being Element of Permutations n st p in E holds
PERM . p = p * perm ) )
proof
thus E \/ O c= Permutations n by A6, A7, XBOOLE_1:8; :: according to XBOOLE_0:def 10 :: thesis: Permutations n c= E \/ O
let x be object ; :: according to TARSKI:def 3 :: thesis: ( not x in Permutations n or x in E \/ O )
assume x in Permutations n ; :: thesis: x in E \/ O
then reconsider p = x as Element of Permutations n ;
( p is even or p is odd ) ;
then ( p in E or p in O ) ;
hence x in E \/ O by XBOOLE_0:def 3; :: thesis: verum
end;
consider PE being Permutation of (Permutations n) such that
A10: for p being Element of Permutations n holds PE . p = p * tr by Th44;
set PERM = PE | E;
tr is Element of Permutations (n2 + 2) ;
then PE .: E = O by A4, A10, Th27, Th47;
then A11: rng (PE | E) = O by RELAT_1:115;
A12: dom PE = Permutations n by FUNCT_2:52;
then A13: dom (PE | E) = E by A6, RELAT_1:62;
then reconsider PERM = PE | E as Function of E,O by A11, FUNCT_2:1;
take PERM ; :: thesis: ex perm being Element of Permutations n st
( perm is being_transposition & perm . i = j & dom PERM = E & PERM is bijective & ( for p being Element of Permutations n st p in E holds
PERM . p = p * perm ) )

take tr ; :: thesis: ( tr is being_transposition & tr . i = j & dom PERM = E & PERM is bijective & ( for p being Element of Permutations n st p in E holds
PERM . p = p * tr ) )

( PERM is one-to-one & PERM is onto ) by A11, FUNCT_1:52, FUNCT_2:def 3;
hence ( tr is being_transposition & tr . i = j & dom PERM = E & PERM is bijective ) by A4, A5, A6, A12, RELAT_1:62; :: thesis: for p being Element of Permutations n st p in E holds
PERM . p = p * tr

let p be Element of Permutations n; :: thesis: ( p in E implies PERM . p = p * tr )
assume p in E ; :: thesis: PERM . p = p * tr
then PERM . p = PE . p by A13, FUNCT_1:47;
hence PERM . p = p * tr by A10; :: thesis: verum