This is an inofficial mirror of http://metamath.tirix.org for personal testing of a visualizer extension only.

Metamath Proof Explorer

Theorem mgcmntco

Description: A Galois connection like statement, for two functions with same range. (Contributed by Thierry Arnoux, 26-Apr-2024)

Ref Expression
Hypotheses mgcoval.1 
|- A = ( Base ` V )
mgcoval.2 
|- B = ( Base ` W )
mgcoval.3 
|- .<_ = ( le ` V )
mgcoval.4 
|- .c_ = ( le ` W )
mgcval.1 
|- H = ( V MGalConn W )
mgcval.2 
|- ( ph -> V e. Proset )
mgcval.3 
|- ( ph -> W e. Proset )
mgccole.1 
|- ( ph -> F H G )
mgcmntco.1 
|- C = ( Base ` X )
mgcmntco.2 
|- .< = ( le ` X )
mgcmntco.3 
|- ( ph -> X e. Proset )
mgcmntco.4 
|- ( ph -> K e. ( V Monot X ) )
mgcmntco.5 
|- ( ph -> L e. ( W Monot X ) )
Assertion mgcmntco 
|- ( ph -> ( A. x e. A ( K ` x ) .< ( L ` ( F ` x ) ) <-> A. y e. B ( K ` ( G ` y ) ) .< ( L ` y ) ) )

Proof

Step Hyp Ref Expression
1 mgcoval.1 
 |-  A = ( Base ` V )
2 mgcoval.2 
 |-  B = ( Base ` W )
3 mgcoval.3 
 |-  .<_ = ( le ` V )
4 mgcoval.4 
 |-  .c_ = ( le ` W )
5 mgcval.1 
 |-  H = ( V MGalConn W )
6 mgcval.2 
 |-  ( ph -> V e. Proset )
7 mgcval.3 
 |-  ( ph -> W e. Proset )
8 mgccole.1 
 |-  ( ph -> F H G )
9 mgcmntco.1 
 |-  C = ( Base ` X )
10 mgcmntco.2 
 |-  .< = ( le ` X )
11 mgcmntco.3 
 |-  ( ph -> X e. Proset )
12 mgcmntco.4 
 |-  ( ph -> K e. ( V Monot X ) )
13 mgcmntco.5 
 |-  ( ph -> L e. ( W Monot X ) )
14 11 ad2antrr 
 |-  ( ( ( ph /\ A. x e. A ( K ` x ) .< ( L ` ( F ` x ) ) ) /\ y e. B ) -> X e. Proset )
15 1 9 mntf 
 |-  ( ( V e. Proset /\ X e. Proset /\ K e. ( V Monot X ) ) -> K : A --> C )
16 6 11 12 15 syl3anc 
 |-  ( ph -> K : A --> C )
17 16 ad2antrr 
 |-  ( ( ( ph /\ A. x e. A ( K ` x ) .< ( L ` ( F ` x ) ) ) /\ y e. B ) -> K : A --> C )
18 1 2 3 4 5 6 7 8 mgcf2 
 |-  ( ph -> G : B --> A )
19 18 adantr 
 |-  ( ( ph /\ A. x e. A ( K ` x ) .< ( L ` ( F ` x ) ) ) -> G : B --> A )
20 19 ffvelcdmda 
 |-  ( ( ( ph /\ A. x e. A ( K ` x ) .< ( L ` ( F ` x ) ) ) /\ y e. B ) -> ( G ` y ) e. A )
21 17 20 ffvelcdmd 
 |-  ( ( ( ph /\ A. x e. A ( K ` x ) .< ( L ` ( F ` x ) ) ) /\ y e. B ) -> ( K ` ( G ` y ) ) e. C )
22 2 9 mntf 
 |-  ( ( W e. Proset /\ X e. Proset /\ L e. ( W Monot X ) ) -> L : B --> C )
23 7 11 13 22 syl3anc 
 |-  ( ph -> L : B --> C )
