Theorem refrelredund4 39467

Description: The naive version of the definition of reflexive relation is redundant with respect to reflexive relation (see dfrefrel2 39343) if the relation is symmetric as well. (Contributed by Peter Mazsa, 26-Oct-2022.)

Assertion

Ref	Expression
refrelredund4	⊢ redund ((( I ↾ dom 𝑅) ⊆ 𝑅 ∧ Rel 𝑅), RefRel 𝑅, ( RefRel 𝑅 ∧ SymRel 𝑅))

Proof of Theorem refrelredund4

Step	Hyp	Ref	Expression
1		inxpssres 5672	. . . . 5 ⊢ ( I ∩ (dom 𝑅 × ran 𝑅)) ⊆ ( I ↾ dom 𝑅)
2		sstr2 3938	. . . . 5 ⊢ (( I ∩ (dom 𝑅 × ran 𝑅)) ⊆ ( I ↾ dom 𝑅) → (( I ↾ dom 𝑅) ⊆ 𝑅 → ( I ∩ (dom 𝑅 × ran 𝑅)) ⊆ 𝑅))
3	1, 2	ax-mp 5	. . . 4 ⊢ (( I ↾ dom 𝑅) ⊆ 𝑅 → ( I ∩ (dom 𝑅 × ran 𝑅)) ⊆ 𝑅)
4	3	anim1i 627	. . 3 ⊢ ((( I ↾ dom 𝑅) ⊆ 𝑅 ∧ Rel 𝑅) → (( I ∩ (dom 𝑅 × ran 𝑅)) ⊆ 𝑅 ∧ Rel 𝑅))
5		dfrefrel2 39343	. . 3 ⊢ ( RefRel 𝑅 ↔ (( I ∩ (dom 𝑅 × ran 𝑅)) ⊆ 𝑅 ∧ Rel 𝑅))
6	4, 5	sylibr 237	. 2 ⊢ ((( I ↾ dom 𝑅) ⊆ 𝑅 ∧ Rel 𝑅) → RefRel 𝑅)
7		an12 658	. . 3 ⊢ (((( I ↾ dom 𝑅) ⊆ 𝑅 ∧ Rel 𝑅) ∧ ( RefRel 𝑅 ∧ SymRel 𝑅)) ↔ ( RefRel 𝑅 ∧ ((( I ↾ dom 𝑅) ⊆ 𝑅 ∧ Rel 𝑅) ∧ SymRel 𝑅)))
8		anandir 690	. . . . 5 ⊢ (((( I ↾ dom 𝑅) ⊆ 𝑅 ∧ ◡𝑅 ⊆ 𝑅) ∧ Rel 𝑅) ↔ ((( I ↾ dom 𝑅) ⊆ 𝑅 ∧ Rel 𝑅) ∧ (◡𝑅 ⊆ 𝑅 ∧ Rel 𝑅)))
9		refsymrel2 39399	. . . . 5 ⊢ (( RefRel 𝑅 ∧ SymRel 𝑅) ↔ ((( I ↾ dom 𝑅) ⊆ 𝑅 ∧ ◡𝑅 ⊆ 𝑅) ∧ Rel 𝑅))
10		dfsymrel2 39381	. . . . . 6 ⊢ ( SymRel 𝑅 ↔ (◡𝑅 ⊆ 𝑅 ∧ Rel 𝑅))
11	10	anbi2i 635	. . . . 5 ⊢ (((( I ↾ dom 𝑅) ⊆ 𝑅 ∧ Rel 𝑅) ∧ SymRel 𝑅) ↔ ((( I ↾ dom 𝑅) ⊆ 𝑅 ∧ Rel 𝑅) ∧ (◡𝑅 ⊆ 𝑅 ∧ Rel 𝑅)))
12	8, 9, 11	3bitr4i 306	. . . 4 ⊢ (( RefRel 𝑅 ∧ SymRel 𝑅) ↔ ((( I ↾ dom 𝑅) ⊆ 𝑅 ∧ Rel 𝑅) ∧ SymRel 𝑅))
13	12	anbi2i 635	. . 3 ⊢ (( RefRel 𝑅 ∧ ( RefRel 𝑅 ∧ SymRel 𝑅)) ↔ ( RefRel 𝑅 ∧ ((( I ↾ dom 𝑅) ⊆ 𝑅 ∧ Rel 𝑅) ∧ SymRel 𝑅)))
14	7, 13	bitr4i 281	. 2 ⊢ (((( I ↾ dom 𝑅) ⊆ 𝑅 ∧ Rel 𝑅) ∧ ( RefRel 𝑅 ∧ SymRel 𝑅)) ↔ ( RefRel 𝑅 ∧ ( RefRel 𝑅 ∧ SymRel 𝑅)))
15		df-redundp 39457	. 2 ⊢ ( redund ((( I ↾ dom 𝑅) ⊆ 𝑅 ∧ Rel 𝑅), RefRel 𝑅, ( RefRel 𝑅 ∧ SymRel 𝑅)) ↔ (((( I ↾ dom 𝑅) ⊆ 𝑅 ∧ Rel 𝑅) → RefRel 𝑅) ∧ (((( I ↾ dom 𝑅) ⊆ 𝑅 ∧ Rel 𝑅) ∧ ( RefRel 𝑅 ∧ SymRel 𝑅)) ↔ ( RefRel 𝑅 ∧ ( RefRel 𝑅 ∧ SymRel 𝑅)))))
16	6, 14, 15	mpbir2an 724	1 ⊢ redund ((( I ↾ dom 𝑅) ⊆ 𝑅 ∧ Rel 𝑅), RefRel 𝑅, ( RefRel 𝑅 ∧ SymRel 𝑅))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   ∩ cin 3898   ⊆ wss 3899   I cid 5549   × cxp 5653  ^◡ccnv 5654  dom cdm 5655  ran crn 5656   ↾ cres 5657  Rel wrel 5660   RefRel wrefrel 38937   SymRel wsymrel 38943   redund wredundp 38953

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-ext 2732  ax-sep 5251  ax-pr 5398

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-sb 2100  df-clab 2739  df-cleq 2752  df-clel 2835  df-ral 3077  df-rex 3087  df-rab 3413  df-v 3452  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-nul 4280  df-if 4483  df-sn 4585  df-pr 4587  df-op 4591  df-br 5104  df-opab 5168  df-id 5550  df-xp 5661  df-rel 5662  df-cnv 5663  df-dm 5665  df-rn 5666  df-res 5667  df-refrel 39340  df-symrel 39372  df-redundp 39457

This theorem is used by:  refrelredund2  39468