Metamath Proof Explorer


Theorem dmdmd

Description: The dual modular pair property expressed in terms of the modular pair property, that hold in Hilbert lattices. Remark 29.6 of MaedaMaeda p. 130. (Contributed by NM, 27-Apr-2006) (New usage is discouraged.)

Ref Expression
Assertion dmdmd A C B C A 𝑀 * B A 𝑀 B

Proof

Step Hyp Ref Expression
1 sseq1 y = x y B x B
2 oveq1 y = x y A = x A
3 2 ineq1d y = x y A B = x A B
4 oveq1 y = x y A B = x A B
5 3 4 eqeq12d y = x y A B = y A B x A B = x A B
6 1 5 imbi12d y = x y B y A B = y A B x B x A B = x A B
7 6 rspccv y C y B y A B = y A B x C x B x A B = x A B
8 choccl x C x C
9 8 imim1i x C x B x A B = x A B x C x B x A B = x A B
10 9 com12 x C x C x B x A B = x A B x B x A B = x A B
11 10 adantl A C B C x C x C x B x A B = x A B x B x A B = x A B
12 chsscon3 B C x C B x x B
13 12 biimpd B C x C B x x B
14 13 adantll A C B C x C B x x B
15 fveq2 x A B = x A B x A B = x A B
16 choccl A C A C
17 chjcl x C A C x A C
18 8 16 17 syl2an x C A C x A C
19 chdmm3 x A C B C x A B = x A B
20 18 19 sylan x C A C B C x A B = x A B
21 chdmj4 x C A C x A = x A
22 21 adantr x C A C B C x A = x A
23 22 oveq1d x C A C B C x A B = x A B
24 20 23 eqtrd x C A C B C x A B = x A B
25 24 anasss x C A C B C x A B = x A B
26 choccl B C B C
27 chincl A C B C A B C
28 16 26 27 syl2an A C B C A B C
29 chdmj2 x C A B C x A B = x A B
30 28 29 sylan2 x C A C B C x A B = x A B
31 chdmm4 A C B C A B = A B
32 31 adantl x C A C B C A B = A B
33 32 ineq2d x C A C B C x A B = x A B
34 30 33 eqtrd x C A C B C x A B = x A B
35 25 34 eqeq12d x C A C B C x A B = x A B x A B = x A B
36 35 ancoms A C B C x C x A B = x A B x A B = x A B
37 15 36 syl5ib A C B C x C x A B = x A B x A B = x A B
38 14 37 imim12d A C B C x C x B x A B = x A B B x x A B = x A B
39 11 38 syld A C B C x C x C x B x A B = x A B B x x A B = x A B
40 39 ex A C B C x C x C x B x A B = x A B B x x A B = x A B
41 40 com23 A C B C x C x B x A B = x A B x C B x x A B = x A B
42 7 41 syl5 A C B C y C y B y A B = y A B x C B x x A B = x A B
43 42 ralrimdv A C B C y C y B y A B = y A B x C B x x A B = x A B
44 sseq2 x = y B x B y
45 ineq1 x = y x A = y A
46 45 oveq1d x = y x A B = y A B
47 ineq1 x = y x A B = y A B
48 46 47 eqeq12d x = y x A B = x A B y A B = y A B
49 44 48 imbi12d x = y B x x A B = x A B B y y A B = y A B
50 49 rspccv x C B x x A B = x A B y C B y y A B = y A B
51 choccl y C y C
52 51 imim1i y C B y y A B = y A B y C B y y A B = y A B
53 52 com12 y C y C B y y A B = y A B B y y A B = y A B
54 53 adantl A C B C y C y C B y y A B = y A B B y y A B = y A B
55 chsscon2 B C y C B y y B
56 55 biimprd B C y C y B B y
57 56 adantll A C B C y C y B B y
58 fveq2 y A B = y A B y A B = y A B
59 chincl y C A C y A C
60 51 59 sylan y C A C y A C
61 chdmj1 y A C B C y A B = y A B
62 60 61 sylan y C A C B C y A B = y A B
63 chdmm2 y C A C y A = y A
64 63 adantr y C A C B C y A = y A
65 64 ineq1d y C A C B C y A B = y A B
66 62 65 eqtrd y C A C B C y A B = y A B
67 66 anasss y C A C B C y A B = y A B
68 chjcl A C B C A B C
69 chdmm2 y C A B C y A B = y A B
70 68 69 sylan2 y C A C B C y A B = y A B
71 chdmj1 A C B C A B = A B
72 71 adantl y C A C B C A B = A B
73 72 oveq2d y C A C B C y A B = y A B
74 70 73 eqtrd y C A C B C y A B = y A B
75 67 74 eqeq12d y C A C B C y A B = y A B y A B = y A B
76 75 ancoms A C B C y C y A B = y A B y A B = y A B
77 58 76 syl5ib A C B C y C y A B = y A B y A B = y A B
78 57 77 imim12d A C B C y C B y y A B = y A B y B y A B = y A B
79 54 78 syld A C B C y C y C B y y A B = y A B y B y A B = y A B
80 79 ex A C B C y C y C B y y A B = y A B y B y A B = y A B
81 80 com23 A C B C y C B y y A B = y A B y C y B y A B = y A B
82 50 81 syl5 A C B C x C B x x A B = x A B y C y B y A B = y A B
83 82 ralrimdv A C B C x C B x x A B = x A B y C y B y A B = y A B
84 43 83 impbid A C B C y C y B y A B = y A B x C B x x A B = x A B
85 mdbr A C B C A 𝑀 B y C y B y A B = y A B
86 16 26 85 syl2an A C B C A 𝑀 B y C y B y A B = y A B
87 dmdbr A C B C A 𝑀 * B x C B x x A B = x A B
88 84 86 87 3bitr4rd A C B C A 𝑀 * B A 𝑀 B