24 23 ad2antrr 
 |-  ( ( ( ph /\ A. x e. A ( K ` x ) .< ( L ` ( F ` x ) ) ) /\ y e. B ) -> L : B --> C )
25 1 2 3 4 5 6 7 8 mgcf1 
 |-  ( ph -> F : A --> B )
26 25 ad2antrr 
 |-  ( ( ( ph /\ A. x e. A ( K ` x ) .< ( L ` ( F ` x ) ) ) /\ y e. B ) -> F : A --> B )
27 26 20 ffvelcdmd 
 |-  ( ( ( ph /\ A. x e. A ( K ` x ) .< ( L ` ( F ` x ) ) ) /\ y e. B ) -> ( F ` ( G ` y ) ) e. B )
28 24 27 ffvelcdmd 
 |-  ( ( ( ph /\ A. x e. A ( K ` x ) .< ( L ` ( F ` x ) ) ) /\ y e. B ) -> ( L ` ( F ` ( G ` y ) ) ) e. C )
29 23 adantr 
 |-  ( ( ph /\ A. x e. A ( K ` x ) .< ( L ` ( F ` x ) ) ) -> L : B --> C )
30 29 ffvelcdmda 
 |-  ( ( ( ph /\ A. x e. A ( K ` x ) .< ( L ` ( F ` x ) ) ) /\ y e. B ) -> ( L ` y ) e. C )
31 18 ffvelcdmda 
 |-  ( ( ph /\ y e. B ) -> ( G ` y ) e. A )
32 fveq2 
 |-  ( x = ( G ` y ) -> ( K ` x ) = ( K ` ( G ` y ) ) )
33 2fveq3 
 |-  ( x = ( G ` y ) -> ( L ` ( F ` x ) ) = ( L ` ( F ` ( G ` y ) ) ) )
34 32 33 breq12d 
 |-  ( x = ( G ` y ) -> ( ( K ` x ) .< ( L ` ( F ` x ) ) <-> ( K ` ( G ` y ) ) .< ( L ` ( F ` ( G ` y ) ) ) ) )
35 34 adantl 
 |-  ( ( ( ph /\ y e. B ) /\ x = ( G ` y ) ) -> ( ( K ` x ) .< ( L ` ( F ` x ) ) <-> ( K ` ( G ` y ) ) .< ( L ` ( F ` ( G ` y ) ) ) ) )
36 31 35 rspcdv 
 |-  ( ( ph /\ y e. B ) -> ( A. x e. A ( K ` x ) .< ( L ` ( F ` x ) ) -> ( K ` ( G ` y ) ) .< ( L ` ( F ` ( G ` y ) ) ) ) )
37 36 imp 
 |-  ( ( ( ph /\ y e. B ) /\ A. x e. A ( K ` x ) .< ( L ` ( F ` x ) ) ) -> ( K ` ( G ` y ) ) .< ( L ` ( F ` ( G ` y ) ) ) )
38 37 an32s 
 |-  ( ( ( ph /\ A. x e. A ( K ` x ) .< ( L ` ( F ` x ) ) ) /\ y e. B ) -> ( K ` ( G ` y ) ) .< ( L ` ( F ` ( G ` y ) ) ) )
39 7 ad2antrr 
 |-  ( ( ( ph /\ A. x e. A ( K ` x ) .< ( L ` ( F ` x ) ) ) /\ y e. B ) -> W e. Proset )
40 13 ad2antrr 
 |-  ( ( ( ph /\ A. x e. A ( K ` x ) .< ( L ` ( F ` x ) ) ) /\ y e. B ) -> L e. ( W Monot X ) )
41 simpr 
 |-  ( ( ( ph /\ A. x e. A ( K ` x ) .< ( L ` ( F ` x ) ) ) /\ y e. B ) -> y e. B )
42 6 ad2antrr 
 |-  ( ( ( ph /\ A. x e. A ( K ` x ) .< ( L ` ( F ` x ) ) ) /\ y e. B ) -> V e. Proset )
43 8 ad2antrr 
 |-  ( ( ( ph /\ A. x e. A ( K ` x ) .< ( L ` ( F ` x ) ) ) /\ y e. B ) -> F H G )
