Metamath Proof Explorer


Theorem sumdmdii

Description: If the subspace sum of two Hilbert lattice elements is closed, then the elements are a dual modular pair. Remark in MaedaMaeda p. 139. (Contributed by NM, 12-Jul-2004) (New usage is discouraged.)

Ref Expression
Hypotheses sumdmdi.1 A C
sumdmdi.2 B C
Assertion sumdmdii A + B = A B A 𝑀 * B

Proof

Step Hyp Ref Expression
1 sumdmdi.1 A C
2 sumdmdi.2 B C
3 ineq2 A + B = A B x A + B = x A B
4 3 adantr A + B = A B x C B x x A + B = x A B
5 elin y x A + B y x y A + B
6 1 2 chseli y A + B z A w B y = z + w
7 ssel2 B x w B w x
8 chsh x C x S
9 shsubcl x S y x w x y - w x
10 9 3exp x S y x w x y - w x
11 8 10 syl x C y x w x y - w x
12 7 11 syl7 x C y x B x w B y - w x
13 12 exp4a x C y x B x w B y - w x
14 13 com23 x C B x y x w B y - w x
15 14 imp41 x C B x y x w B y - w x
16 15 adantlr x C B x y x z A w B y - w x
17 16 adantr x C B x y x z A w B y = z + w y - w x
18 chel x C y x y
19 18 adantlr x C B x y x y
20 1 cheli z A z
21 2 cheli w B w
22 hvsubadd y w z y - w = z w + z = y
23 ax-hvcom w z w + z = z + w
24 23 eqeq1d w z w + z = y z + w = y
25 eqcom z + w = y y = z + w
26 24 25 bitrdi w z w + z = y y = z + w
27 26 3adant1 y w z w + z = y y = z + w
28 22 27 bitrd y w z y - w = z y = z + w
29 28 3com23 y z w y - w = z y = z + w
30 19 20 21 29 syl3an x C B x y x z A w B y - w = z y = z + w
31 30 3expa x C B x y x z A w B y - w = z y = z + w
32 eleq1 y - w = z y - w x z x
33 31 32 syl6bir x C B x y x z A w B y = z + w y - w x z x
34 33 imp x C B x y x z A w B y = z + w y - w x z x
35 17 34 mpbid x C B x y x z A w B y = z + w z x
36 simpr x C B x y x z A w B y = z + w y = z + w
37 35 36 jca x C B x y x z A w B y = z + w z x y = z + w
38 37 exp31 x C B x y x z A w B y = z + w z x y = z + w
39 38 reximdvai x C B x y x z A w B y = z + w w B z x y = z + w
40 r19.42v w B z x y = z + w z x w B y = z + w
41 39 40 syl6ib x C B x y x z A w B y = z + w z x w B y = z + w
42 41 reximdva x C B x y x z A w B y = z + w z A z x w B y = z + w
43 elin z x A z x z A
44 ancom z x z A z A z x
45 43 44 bitri z x A z A z x
46 45 anbi1i z x A w B y = z + w z A z x w B y = z + w
47 anass z A z x w B y = z + w z A z x w B y = z + w
48 46 47 bitri z x A w B y = z + w z A z x w B y = z + w
49 48 rexbii2 z x A w B y = z + w z A z x w B y = z + w
50 42 49 syl6ibr x C B x y x z A w B y = z + w z x A w B y = z + w
51 1 chshii A S
52 shincl x S A S x A S
53 8 51 52 sylancl x C x A S
54 53 ad2antrr x C B x y x x A S
55 2 chshii B S
56 shsel x A S B S y x A + B z x A w B y = z + w
57 54 55 56 sylancl x C B x y x y x A + B z x A w B y = z + w
58 50 57 sylibrd x C B x y x z A w B y = z + w y x A + B
59 6 58 syl5bi x C B x y x y A + B y x A + B
60 59 expimpd x C B x y x y A + B y x A + B
61 5 60 syl5bi x C B x y x A + B y x A + B
62 61 ssrdv x C B x x A + B x A + B
63 62 adantl A + B = A B x C B x x A + B x A + B
64 4 63 eqsstrrd A + B = A B x C B x x A B x A + B
65 chincl x C A C x A C
66 1 65 mpan2 x C x A C
67 chslej x A C B C x A + B x A B
68 66 2 67 sylancl x C x A + B x A B
69 68 ad2antrl A + B = A B x C B x x A + B x A B
70 64 69 sstrd A + B = A B x C B x x A B x A B
71 70 exp32 A + B = A B x C B x x A B x A B
72 71 ralrimiv A + B = A B x C B x x A B x A B
73 dmdbr2 A C B C A 𝑀 * B x C B x x A B x A B
74 1 2 73 mp2an A 𝑀 * B x C B x x A B x A B
75 72 74 sylibr A + B = A B A 𝑀 * B