Theorem symg2bas 19306

Description: The symmetric group on a pair is the symmetric group S₂ consisting of the identity and the transposition. Notice that this statement is valid for proper pairs only. In the case that both elements are identical, i.e., the pairs are actually singletons, this theorem would be about S₁, see Theorem symg1bas 19304. (Contributed by AV, 9-Dec-2018.) (Proof shortened by AV, 16-Jun-2022.)

Hypotheses

Ref	Expression
symg1bas.1	⊢ 𝐺 = (SymGrp‘𝐴)
symg1bas.2	⊢ 𝐵 = (Base‘𝐺)
symg2bas.0	⊢ 𝐴 = {𝐼, 𝐽}

Assertion

Ref	Expression
symg2bas	⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → 𝐵 = {{⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}, {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}})

Proof of Theorem symg2bas

Step	Hyp	Ref	Expression
1		eqid 2731	. . . . 5 ⊢ (SymGrp‘{𝐽}) = (SymGrp‘{𝐽})
2		eqid 2731	. . . . 5 ⊢ (Base‘(SymGrp‘{𝐽})) = (Base‘(SymGrp‘{𝐽}))
3		eqid 2731	. . . . 5 ⊢ {𝐽} = {𝐽}
4	1, 2, 3	symg1bas 19304	. . . 4 ⊢ (𝐽 ∈ 𝑊 → (Base‘(SymGrp‘{𝐽})) = {{⟨𝐽, 𝐽⟩}})
5	4	ad2antll 729	. . 3 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → (Base‘(SymGrp‘{𝐽})) = {{⟨𝐽, 𝐽⟩}})
6		symg1bas.2	. . . 4 ⊢ 𝐵 = (Base‘𝐺)
7		symg1bas.1	. . . . . 6 ⊢ 𝐺 = (SymGrp‘𝐴)
8		symg2bas.0	. . . . . . . 8 ⊢ 𝐴 = {𝐼, 𝐽}
9		df-pr 4579	. . . . . . . . 9 ⊢ {𝐼, 𝐽} = ({𝐼} ∪ {𝐽})
10		sneq 4586	. . . . . . . . . . . 12 ⊢ (𝐼 = 𝐽 → {𝐼} = {𝐽})
11	10	uneq1d 4117	. . . . . . . . . . 11 ⊢ (𝐼 = 𝐽 → ({𝐼} ∪ {𝐽}) = ({𝐽} ∪ {𝐽}))
12	11	adantr 480	. . . . . . . . . 10 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → ({𝐼} ∪ {𝐽}) = ({𝐽} ∪ {𝐽}))
13		unidm 4107	. . . . . . . . . 10 ⊢ ({𝐽} ∪ {𝐽}) = {𝐽}
14	12, 13	eqtrdi 2782	. . . . . . . . 9 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → ({𝐼} ∪ {𝐽}) = {𝐽})
15	9, 14	eqtrid 2778	. . . . . . . 8 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → {𝐼, 𝐽} = {𝐽})
16	8, 15	eqtrid 2778	. . . . . . 7 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → 𝐴 = {𝐽})
17	16	fveq2d 6826	. . . . . 6 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → (SymGrp‘𝐴) = (SymGrp‘{𝐽}))
18	7, 17	eqtrid 2778	. . . . 5 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → 𝐺 = (SymGrp‘{𝐽}))
19	18	fveq2d 6826	. . . 4 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → (Base‘𝐺) = (Base‘(SymGrp‘{𝐽})))
20	6, 19	eqtrid 2778	. . 3 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → 𝐵 = (Base‘(SymGrp‘{𝐽})))
21		id 22	. . . . . . . . 9 ⊢ (𝐼 = 𝐽 → 𝐼 = 𝐽)
22	21, 21	opeq12d 4833	. . . . . . . 8 ⊢ (𝐼 = 𝐽 → ⟨𝐼, 𝐼⟩ = ⟨𝐽, 𝐽⟩)
23	22	adantr 480	. . . . . . 7 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → ⟨𝐼, 𝐼⟩ = ⟨𝐽, 𝐽⟩)
24	23	preq1d 4692	. . . . . 6 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} = {⟨𝐽, 𝐽⟩, ⟨𝐽, 𝐽⟩})
25		eqid 2731	. . . . . . 7 ⊢ ⟨𝐽, 𝐽⟩ = ⟨𝐽, 𝐽⟩
26		opex 5404	. . . . . . . 8 ⊢ ⟨𝐽, 𝐽⟩ ∈ V
27	26, 26	preqsn 4814	. . . . . . 7 ⊢ ({⟨𝐽, 𝐽⟩, ⟨𝐽, 𝐽⟩} = {⟨𝐽, 𝐽⟩} ↔ (⟨𝐽, 𝐽⟩ = ⟨𝐽, 𝐽⟩ ∧ ⟨𝐽, 𝐽⟩ = ⟨𝐽, 𝐽⟩))
28	25, 25, 27	mpbir2an 711	. . . . . 6 ⊢ {⟨𝐽, 𝐽⟩, ⟨𝐽, 𝐽⟩} = {⟨𝐽, 𝐽⟩}
29	24, 28	eqtrdi 2782	. . . . 5 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} = {⟨𝐽, 𝐽⟩})
30		opeq1 4825	. . . . . . . 8 ⊢ (𝐼 = 𝐽 → ⟨𝐼, 𝐽⟩ = ⟨𝐽, 𝐽⟩)
31		opeq2 4826	. . . . . . . 8 ⊢ (𝐼 = 𝐽 → ⟨𝐽, 𝐼⟩ = ⟨𝐽, 𝐽⟩)
32	30, 31	preq12d 4694	. . . . . . 7 ⊢ (𝐼 = 𝐽 → {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩} = {⟨𝐽, 𝐽⟩, ⟨𝐽, 𝐽⟩})
33	32, 28	eqtrdi 2782	. . . . . 6 ⊢ (𝐼 = 𝐽 → {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩} = {⟨𝐽, 𝐽⟩})
34	33	adantr 480	. . . . 5 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩} = {⟨𝐽, 𝐽⟩})
35	29, 34	preq12d 4694	. . . 4 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → {{⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}, {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}} = {{⟨𝐽, 𝐽⟩}, {⟨𝐽, 𝐽⟩}})
36		eqid 2731	. . . . 5 ⊢ {⟨𝐽, 𝐽⟩} = {⟨𝐽, 𝐽⟩}
37		snex 5374	. . . . . 6 ⊢ {⟨𝐽, 𝐽⟩} ∈ V
38	37, 37	preqsn 4814	. . . . 5 ⊢ ({{⟨𝐽, 𝐽⟩}, {⟨𝐽, 𝐽⟩}} = {{⟨𝐽, 𝐽⟩}} ↔ ({⟨𝐽, 𝐽⟩} = {⟨𝐽, 𝐽⟩} ∧ {⟨𝐽, 𝐽⟩} = {⟨𝐽, 𝐽⟩}))
39	36, 36, 38	mpbir2an 711	. . . 4 ⊢ {{⟨𝐽, 𝐽⟩}, {⟨𝐽, 𝐽⟩}} = {{⟨𝐽, 𝐽⟩}}
40	35, 39	eqtrdi 2782	. . 3 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → {{⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}, {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}} = {{⟨𝐽, 𝐽⟩}})
41	5, 20, 40	3eqtr4d 2776	. 2 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → 𝐵 = {{⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}, {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}})
42	6	fvexi 6836	. . . 4 ⊢ 𝐵 ∈ V
43	42	a1i 11	. . 3 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → 𝐵 ∈ V)
44		neqne 2936	. . . . . . 7 ⊢ (¬ 𝐼 = 𝐽 → 𝐼 ≠ 𝐽)
45	44	anim2i 617	. . . . . 6 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) ∧ ¬ 𝐼 = 𝐽) → ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) ∧ 𝐼 ≠ 𝐽))
46		df-3an 1088	. . . . . 6 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊 ∧ 𝐼 ≠ 𝐽) ↔ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) ∧ 𝐼 ≠ 𝐽))
47	45, 46	sylibr 234	. . . . 5 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) ∧ ¬ 𝐼 = 𝐽) → (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊 ∧ 𝐼 ≠ 𝐽))
48	47	ancoms 458	. . . 4 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊 ∧ 𝐼 ≠ 𝐽))
49	7, 6, 8	symg2hash 19305	. . . 4 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊 ∧ 𝐼 ≠ 𝐽) → (♯‘𝐵) = 2)
50	48, 49	syl 17	. . 3 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → (♯‘𝐵) = 2)
51		id 22	. . . . . . . 8 ⊢ (𝐼 ∈ 𝑉 → 𝐼 ∈ 𝑉)
52	51	ancri 549	. . . . . . 7 ⊢ (𝐼 ∈ 𝑉 → (𝐼 ∈ 𝑉 ∧ 𝐼 ∈ 𝑉))
53		id 22	. . . . . . . 8 ⊢ (𝐽 ∈ 𝑊 → 𝐽 ∈ 𝑊)
54	53	ancri 549	. . . . . . 7 ⊢ (𝐽 ∈ 𝑊 → (𝐽 ∈ 𝑊 ∧ 𝐽 ∈ 𝑊))
55	52, 54	anim12i 613	. . . . . 6 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → ((𝐼 ∈ 𝑉 ∧ 𝐼 ∈ 𝑉) ∧ (𝐽 ∈ 𝑊 ∧ 𝐽 ∈ 𝑊)))
56		df-ne 2929	. . . . . . 7 ⊢ (𝐼 ≠ 𝐽 ↔ ¬ 𝐼 = 𝐽)
57		id 22	. . . . . . . 8 ⊢ (𝐼 ≠ 𝐽 → 𝐼 ≠ 𝐽)
58	57	ancri 549	. . . . . . 7 ⊢ (𝐼 ≠ 𝐽 → (𝐼 ≠ 𝐽 ∧ 𝐼 ≠ 𝐽))
59	56, 58	sylbir 235	. . . . . 6 ⊢ (¬ 𝐼 = 𝐽 → (𝐼 ≠ 𝐽 ∧ 𝐼 ≠ 𝐽))
60		f1oprg 6808	. . . . . . 7 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝐼 ∈ 𝑉) ∧ (𝐽 ∈ 𝑊 ∧ 𝐽 ∈ 𝑊)) → ((𝐼 ≠ 𝐽 ∧ 𝐼 ≠ 𝐽) → {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}:{𝐼, 𝐽}–1-1-onto→{𝐼, 𝐽}))
61	60	imp 406	. . . . . 6 ⊢ ((((𝐼 ∈ 𝑉 ∧ 𝐼 ∈ 𝑉) ∧ (𝐽 ∈ 𝑊 ∧ 𝐽 ∈ 𝑊)) ∧ (𝐼 ≠ 𝐽 ∧ 𝐼 ≠ 𝐽)) → {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}:{𝐼, 𝐽}–1-1-onto→{𝐼, 𝐽})
62	55, 59, 61	syl2anr 597	. . . . 5 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}:{𝐼, 𝐽}–1-1-onto→{𝐼, 𝐽})
63		eqidd 2732	. . . . . . 7 ⊢ (𝐴 = {𝐼, 𝐽} → {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} = {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩})
64		id 22	. . . . . . 7 ⊢ (𝐴 = {𝐼, 𝐽} → 𝐴 = {𝐼, 𝐽})
65	63, 64, 64	f1oeq123d 6757	. . . . . 6 ⊢ (𝐴 = {𝐼, 𝐽} → ({⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}:𝐴–1-1-onto→𝐴 ↔ {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}:{𝐼, 𝐽}–1-1-onto→{𝐼, 𝐽}))
66	8, 65	ax-mp 5	. . . . 5 ⊢ ({⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}:𝐴–1-1-onto→𝐴 ↔ {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}:{𝐼, 𝐽}–1-1-onto→{𝐼, 𝐽})
67	62, 66	sylibr 234	. . . 4 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}:𝐴–1-1-onto→𝐴)
68		prex 5375	. . . . 5 ⊢ {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} ∈ V
69	7, 6	elsymgbas2 19286	. . . . 5 ⊢ ({⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} ∈ V → ({⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} ∈ 𝐵 ↔ {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}:𝐴–1-1-onto→𝐴))
70	68, 69	ax-mp 5	. . . 4 ⊢ ({⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} ∈ 𝐵 ↔ {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}:𝐴–1-1-onto→𝐴)
71	67, 70	sylibr 234	. . 3 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} ∈ 𝐵)
72		f1oprswap 6807	. . . . . 6 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}:{𝐼, 𝐽}–1-1-onto→{𝐼, 𝐽})
73		eqidd 2732	. . . . . . . 8 ⊢ (𝐴 = {𝐼, 𝐽} → {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩} = {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩})
74	73, 64, 64	f1oeq123d 6757	. . . . . . 7 ⊢ (𝐴 = {𝐼, 𝐽} → ({⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}:𝐴–1-1-onto→𝐴 ↔ {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}:{𝐼, 𝐽}–1-1-onto→{𝐼, 𝐽}))
75	8, 74	ax-mp 5	. . . . . 6 ⊢ ({⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}:𝐴–1-1-onto→𝐴 ↔ {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}:{𝐼, 𝐽}–1-1-onto→{𝐼, 𝐽})
76	72, 75	sylibr 234	. . . . 5 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}:𝐴–1-1-onto→𝐴)
77	76	adantl 481	. . . 4 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}:𝐴–1-1-onto→𝐴)
78		prex 5375	. . . . 5 ⊢ {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩} ∈ V
79	7, 6	elsymgbas2 19286	. . . . 5 ⊢ ({⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩} ∈ V → ({⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩} ∈ 𝐵 ↔ {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}:𝐴–1-1-onto→𝐴))
80	78, 79	ax-mp 5	. . . 4 ⊢ ({⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩} ∈ 𝐵 ↔ {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}:𝐴–1-1-onto→𝐴)
81	77, 80	sylibr 234	. . 3 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩} ∈ 𝐵)
82		opex 5404	. . . . . 6 ⊢ ⟨𝐼, 𝐼⟩ ∈ V
83	82, 26	pm3.2i 470	. . . . 5 ⊢ (⟨𝐼, 𝐼⟩ ∈ V ∧ ⟨𝐽, 𝐽⟩ ∈ V)
84		opex 5404	. . . . . 6 ⊢ ⟨𝐼, 𝐽⟩ ∈ V
85		opex 5404	. . . . . 6 ⊢ ⟨𝐽, 𝐼⟩ ∈ V
86	84, 85	pm3.2i 470	. . . . 5 ⊢ (⟨𝐼, 𝐽⟩ ∈ V ∧ ⟨𝐽, 𝐼⟩ ∈ V)
87	83, 86	pm3.2i 470	. . . 4 ⊢ ((⟨𝐼, 𝐼⟩ ∈ V ∧ ⟨𝐽, 𝐽⟩ ∈ V) ∧ (⟨𝐼, 𝐽⟩ ∈ V ∧ ⟨𝐽, 𝐼⟩ ∈ V))
88		opthg2 5419	. . . . . . . . . . 11 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → (⟨𝐼, 𝐼⟩ = ⟨𝐼, 𝐽⟩ ↔ (𝐼 = 𝐼 ∧ 𝐼 = 𝐽)))
89		eqtr 2751	. . . . . . . . . . 11 ⊢ ((𝐼 = 𝐼 ∧ 𝐼 = 𝐽) → 𝐼 = 𝐽)
90	88, 89	biimtrdi 253	. . . . . . . . . 10 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → (⟨𝐼, 𝐼⟩ = ⟨𝐼, 𝐽⟩ → 𝐼 = 𝐽))
91	90	necon3d 2949	. . . . . . . . 9 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → (𝐼 ≠ 𝐽 → ⟨𝐼, 𝐼⟩ ≠ ⟨𝐼, 𝐽⟩))
92	91	com12 32	. . . . . . . 8 ⊢ (𝐼 ≠ 𝐽 → ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → ⟨𝐼, 𝐼⟩ ≠ ⟨𝐼, 𝐽⟩))
93	56, 92	sylbir 235	. . . . . . 7 ⊢ (¬ 𝐼 = 𝐽 → ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → ⟨𝐼, 𝐼⟩ ≠ ⟨𝐼, 𝐽⟩))
94	93	imp 406	. . . . . 6 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → ⟨𝐼, 𝐼⟩ ≠ ⟨𝐼, 𝐽⟩)
95	52	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → (𝐼 ∈ 𝑉 ∧ 𝐼 ∈ 𝑉))
96		opthg 5417	. . . . . . . . . . . 12 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐼 ∈ 𝑉) → (⟨𝐼, 𝐼⟩ = ⟨𝐽, 𝐼⟩ ↔ (𝐼 = 𝐽 ∧ 𝐼 = 𝐼)))
97	95, 96	syl 17	. . . . . . . . . . 11 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → (⟨𝐼, 𝐼⟩ = ⟨𝐽, 𝐼⟩ ↔ (𝐼 = 𝐽 ∧ 𝐼 = 𝐼)))
98		simpl 482	. . . . . . . . . . 11 ⊢ ((𝐼 = 𝐽 ∧ 𝐼 = 𝐼) → 𝐼 = 𝐽)
99	97, 98	biimtrdi 253	. . . . . . . . . 10 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → (⟨𝐼, 𝐼⟩ = ⟨𝐽, 𝐼⟩ → 𝐼 = 𝐽))
100	99	necon3d 2949	. . . . . . . . 9 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → (𝐼 ≠ 𝐽 → ⟨𝐼, 𝐼⟩ ≠ ⟨𝐽, 𝐼⟩))
101	100	com12 32	. . . . . . . 8 ⊢ (𝐼 ≠ 𝐽 → ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → ⟨𝐼, 𝐼⟩ ≠ ⟨𝐽, 𝐼⟩))
102	56, 101	sylbir 235	. . . . . . 7 ⊢ (¬ 𝐼 = 𝐽 → ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → ⟨𝐼, 𝐼⟩ ≠ ⟨𝐽, 𝐼⟩))
103	102	imp 406	. . . . . 6 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → ⟨𝐼, 𝐼⟩ ≠ ⟨𝐽, 𝐼⟩)
104	94, 103	jca 511	. . . . 5 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → (⟨𝐼, 𝐼⟩ ≠ ⟨𝐼, 𝐽⟩ ∧ ⟨𝐼, 𝐼⟩ ≠ ⟨𝐽, 𝐼⟩))
105	104	orcd 873	. . . 4 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → ((⟨𝐼, 𝐼⟩ ≠ ⟨𝐼, 𝐽⟩ ∧ ⟨𝐼, 𝐼⟩ ≠ ⟨𝐽, 𝐼⟩) ∨ (⟨𝐽, 𝐽⟩ ≠ ⟨𝐼, 𝐽⟩ ∧ ⟨𝐽, 𝐽⟩ ≠ ⟨𝐽, 𝐼⟩)))
106		prneimg 4806	. . . 4 ⊢ (((⟨𝐼, 𝐼⟩ ∈ V ∧ ⟨𝐽, 𝐽⟩ ∈ V) ∧ (⟨𝐼, 𝐽⟩ ∈ V ∧ ⟨𝐽, 𝐼⟩ ∈ V)) → (((⟨𝐼, 𝐼⟩ ≠ ⟨𝐼, 𝐽⟩ ∧ ⟨𝐼, 𝐼⟩ ≠ ⟨𝐽, 𝐼⟩) ∨ (⟨𝐽, 𝐽⟩ ≠ ⟨𝐼, 𝐽⟩ ∧ ⟨𝐽, 𝐽⟩ ≠ ⟨𝐽, 𝐼⟩)) → {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} ≠ {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}))
107	87, 105, 106	mpsyl 68	. . 3 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} ≠ {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩})
108		hash2prd 14382	. . . 4 ⊢ ((𝐵 ∈ V ∧ (♯‘𝐵) = 2) → (({⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} ∈ 𝐵 ∧ {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩} ∈ 𝐵 ∧ {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} ≠ {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}) → 𝐵 = {{⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}, {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}}))
109	108	imp 406	. . 3 ⊢ (((𝐵 ∈ V ∧ (♯‘𝐵) = 2) ∧ ({⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} ∈ 𝐵 ∧ {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩} ∈ 𝐵 ∧ {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} ≠ {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩})) → 𝐵 = {{⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}, {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}})
110	43, 50, 71, 81, 107, 109	syl23anc 1379	. 2 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → 𝐵 = {{⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}, {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}})
111	41, 110	pm2.61ian 811	1 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → 𝐵 = {{⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}, {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}})

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   ∨ wo 847   ∧ w3a 1086   = wceq 1541   ∈ wcel 2111   ≠ wne 2928  Vcvv 3436   ∪ cun 3900  {csn 4576  {cpr 4578  ⟨cop 4582  –1-1-onto→wf1o 6480  ‘cfv 6481  2c2 12180  ♯chash 14237  Basecbs 17120  SymGrpcsymg 19282

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2113  ax-9 2121  ax-10 2144  ax-11 2160  ax-12 2180  ax-ext 2703  ax-rep 5217  ax-sep 5234  ax-nul 5244  ax-pow 5303  ax-pr 5370  ax-un 7668  ax-cnex 11062  ax-resscn 11063  ax-1cn 11064  ax-icn 11065  ax-addcl 11066  ax-addrcl 11067  ax-mulcl 11068  ax-mulrcl 11069  ax-mulcom 11070  ax-addass 11071  ax-mulass 11072  ax-distr 11073  ax-i2m1 11074  ax-1ne0 11075  ax-1rid 11076  ax-rnegex 11077  ax-rrecex 11078  ax-cnre 11079  ax-pre-lttri 11080  ax-pre-lttrn 11081  ax-pre-ltadd 11082  ax-pre-mulgt0 11083

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2535  df-eu 2564  df-clab 2710  df-cleq 2723  df-clel 2806  df-nfc 2881  df-ne 2929  df-nel 3033  df-ral 3048  df-rex 3057  df-rmo 3346  df-reu 3347  df-rab 3396  df-v 3438  df-sbc 3742  df-csb 3851  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-pss 3922  df-nul 4284  df-if 4476  df-pw 4552  df-sn 4577  df-pr 4579  df-tp 4581  df-op 4583  df-uni 4860  df-int 4898  df-iun 4943  df-br 5092  df-opab 5154  df-mpt 5173  df-tr 5199  df-id 5511  df-eprel 5516  df-po 5524  df-so 5525  df-fr 5569  df-we 5571  df-xp 5622  df-rel 5623  df-cnv 5624  df-co 5625  df-dm 5626  df-rn 5627  df-res 5628  df-ima 5629  df-pred 6248  df-ord 6309  df-on 6310  df-lim 6311  df-suc 6312  df-iota 6437  df-fun 6483  df-fn 6484  df-f 6485  df-f1 6486  df-fo 6487  df-f1o 6488  df-fv 6489  df-riota 7303  df-ov 7349  df-oprab 7350  df-mpo 7351  df-om 7797  df-1st 7921  df-2nd 7922  df-frecs 8211  df-wrecs 8242  df-recs 8291  df-rdg 8329  df-1o 8385  df-2o 8386  df-oadd 8389  df-er 8622  df-map 8752  df-pm 8753  df-en 8870  df-dom 8871  df-sdom 8872  df-fin 8873  df-dju 9794  df-card 9832  df-pnf 11148  df-mnf 11149  df-xr 11150  df-ltxr 11151  df-le 11152  df-sub 11346  df-neg 11347  df-div 11775  df-nn 12126  df-2 12188  df-3 12189  df-4 12190  df-5 12191  df-6 12192  df-7 12193  df-8 12194  df-9 12195  df-n0 12382  df-xnn0 12455  df-z 12469  df-uz 12733  df-fz 13408  df-seq 13909  df-fac 14181  df-bc 14210  df-hash 14238  df-struct 17058  df-sets 17075  df-slot 17093  df-ndx 17105  df-base 17121  df-ress 17142  df-plusg 17174  df-tset 17180  df-efmnd 18777  df-symg 19283

This theorem is referenced by:  psgnprfval  19434  m2detleiblem1  22540  m2detleiblem5  22541  m2detleiblem6  22542  m2detleiblem3  22545  m2detleiblem4  22546  m2detleib  22547