Theorem refrelredund4 38754

Description: The naive version of the definition of reflexive relation is redundant with respect to reflexive relation (see dfrefrel2 38630) 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 5638	. . . . 5 ⊢ ( I ∩ (dom 𝑅 × ran 𝑅)) ⊆ ( I ↾ dom 𝑅)
2		sstr2 3937	. . . . 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 615	. . 3 ⊢ ((( I ↾ dom 𝑅) ⊆ 𝑅 ∧ Rel 𝑅) → (( I ∩ (dom 𝑅 × ran 𝑅)) ⊆ 𝑅 ∧ Rel 𝑅))
5		dfrefrel2 38630	. . 3 ⊢ ( RefRel 𝑅 ↔ (( I ∩ (dom 𝑅 × ran 𝑅)) ⊆ 𝑅 ∧ Rel 𝑅))
6	4, 5	sylibr 234	. 2 ⊢ ((( I ↾ dom 𝑅) ⊆ 𝑅 ∧ Rel 𝑅) → RefRel 𝑅)
7		an12 645	. . 3 ⊢ (((( I ↾ dom 𝑅) ⊆ 𝑅 ∧ Rel 𝑅) ∧ ( RefRel 𝑅 ∧ SymRel 𝑅)) ↔ ( RefRel 𝑅 ∧ ((( I ↾ dom 𝑅) ⊆ 𝑅 ∧ Rel 𝑅) ∧ SymRel 𝑅)))
8		anandir 677	. . . . 5 ⊢ (((( I ↾ dom 𝑅) ⊆ 𝑅 ∧ ◡𝑅 ⊆ 𝑅) ∧ Rel 𝑅) ↔ ((( I ↾ dom 𝑅) ⊆ 𝑅 ∧ Rel 𝑅) ∧ (◡𝑅 ⊆ 𝑅 ∧ Rel 𝑅)))
9		refsymrel2 38686	. . . . 5 ⊢ (( RefRel 𝑅 ∧ SymRel 𝑅) ↔ ((( I ↾ dom 𝑅) ⊆ 𝑅 ∧ ◡𝑅 ⊆ 𝑅) ∧ Rel 𝑅))
10		dfsymrel2 38668	. . . . . 6 ⊢ ( SymRel 𝑅 ↔ (◡𝑅 ⊆ 𝑅 ∧ Rel 𝑅))
11	10	anbi2i 623	. . . . 5 ⊢ (((( I ↾ dom 𝑅) ⊆ 𝑅 ∧ Rel 𝑅) ∧ SymRel 𝑅) ↔ ((( I ↾ dom 𝑅) ⊆ 𝑅 ∧ Rel 𝑅) ∧ (◡𝑅 ⊆ 𝑅 ∧ Rel 𝑅)))
12	8, 9, 11	3bitr4i 303	. . . 4 ⊢ (( RefRel 𝑅 ∧ SymRel 𝑅) ↔ ((( I ↾ dom 𝑅) ⊆ 𝑅 ∧ Rel 𝑅) ∧ SymRel 𝑅))
13	12	anbi2i 623	. . 3 ⊢ (( RefRel 𝑅 ∧ ( RefRel 𝑅 ∧ SymRel 𝑅)) ↔ ( RefRel 𝑅 ∧ ((( I ↾ dom 𝑅) ⊆ 𝑅 ∧ Rel 𝑅) ∧ SymRel 𝑅)))
14	7, 13	bitr4i 278	. 2 ⊢ (((( I ↾ dom 𝑅) ⊆ 𝑅 ∧ Rel 𝑅) ∧ ( RefRel 𝑅 ∧ SymRel 𝑅)) ↔ ( RefRel 𝑅 ∧ ( RefRel 𝑅 ∧ SymRel 𝑅)))
15		df-redundp 38744	. 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 711	1 ⊢ redund ((( I ↾ dom 𝑅) ⊆ 𝑅 ∧ Rel 𝑅), RefRel 𝑅, ( RefRel 𝑅 ∧ SymRel 𝑅))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∩ cin 3897   ⊆ wss 3898   I cid 5515   × cxp 5619  ^◡ccnv 5620  dom cdm 5621  ran crn 5622   ↾ cres 5623  Rel wrel 5626   RefRel wrefrel 38251   SymRel wsymrel 38257   redund wredundp 38267

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 2115  ax-9 2123  ax-ext 2705  ax-sep 5238  ax-nul 5248  ax-pr 5374

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-sb 2068  df-clab 2712  df-cleq 2725  df-clel 2808  df-ral 3049  df-rex 3058  df-rab 3397  df-v 3439  df-dif 3901  df-un 3903  df-in 3905  df-ss 3915  df-nul 4283  df-if 4477  df-sn 4578  df-pr 4580  df-op 4584  df-br 5096  df-opab 5158  df-id 5516  df-xp 5627  df-rel 5628  df-cnv 5629  df-dm 5631  df-rn 5632  df-res 5633  df-refrel 38627  df-symrel 38659  df-redundp 38744

This theorem is referenced by:  refrelredund2  38755