Metamath Proof Explorer


Theorem symgextf

Description: The extension of a permutation, fixing the additional element, is a function. (Contributed by AV, 6-Jan-2019)

Ref Expression
Hypotheses symgext.s 𝑆 = ( Base ‘ ( SymGrp ‘ ( 𝑁 ∖ { 𝐾 } ) ) )
symgext.e 𝐸 = ( 𝑥𝑁 ↦ if ( 𝑥 = 𝐾 , 𝐾 , ( 𝑍𝑥 ) ) )
Assertion symgextf ( ( 𝐾𝑁𝑍𝑆 ) → 𝐸 : 𝑁𝑁 )

Proof

Step Hyp Ref Expression
1 symgext.s 𝑆 = ( Base ‘ ( SymGrp ‘ ( 𝑁 ∖ { 𝐾 } ) ) )
2 symgext.e 𝐸 = ( 𝑥𝑁 ↦ if ( 𝑥 = 𝐾 , 𝐾 , ( 𝑍𝑥 ) ) )
3 simplll ( ( ( ( 𝐾𝑁𝑍𝑆 ) ∧ 𝑥𝑁 ) ∧ 𝑥 = 𝐾 ) → 𝐾𝑁 )
4 simpllr ( ( ( ( 𝐾𝑁𝑍𝑆 ) ∧ 𝑥𝑁 ) ∧ ¬ 𝑥 = 𝐾 ) → 𝑍𝑆 )
5 simpr ( ( ( 𝐾𝑁𝑍𝑆 ) ∧ 𝑥𝑁 ) → 𝑥𝑁 )
6 neqne ( ¬ 𝑥 = 𝐾𝑥𝐾 )
7 5 6 anim12i ( ( ( ( 𝐾𝑁𝑍𝑆 ) ∧ 𝑥𝑁 ) ∧ ¬ 𝑥 = 𝐾 ) → ( 𝑥𝑁𝑥𝐾 ) )
8 eldifsn ( 𝑥 ∈ ( 𝑁 ∖ { 𝐾 } ) ↔ ( 𝑥𝑁𝑥𝐾 ) )
9 7 8 sylibr ( ( ( ( 𝐾𝑁𝑍𝑆 ) ∧ 𝑥𝑁 ) ∧ ¬ 𝑥 = 𝐾 ) → 𝑥 ∈ ( 𝑁 ∖ { 𝐾 } ) )
10 eqid ( SymGrp ‘ ( 𝑁 ∖ { 𝐾 } ) ) = ( SymGrp ‘ ( 𝑁 ∖ { 𝐾 } ) )
11 10 1 symgfv ( ( 𝑍𝑆𝑥 ∈ ( 𝑁 ∖ { 𝐾 } ) ) → ( 𝑍𝑥 ) ∈ ( 𝑁 ∖ { 𝐾 } ) )
12 4 9 11 syl2anc ( ( ( ( 𝐾𝑁𝑍𝑆 ) ∧ 𝑥𝑁 ) ∧ ¬ 𝑥 = 𝐾 ) → ( 𝑍𝑥 ) ∈ ( 𝑁 ∖ { 𝐾 } ) )
13 12 eldifad ( ( ( ( 𝐾𝑁𝑍𝑆 ) ∧ 𝑥𝑁 ) ∧ ¬ 𝑥 = 𝐾 ) → ( 𝑍𝑥 ) ∈ 𝑁 )
14 3 13 ifclda ( ( ( 𝐾𝑁𝑍𝑆 ) ∧ 𝑥𝑁 ) → if ( 𝑥 = 𝐾 , 𝐾 , ( 𝑍𝑥 ) ) ∈ 𝑁 )
15 14 2 fmptd ( ( 𝐾𝑁𝑍𝑆 ) → 𝐸 : 𝑁𝑁 )