Metamath Proof Explorer


Theorem diaintclN

Description: The intersection of partial isomorphism A closed subspaces is a closed subspace. (Contributed by NM, 3-Dec-2013) (New usage is discouraged.)

Ref Expression
Hypotheses diaintcl.h
|- H = ( LHyp ` K )
diaintcl.i
|- I = ( ( DIsoA ` K ) ` W )
Assertion diaintclN
|- ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) -> |^| S e. ran I )

Proof

Step Hyp Ref Expression
1 diaintcl.h
 |-  H = ( LHyp ` K )
2 diaintcl.i
 |-  I = ( ( DIsoA ` K ) ` W )
3 1 2 diaf11N
 |-  ( ( K e. HL /\ W e. H ) -> I : dom I -1-1-onto-> ran I )
4 3 adantr
 |-  ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) -> I : dom I -1-1-onto-> ran I )
5 f1ofn
 |-  ( I : dom I -1-1-onto-> ran I -> I Fn dom I )
6 4 5 syl
 |-  ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) -> I Fn dom I )
7 cnvimass
 |-  ( `' I " S ) C_ dom I
8 fnssres
 |-  ( ( I Fn dom I /\ ( `' I " S ) C_ dom I ) -> ( I |` ( `' I " S ) ) Fn ( `' I " S ) )
9 6 7 8 sylancl
 |-  ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) -> ( I |` ( `' I " S ) ) Fn ( `' I " S ) )
10 fniinfv
 |-  ( ( I |` ( `' I " S ) ) Fn ( `' I " S ) -> |^|_ y e. ( `' I " S ) ( ( I |` ( `' I " S ) ) ` y ) = |^| ran ( I |` ( `' I " S ) ) )
11 9 10 syl
 |-  ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) -> |^|_ y e. ( `' I " S ) ( ( I |` ( `' I " S ) ) ` y ) = |^| ran ( I |` ( `' I " S ) ) )
12 df-ima
 |-  ( I " ( `' I " S ) ) = ran ( I |` ( `' I " S ) )
13 f1ofo
 |-  ( I : dom I -1-1-onto-> ran I -> I : dom I -onto-> ran I )
14 3 13 syl
 |-  ( ( K e. HL /\ W e. H ) -> I : dom I -onto-> ran I )
15 14 adantr
 |-  ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) -> I : dom I -onto-> ran I )
16 simprl
 |-  ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) -> S C_ ran I )
17 foimacnv
 |-  ( ( I : dom I -onto-> ran I /\ S C_ ran I ) -> ( I " ( `' I " S ) ) = S )
18 15 16 17 syl2anc
 |-  ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) -> ( I " ( `' I " S ) ) = S )
19 12 18 eqtr3id
 |-  ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) -> ran ( I |` ( `' I " S ) ) = S )
20 19 inteqd
 |-  ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) -> |^| ran ( I |` ( `' I " S ) ) = |^| S )
21 11 20 eqtrd
 |-  ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) -> |^|_ y e. ( `' I " S ) ( ( I |` ( `' I " S ) ) ` y ) = |^| S )
22 simpl
 |-  ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) -> ( K e. HL /\ W e. H ) )
23 7 a1i
 |-  ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) -> ( `' I " S ) C_ dom I )
24 simprr
 |-  ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) -> S =/= (/) )
25 n0
 |-  ( S =/= (/) <-> E. y y e. S )
26 24 25 sylib
 |-  ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) -> E. y y e. S )
27 16 sselda
 |-  ( ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) /\ y e. S ) -> y e. ran I )
28 3 ad2antrr
 |-  ( ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) /\ y e. S ) -> I : dom I -1-1-onto-> ran I )
29 28 5 syl
 |-  ( ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) /\ y e. S ) -> I Fn dom I )
30 fvelrnb
 |-  ( I Fn dom I -> ( y e. ran I <-> E. x e. dom I ( I ` x ) = y ) )
31 29 30 syl
 |-  ( ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) /\ y e. S ) -> ( y e. ran I <-> E. x e. dom I ( I ` x ) = y ) )
32 27 31 mpbid
 |-  ( ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) /\ y e. S ) -> E. x e. dom I ( I ` x ) = y )
33 f1ofun
 |-  ( I : dom I -1-1-onto-> ran I -> Fun I )
34 3 33 syl
 |-  ( ( K e. HL /\ W e. H ) -> Fun I )
35 34 adantr
 |-  ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) -> Fun I )