44 1 2 3 4 5 42 39 43 41 mgccole2 
 |-  ( ( ( ph /\ A. x e. A ( K ` x ) .< ( L ` ( F ` x ) ) ) /\ y e. B ) -> ( F ` ( G ` y ) ) .c_ y )
45 2 9 4 10 39 14 40 27 41 44 ismntd 
 |-  ( ( ( ph /\ A. x e. A ( K ` x ) .< ( L ` ( F ` x ) ) ) /\ y e. B ) -> ( L ` ( F ` ( G ` y ) ) ) .< ( L ` y ) )
46 9 10 prstr 
 |-  ( ( X e. Proset /\ ( ( K ` ( G ` y ) ) e. C /\ ( L ` ( F ` ( G ` y ) ) ) e. C /\ ( L ` y ) e. C ) /\ ( ( K ` ( G ` y ) ) .< ( L ` ( F ` ( G ` y ) ) ) /\ ( L ` ( F ` ( G ` y ) ) ) .< ( L ` y ) ) ) -> ( K ` ( G ` y ) ) .< ( L ` y ) )
47 14 21 28 30 38 45 46 syl132anc 
 |-  ( ( ( ph /\ A. x e. A ( K ` x ) .< ( L ` ( F ` x ) ) ) /\ y e. B ) -> ( K ` ( G ` y ) ) .< ( L ` y ) )
48 47 ralrimiva 
 |-  ( ( ph /\ A. x e. A ( K ` x ) .< ( L ` ( F ` x ) ) ) -> A. y e. B ( K ` ( G ` y ) ) .< ( L ` y ) )
49 11 ad2antrr 
 |-  ( ( ( ph /\ A. y e. B ( K ` ( G ` y ) ) .< ( L ` y ) ) /\ x e. A ) -> X e. Proset )
50 16 ad2antrr 
 |-  ( ( ( ph /\ A. y e. B ( K ` ( G ` y ) ) .< ( L ` y ) ) /\ x e. A ) -> K : A --> C )
51 simpr 
 |-  ( ( ( ph /\ A. y e. B ( K ` ( G ` y ) ) .< ( L ` y ) ) /\ x e. A ) -> x e. A )
52 50 51 ffvelcdmd 
 |-  ( ( ( ph /\ A. y e. B ( K ` ( G ` y ) ) .< ( L ` y ) ) /\ x e. A ) -> ( K ` x ) e. C )
53 18 ad2antrr 
 |-  ( ( ( ph /\ A. y e. B ( K ` ( G ` y ) ) .< ( L ` y ) ) /\ x e. A ) -> G : B --> A )
54 25 adantr 
 |-  ( ( ph /\ A. y e. B ( K ` ( G ` y ) ) .< ( L ` y ) ) -> F : A --> B )
55 54 ffvelcdmda 
 |-  ( ( ( ph /\ A. y e. B ( K ` ( G ` y ) ) .< ( L ` y ) ) /\ x e. A ) -> ( F ` x ) e. B )
56 53 55 ffvelcdmd 
 |-  ( ( ( ph /\ A. y e. B ( K ` ( G ` y ) ) .< ( L ` y ) ) /\ x e. A ) -> ( G ` ( F ` x ) ) e. A )
57 50 56 ffvelcdmd 
 |-  ( ( ( ph /\ A. y e. B ( K ` ( G ` y ) ) .< ( L ` y ) ) /\ x e. A ) -> ( K ` ( G ` ( F ` x ) ) ) e. C )
58 23 ad2antrr 
 |-  ( ( ( ph /\ A. y e. B ( K ` ( G ` y ) ) .< ( L ` y ) ) /\ x e. A ) -> L : B --> C )
59 58 55 ffvelcdmd 
 |-  ( ( ( ph /\ A. y e. B ( K ` ( G ` y ) ) .< ( L ` y ) ) /\ x e. A ) -> ( L ` ( F ` x ) ) e. C )
60 6 ad2antrr 
 |-  ( ( ( ph /\ A. y e. B ( K ` ( G ` y ) ) .< ( L ` y ) ) /\ x e. A ) -> V e. Proset )
61 12 ad2antrr 
 |-  ( ( ( ph /\ A. y e. B ( K ` ( G ` y ) ) .< ( L ` y ) ) /\ x e. A ) -> K e. ( V Monot X ) )
62 7 ad2antrr 
 |-  ( ( ( ph /\ A. y e. B ( K ` ( G ` y ) ) .< ( L ` y ) ) /\ x e. A ) -> W e. Proset )
63 8 ad2antrr 
 |-  ( ( ( ph /\ A. y e. B ( K ` ( G ` y ) ) .< ( L ` y ) ) /\ x e. A ) -> F H G )
64 1 2 3 4 5 60 62 63 51 mgccole1 
 |-  ( ( ( ph /\ A. y e. B ( K ` ( G ` y ) ) .< ( L ` y ) ) /\ x e. A ) -> x .<_ ( G ` ( F ` x ) ) )
65 1 9 3 10 60 49 61 51 56 64 ismntd 
 |-  ( ( ( ph /\ A. y e. B ( K ` ( G ` y ) ) .< ( L ` y ) ) /\ x e. A ) -> ( K ` x ) .< ( K ` ( G ` ( F ` x ) ) ) )
66 25 ffvelcdmda 
 |-  ( ( ph /\ x e. A ) -> ( F ` x ) e. B )
67 2fveq3 
 |-  ( y = ( F ` x ) -> ( K ` ( G ` y ) ) = ( K ` ( G ` ( F ` x ) ) ) )
68 fveq2 
 |-  ( y = ( F ` x ) -> ( L ` y ) = ( L ` ( F ` x ) ) )
69 67 68 breq12d 
 |-  ( y = ( F ` x ) -> ( ( K ` ( G ` y ) ) .< ( L ` y ) <-> ( K ` ( G ` ( F ` x ) ) ) .< ( L ` ( F ` x ) ) ) )
70 69 adantl 
 |-  ( ( ( ph /\ x e. A ) /\ y = ( F ` x ) ) -> ( ( K ` ( G ` y ) ) .< ( L ` y ) <-> ( K ` ( G ` ( F ` x ) ) ) .< ( L ` ( F ` x ) ) ) )
71 66 70 rspcdv 
 |-  ( ( ph /\ x e. A ) -> ( A. y e. B ( K ` ( G ` y ) ) .< ( L ` y ) -> ( K ` ( G ` ( F ` x ) ) ) .< ( L ` ( F ` x ) ) ) )
72 71 imp 
 |-  ( ( ( ph /\ x e. A ) /\ A. y e. B ( K ` ( G ` y ) ) .< ( L ` y ) ) -> ( K ` ( G ` ( F ` x ) ) ) .< ( L ` ( F ` x ) ) )
73 72 an32s 
 |-  ( ( ( ph /\ A. y e. B ( K ` ( G ` y ) ) .< ( L ` y ) ) /\ x e. A ) -> ( K ` ( G ` ( F ` x ) ) ) .< ( L ` ( F ` x ) ) )
74 9 10 prstr 
 |-  ( ( X e. Proset /\ ( ( K ` x ) e. C /\ ( K ` ( G ` ( F ` x ) ) ) e. C /\ ( L ` ( F ` x ) ) e. C ) /\ ( ( K ` x ) .< ( K ` ( G ` ( F ` x ) ) ) /\ ( K ` ( G ` ( F ` x ) ) ) .< ( L ` ( F ` x ) ) ) ) -> ( K ` x ) .< ( L ` ( F ` x ) ) )
75 49 52 57 59 65 73 74 syl132anc 
 |-  ( ( ( ph /\ A. y e. B ( K ` ( G ` y ) ) .< ( L ` y ) ) /\ x e. A ) -> ( K ` x ) .< ( L ` ( F ` x ) ) )
76 75 ralrimiva 
 |-  ( ( ph /\ A. y e. B ( K ` ( G ` y ) ) .< ( L ` y ) ) -> A. x e. A ( K ` x ) .< ( L ` ( F ` x ) ) )
77 48 76 impbida 
 |-  ( ph -> ( A. x e. A ( K ` x ) .< ( L ` ( F ` x ) ) <-> A. y e. B ( K ` ( G ` y ) ) .< ( L ` y ) ) )