Metamath Proof Explorer


Theorem exidreslem

Description: Obsolete theorem, use 0gisid instead. Lemma for exidres and exidresid . (Contributed by Jeff Madsen, 8-Jun-2010) (Revised by Mario Carneiro, 23-Dec-2013) (New usage is discouraged.) (Proof modification is discouraged.)

Ref Expression
Hypotheses exidres.1 ⊢ X = ran ⁡ G
exidres.2 ⊢ U = GId ⁡ G
exidres.3 ⊢ H = G ↾ Y × Y
Assertion exidreslem ⊢ G ∈ Magma ∩ ExId ∧ Y ⊆ X ∧ U ∈ Y → U ∈ dom ⁡ dom ⁡ H ∧ ∀ x ∈ dom ⁡ dom ⁡ H U H x = x ∧ x H U = x

Proof

Step Hyp Ref Expression
1 exidres.1 ⊢ X = ran ⁡ G
2 exidres.2 ⊢ U = GId ⁡ G
3 exidres.3 ⊢ H = G ↾ Y × Y
4 3 dmeqi ⊢ dom ⁡ H = dom ⁡ G ↾ Y × Y
5 xpss12 ⊢ Y ⊆ X ∧ Y ⊆ X → Y × Y ⊆ X × X
6 5 anidms ⊢ Y ⊆ X → Y × Y ⊆ X × X
7 1 opidon2OLD ⊢ G ∈ Magma ∩ ExId → G : X × X ⟶ onto X
8 fof ⊢ G : X × X ⟶ onto X → G : X × X ⟶ X
9 fdm ⊢ G : X × X ⟶ X → dom ⁡ G = X × X
10 7 8 9 3syl ⊢ G ∈ Magma ∩ ExId → dom ⁡ G = X × X
11 10 sseq2d ⊢ G ∈ Magma ∩ ExId → Y × Y ⊆ dom ⁡ G ↔ Y × Y ⊆ X × X
12 6 11 imbitrrid ⊢ G ∈ Magma ∩ ExId → Y ⊆ X → Y × Y ⊆ dom ⁡ G
13 12 imp ⊢ G ∈ Magma ∩ ExId ∧ Y ⊆ X → Y × Y ⊆ dom ⁡ G
14 ssdmres ⊢ Y × Y ⊆ dom ⁡ G ↔ dom ⁡ G ↾ Y × Y = Y × Y
15 13 14 sylib ⊢ G ∈ Magma ∩ ExId ∧ Y ⊆ X → dom ⁡ G ↾ Y × Y = Y × Y
16 4 15 eqtrid ⊢ G ∈ Magma ∩ ExId ∧ Y ⊆ X → dom ⁡ H = Y × Y
17 16 dmeqd ⊢ G ∈ Magma ∩ ExId ∧ Y ⊆ X → dom ⁡ dom ⁡ H = dom ⁡ Y × Y
18 dmxpid ⊢ dom ⁡ Y × Y = Y
19 17 18 eqtrdi ⊢ G ∈ Magma ∩ ExId ∧ Y ⊆ X → dom ⁡ dom ⁡ H = Y
20 19 eleq2d ⊢ G ∈ Magma ∩ ExId ∧ Y ⊆ X → U ∈ dom ⁡ dom ⁡ H ↔ U ∈ Y
21 20 biimp3ar ⊢ G ∈ Magma ∩ ExId ∧ Y ⊆ X ∧ U ∈ Y → U ∈ dom ⁡ dom ⁡ H
22 ssel2 ⊢ Y ⊆ X ∧ x ∈ Y → x ∈ X
23 1 2 cmpidelt ⊢ G ∈ Magma ∩ ExId ∧ x ∈ X → U G x = x ∧ x G U = x
24 22 23 sylan2 ⊢ G ∈ Magma ∩ ExId ∧ Y ⊆ X ∧ x ∈ Y → U G x = x ∧ x G U = x
25 24 anassrs ⊢ G ∈ Magma ∩ ExId ∧ Y ⊆ X ∧ x ∈ Y → U G x = x ∧ x G U = x
26 25 adantrl ⊢ G ∈ Magma ∩ ExId ∧ Y ⊆ X ∧ U ∈ Y ∧ x ∈ Y → U G x = x ∧ x G U = x
27 3 oveqi ⊢ U H x = U G ↾ Y × Y x
28 ovres ⊢ U ∈ Y ∧ x ∈ Y → U G ↾ Y × Y x = U G x
29 27 28 eqtrid ⊢ U ∈ Y ∧ x ∈ Y → U H x = U G x
30 29 eqeq1d ⊢ U ∈ Y ∧ x ∈ Y → U H x = x ↔ U G x = x
31 3 oveqi ⊢ x H U = x G ↾ Y × Y U
32 ovres ⊢ x ∈ Y ∧ U ∈ Y → x G ↾ Y × Y U = x G U
33 31 32 eqtrid ⊢ x ∈ Y ∧ U ∈ Y → x H U = x G U
34 33 ancoms ⊢ U ∈ Y ∧ x ∈ Y → x H U = x G U
35 34 eqeq1d ⊢ U ∈ Y ∧ x ∈ Y → x H U = x ↔ x G U = x
36 30 35 anbi12d ⊢ U ∈ Y ∧ x ∈ Y → U H x = x ∧ x H U = x ↔ U G x = x ∧ x G U = x
37 36 adantl ⊢ G ∈ Magma ∩ ExId ∧ Y ⊆ X ∧ U ∈ Y ∧ x ∈ Y → U H x = x ∧ x H U = x ↔ U G x = x ∧ x G U = x
38 26 37 mpbird ⊢ G ∈ Magma ∩ ExId ∧ Y ⊆ X ∧ U ∈ Y ∧ x ∈ Y → U H x = x ∧ x H U = x
39 38 anassrs ⊢ G ∈ Magma ∩ ExId ∧ Y ⊆ X ∧ U ∈ Y ∧ x ∈ Y → U H x = x ∧ x H U = x
40 39 ralrimiva ⊢ G ∈ Magma ∩ ExId ∧ Y ⊆ X ∧ U ∈ Y → ∀ x ∈ Y U H x = x ∧ x H U = x
41 40 3impa ⊢ G ∈ Magma ∩ ExId ∧ Y ⊆ X ∧ U ∈ Y → ∀ x ∈ Y U H x = x ∧ x H U = x
42 13 3adant3 ⊢ G ∈ Magma ∩ ExId ∧ Y ⊆ X ∧ U ∈ Y → Y × Y ⊆ dom ⁡ G
43 42 14 sylib ⊢ G ∈ Magma ∩ ExId ∧ Y ⊆ X ∧ U ∈ Y → dom ⁡ G ↾ Y × Y = Y × Y
44 4 43 eqtrid ⊢ G ∈ Magma ∩ ExId ∧ Y ⊆ X ∧ U ∈ Y → dom ⁡ H = Y × Y
45 44 dmeqd ⊢ G ∈ Magma ∩ ExId ∧ Y ⊆ X ∧ U ∈ Y → dom ⁡ dom ⁡ H = dom ⁡ Y × Y
46 45 18 eqtrdi ⊢ G ∈ Magma ∩ ExId ∧ Y ⊆ X ∧ U ∈ Y → dom ⁡ dom ⁡ H = Y
47 41 46 raleqtrrdv ⊢ G ∈ Magma ∩ ExId ∧ Y ⊆ X ∧ U ∈ Y → ∀ x ∈ dom ⁡ dom ⁡ H U H x = x ∧ x H U = x
48 21 47 jca ⊢ G ∈ Magma ∩ ExId ∧ Y ⊆ X ∧ U ∈ Y → U ∈ dom ⁡ dom ⁡ H ∧ ∀ x ∈ dom ⁡ dom ⁡ H U H x = x ∧ x H U = x