36 fvimacnv
 |-  ( ( Fun I /\ x e. dom I ) -> ( ( I ` x ) e. S <-> x e. ( `' I " S ) ) )
37 35 36 sylan
 |-  ( ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) /\ x e. dom I ) -> ( ( I ` x ) e. S <-> x e. ( `' I " S ) ) )
38 ne0i
 |-  ( x e. ( `' I " S ) -> ( `' I " S ) =/= (/) )
39 37 38 syl6bi
 |-  ( ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) /\ x e. dom I ) -> ( ( I ` x ) e. S -> ( `' I " S ) =/= (/) ) )
40 39 ex
 |-  ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) -> ( x e. dom I -> ( ( I ` x ) e. S -> ( `' I " S ) =/= (/) ) ) )
41 eleq1
 |-  ( ( I ` x ) = y -> ( ( I ` x ) e. S <-> y e. S ) )
42 41 biimprd
 |-  ( ( I ` x ) = y -> ( y e. S -> ( I ` x ) e. S ) )
43 42 imim1d
 |-  ( ( I ` x ) = y -> ( ( ( I ` x ) e. S -> ( `' I " S ) =/= (/) ) -> ( y e. S -> ( `' I " S ) =/= (/) ) ) )
44 40 43 syl9
 |-  ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) -> ( ( I ` x ) = y -> ( x e. dom I -> ( y e. S -> ( `' I " S ) =/= (/) ) ) ) )
45 44 com24
 |-  ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) -> ( y e. S -> ( x e. dom I -> ( ( I ` x ) = y -> ( `' I " S ) =/= (/) ) ) ) )
46 45 imp
 |-  ( ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) /\ y e. S ) -> ( x e. dom I -> ( ( I ` x ) = y -> ( `' I " S ) =/= (/) ) ) )
47 46 rexlimdv
 |-  ( ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) /\ y e. S ) -> ( E. x e. dom I ( I ` x ) = y -> ( `' I " S ) =/= (/) ) )
48 32 47 mpd
 |-  ( ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) /\ y e. S ) -> ( `' I " S ) =/= (/) )
49 26 48 exlimddv
 |-  ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) -> ( `' I " S ) =/= (/) )
50 eqid
 |-  ( glb ` K ) = ( glb ` K )
51 50 1 2 diaglbN
 |-  ( ( ( K e. HL /\ W e. H ) /\ ( ( `' I " S ) C_ dom I /\ ( `' I " S ) =/= (/) ) ) -> ( I ` ( ( glb ` K ) ` ( `' I " S ) ) ) = |^|_ y e. ( `' I " S ) ( I ` y ) )
52 22 23 49 51 syl12anc
 |-  ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) -> ( I ` ( ( glb ` K ) ` ( `' I " S ) ) ) = |^|_ y e. ( `' I " S ) ( I ` y ) )
53 fvres
 |-  ( y e. ( `' I " S ) -> ( ( I |` ( `' I " S ) ) ` y ) = ( I ` y ) )
54 53 iineq2i
 |-  |^|_ y e. ( `' I " S ) ( ( I |` ( `' I " S ) ) ` y ) = |^|_ y e. ( `' I " S ) ( I ` y )
55 52 54 eqtr4di
 |-  ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) -> ( I ` ( ( glb ` K ) ` ( `' I " S ) ) ) = |^|_ y e. ( `' I " S ) ( ( I |` ( `' I " S ) ) ` y ) )
56 hlclat
 |-  ( K e. HL -> K e. CLat )
57 56 ad2antrr
 |-  ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) -> K e. CLat )
58 eqid
 |-  ( Base ` K ) = ( Base ` K )
59 eqid
 |-  ( le ` K ) = ( le ` K )
60 58 59 1 2 diadm
 |-  ( ( K e. HL /\ W e. H ) -> dom I = { x e. ( Base ` K ) | x ( le ` K ) W } )
61 ssrab2
 |-  { x e. ( Base ` K ) | x ( le ` K ) W } C_ ( Base ` K )
62 60 61 eqsstrdi
 |-  ( ( K e. HL /\ W e. H ) -> dom I C_ ( Base ` K ) )
63 62 adantr
 |-  ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) -> dom I C_ ( Base ` K ) )
64 7 63 sstrid
 |-  ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) -> ( `' I " S ) C_ ( Base ` K ) )
65 58 50 clatglbcl
 |-  ( ( K e. CLat /\ ( `' I " S ) C_ ( Base ` K ) ) -> ( ( glb ` K ) ` ( `' I " S ) ) e. ( Base ` K ) )
66 57 64 65 syl2anc
 |-  ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) -> ( ( glb ` K ) ` ( `' I " S ) ) e. ( Base ` K ) )
67 n0
 |-  ( ( `' I " S ) =/= (/) <-> E. y y e. ( `' I " S ) )
68 49 67 sylib
 |-  ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) -> E. y y e. ( `' I " S ) )
69 hllat
 |-  ( K e. HL -> K e. Lat )
70 69 ad3antrrr
 |-  ( ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) /\ y e. ( `' I " S ) ) -> K e. Lat )
71 66 adantr
 |-  ( ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) /\ y e. ( `' I " S ) ) -> ( ( glb ` K ) ` ( `' I " S ) ) e. ( Base ` K ) )
72 64 sselda
 |-  ( ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) /\ y e. ( `' I " S ) ) -> y e. ( Base ` K ) )
73 58 1 lhpbase
 |-  ( W e. H -> W e. ( Base ` K ) )
74 73 ad3antlr
 |-  ( ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) /\ y e. ( `' I " S ) ) -> W e. ( Base ` K ) )
75 56 ad3antrrr
 |-  ( ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) /\ y e. ( `' I " S ) ) -> K e. CLat )
76 60 adantr
 |-  ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) -> dom I = { x e. ( Base ` K ) | x ( le ` K ) W } )
77 7 76 sseqtrid
 |-  ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) -> ( `' I " S ) C_ { x e. ( Base ` K ) | x ( le ` K ) W } )
78 77 61 sstrdi
 |-  ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) -> ( `' I " S ) C_ ( Base ` K ) )
79 78 adantr
 |-  ( ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) /\ y e. ( `' I " S ) ) -> ( `' I " S ) C_ ( Base ` K ) )
80 simpr
 |-  ( ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) /\ y e. ( `' I " S ) ) -> y e. ( `' I " S ) )
81 58 59 50 clatglble
 |-  ( ( K e. CLat /\ ( `' I " S ) C_ ( Base ` K ) /\ y e. ( `' I " S ) ) -> ( ( glb ` K ) ` ( `' I " S ) ) ( le ` K ) y )
82 75 79 80 81 syl3anc
 |-  ( ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) /\ y e. ( `' I " S ) ) -> ( ( glb ` K ) ` ( `' I " S ) ) ( le ` K ) y )
83 7 sseli
 |-  ( y e. ( `' I " S ) -> y e. dom I )
84 83 adantl
 |-  ( ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) /\ y e. ( `' I " S ) ) -> y e. dom I )
85 58 59 1 2 diaeldm
 |-  ( ( K e. HL /\ W e. H ) -> ( y e. dom I <-> ( y e. ( Base ` K ) /\ y ( le ` K ) W ) ) )
86 85 ad2antrr
 |-  ( ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) /\ y e. ( `' I " S ) ) -> ( y e. dom I <-> ( y e. ( Base ` K ) /\ y ( le ` K ) W ) ) )
87 84 86 mpbid
 |-  ( ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) /\ y e. ( `' I " S ) ) -> ( y e. ( Base ` K ) /\ y ( le ` K ) W ) )
88 87 simprd
 |-  ( ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) /\ y e. ( `' I " S ) ) -> y ( le ` K ) W )
89 58 59 70 71 72 74 82 88 lattrd
 |-  ( ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) /\ y e. ( `' I " S ) ) -> ( ( glb ` K ) ` ( `' I " S ) ) ( le ` K ) W )
90 68 89 exlimddv
 |-  ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) -> ( ( glb ` K ) ` ( `' I " S ) ) ( le ` K ) W )
91 58 59 1 2 diaeldm
 |-  ( ( K e. HL /\ W e. H ) -> ( ( ( glb ` K ) ` ( `' I " S ) ) e. dom I <-> ( ( ( glb ` K ) ` ( `' I " S ) ) e. ( Base ` K ) /\ ( ( glb ` K ) ` ( `' I " S ) ) ( le ` K ) W ) ) )
92 91 adantr
 |-  ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) -> ( ( ( glb ` K ) ` ( `' I " S ) ) e. dom I <-> ( ( ( glb ` K ) ` ( `' I " S ) ) e. ( Base ` K ) /\ ( ( glb ` K ) ` ( `' I " S ) ) ( le ` K ) W ) ) )
93 66 90 92 mpbir2and
 |-  ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) -> ( ( glb ` K ) ` ( `' I " S ) ) e. dom I )
94 1 2 diaclN
 |-  ( ( ( K e. HL /\ W e. H ) /\ ( ( glb ` K ) ` ( `' I " S ) ) e. dom I ) -> ( I ` ( ( glb ` K ) ` ( `' I " S ) ) ) e. ran I )
95 93 94 syldan
 |-  ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) -> ( I ` ( ( glb ` K ) ` ( `' I " S ) ) ) e. ran I )
96 55 95 eqeltrrd
 |-  ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) -> |^|_ y e. ( `' I " S ) ( ( I |` ( `' I " S ) ) ` y ) e. ran I )
97 21 96 eqeltrrd
 |-  ( ( ( K e. HL /\ W e. H ) /\ ( S C_ ran I /\ S =/= (/) ) ) -> |^| S e. ran I )