Metamath Proof Explorer


Theorem mdexchi

Description: An exchange lemma for modular pairs. Lemma 1.6 of MaedaMaeda p. 2. (Contributed by NM, 22-Jun-2004) (New usage is discouraged.)

Ref Expression
Hypotheses mdexch.1 𝐴C
mdexch.2 𝐵C
mdexch.3 𝐶C
Assertion mdexchi ( ( 𝐴 𝑀 𝐵𝐶 𝑀 ( 𝐴 𝐵 ) ∧ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ⊆ 𝐴 ) → ( ( 𝐶 𝐴 ) 𝑀 𝐵 ∧ ( ( 𝐶 𝐴 ) ∩ 𝐵 ) = ( 𝐴𝐵 ) ) )

Proof

Step Hyp Ref Expression
1 mdexch.1 𝐴C
2 mdexch.2 𝐵C
3 mdexch.3 𝐶C
4 chjass ( ( 𝐶C𝐴C𝑥C ) → ( ( 𝐶 𝐴 ) ∨ 𝑥 ) = ( 𝐶 ( 𝐴 𝑥 ) ) )
5 3 1 4 mp3an12 ( 𝑥C → ( ( 𝐶 𝐴 ) ∨ 𝑥 ) = ( 𝐶 ( 𝐴 𝑥 ) ) )
6 3 1 chjcli ( 𝐶 𝐴 ) ∈ C
7 chjcom ( ( 𝑥C ∧ ( 𝐶 𝐴 ) ∈ C ) → ( 𝑥 ( 𝐶 𝐴 ) ) = ( ( 𝐶 𝐴 ) ∨ 𝑥 ) )
8 6 7 mpan2 ( 𝑥C → ( 𝑥 ( 𝐶 𝐴 ) ) = ( ( 𝐶 𝐴 ) ∨ 𝑥 ) )
9 chjcl ( ( 𝐴C𝑥C ) → ( 𝐴 𝑥 ) ∈ C )
10 1 9 mpan ( 𝑥C → ( 𝐴 𝑥 ) ∈ C )
11 chjcom ( ( ( 𝐴 𝑥 ) ∈ C𝐶C ) → ( ( 𝐴 𝑥 ) ∨ 𝐶 ) = ( 𝐶 ( 𝐴 𝑥 ) ) )
12 10 3 11 sylancl ( 𝑥C → ( ( 𝐴 𝑥 ) ∨ 𝐶 ) = ( 𝐶 ( 𝐴 𝑥 ) ) )
13 5 8 12 3eqtr4d ( 𝑥C → ( 𝑥 ( 𝐶 𝐴 ) ) = ( ( 𝐴 𝑥 ) ∨ 𝐶 ) )
14 13 ineq1d ( 𝑥C → ( ( 𝑥 ( 𝐶 𝐴 ) ) ∩ 𝐵 ) = ( ( ( 𝐴 𝑥 ) ∨ 𝐶 ) ∩ 𝐵 ) )
15 inass ( ( ( ( 𝐴 𝑥 ) ∨ 𝐶 ) ∩ ( 𝐴 𝐵 ) ) ∩ 𝐵 ) = ( ( ( 𝐴 𝑥 ) ∨ 𝐶 ) ∩ ( ( 𝐴 𝐵 ) ∩ 𝐵 ) )
16 incom ( ( 𝐴 𝐵 ) ∩ 𝐵 ) = ( 𝐵 ∩ ( 𝐴 𝐵 ) )
17 1 2 chjcomi ( 𝐴 𝐵 ) = ( 𝐵 𝐴 )
18 17 ineq2i ( 𝐵 ∩ ( 𝐴 𝐵 ) ) = ( 𝐵 ∩ ( 𝐵 𝐴 ) )
19 2 1 chabs2i ( 𝐵 ∩ ( 𝐵 𝐴 ) ) = 𝐵
20 18 19 eqtri ( 𝐵 ∩ ( 𝐴 𝐵 ) ) = 𝐵
21 16 20 eqtri ( ( 𝐴 𝐵 ) ∩ 𝐵 ) = 𝐵
22 21 ineq2i ( ( ( 𝐴 𝑥 ) ∨ 𝐶 ) ∩ ( ( 𝐴 𝐵 ) ∩ 𝐵 ) ) = ( ( ( 𝐴 𝑥 ) ∨ 𝐶 ) ∩ 𝐵 )
23 15 22 eqtri ( ( ( ( 𝐴 𝑥 ) ∨ 𝐶 ) ∩ ( 𝐴 𝐵 ) ) ∩ 𝐵 ) = ( ( ( 𝐴 𝑥 ) ∨ 𝐶 ) ∩ 𝐵 )
24 14 23 eqtr4di ( 𝑥C → ( ( 𝑥 ( 𝐶 𝐴 ) ) ∩ 𝐵 ) = ( ( ( ( 𝐴 𝑥 ) ∨ 𝐶 ) ∩ ( 𝐴 𝐵 ) ) ∩ 𝐵 ) )
25 24 ad2antrr ( ( ( 𝑥C𝑥𝐵 ) ∧ ( 𝐶 𝑀 ( 𝐴 𝐵 ) ∧ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ⊆ 𝐴 ) ) → ( ( 𝑥 ( 𝐶 𝐴 ) ) ∩ 𝐵 ) = ( ( ( ( 𝐴 𝑥 ) ∨ 𝐶 ) ∩ ( 𝐴 𝐵 ) ) ∩ 𝐵 ) )
26 chlej2 ( ( ( 𝑥C𝐵C𝐴C ) ∧ 𝑥𝐵 ) → ( 𝐴 𝑥 ) ⊆ ( 𝐴 𝐵 ) )
27 26 ex ( ( 𝑥C𝐵C𝐴C ) → ( 𝑥𝐵 → ( 𝐴 𝑥 ) ⊆ ( 𝐴 𝐵 ) ) )
28 2 1 27 mp3an23 ( 𝑥C → ( 𝑥𝐵 → ( 𝐴 𝑥 ) ⊆ ( 𝐴 𝐵 ) ) )
29 1 2 chjcli ( 𝐴 𝐵 ) ∈ C
30 mdi ( ( ( 𝐶C ∧ ( 𝐴 𝐵 ) ∈ C ∧ ( 𝐴 𝑥 ) ∈ C ) ∧ ( 𝐶 𝑀 ( 𝐴 𝐵 ) ∧ ( 𝐴 𝑥 ) ⊆ ( 𝐴 𝐵 ) ) ) → ( ( ( 𝐴 𝑥 ) ∨ 𝐶 ) ∩ ( 𝐴 𝐵 ) ) = ( ( 𝐴 𝑥 ) ∨ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ) )
31 30 exp32 ( ( 𝐶C ∧ ( 𝐴 𝐵 ) ∈ C ∧ ( 𝐴 𝑥 ) ∈ C ) → ( 𝐶 𝑀 ( 𝐴 𝐵 ) → ( ( 𝐴 𝑥 ) ⊆ ( 𝐴 𝐵 ) → ( ( ( 𝐴 𝑥 ) ∨ 𝐶 ) ∩ ( 𝐴 𝐵 ) ) = ( ( 𝐴 𝑥 ) ∨ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ) ) ) )
32 3 29 31 mp3an12 ( ( 𝐴 𝑥 ) ∈ C → ( 𝐶 𝑀 ( 𝐴 𝐵 ) → ( ( 𝐴 𝑥 ) ⊆ ( 𝐴 𝐵 ) → ( ( ( 𝐴 𝑥 ) ∨ 𝐶 ) ∩ ( 𝐴 𝐵 ) ) = ( ( 𝐴 𝑥 ) ∨ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ) ) ) )
33 10 32 syl ( 𝑥C → ( 𝐶 𝑀 ( 𝐴 𝐵 ) → ( ( 𝐴 𝑥 ) ⊆ ( 𝐴 𝐵 ) → ( ( ( 𝐴 𝑥 ) ∨ 𝐶 ) ∩ ( 𝐴 𝐵 ) ) = ( ( 𝐴 𝑥 ) ∨ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ) ) ) )
34 33 com23 ( 𝑥C → ( ( 𝐴 𝑥 ) ⊆ ( 𝐴 𝐵 ) → ( 𝐶 𝑀 ( 𝐴 𝐵 ) → ( ( ( 𝐴 𝑥 ) ∨ 𝐶 ) ∩ ( 𝐴 𝐵 ) ) = ( ( 𝐴 𝑥 ) ∨ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ) ) ) )
35 28 34 syld ( 𝑥C → ( 𝑥𝐵 → ( 𝐶 𝑀 ( 𝐴 𝐵 ) → ( ( ( 𝐴 𝑥 ) ∨ 𝐶 ) ∩ ( 𝐴 𝐵 ) ) = ( ( 𝐴 𝑥 ) ∨ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ) ) ) )
36 35 imp31 ( ( ( 𝑥C𝑥𝐵 ) ∧ 𝐶 𝑀 ( 𝐴 𝐵 ) ) → ( ( ( 𝐴 𝑥 ) ∨ 𝐶 ) ∩ ( 𝐴 𝐵 ) ) = ( ( 𝐴 𝑥 ) ∨ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ) )
37 36 adantrr ( ( ( 𝑥C𝑥𝐵 ) ∧ ( 𝐶 𝑀 ( 𝐴 𝐵 ) ∧ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ⊆ 𝐴 ) ) → ( ( ( 𝐴 𝑥 ) ∨ 𝐶 ) ∩ ( 𝐴 𝐵 ) ) = ( ( 𝐴 𝑥 ) ∨ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ) )
38 3 29 chincli ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ∈ C
39 chlej2 ( ( ( ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ∈ C𝐴C ∧ ( 𝐴 𝑥 ) ∈ C ) ∧ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ⊆ 𝐴 ) → ( ( 𝐴 𝑥 ) ∨ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ) ⊆ ( ( 𝐴 𝑥 ) ∨ 𝐴 ) )
40 39 ex ( ( ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ∈ C𝐴C ∧ ( 𝐴 𝑥 ) ∈ C ) → ( ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ⊆ 𝐴 → ( ( 𝐴 𝑥 ) ∨ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ) ⊆ ( ( 𝐴 𝑥 ) ∨ 𝐴 ) ) )
41 38 1 40 mp3an12 ( ( 𝐴 𝑥 ) ∈ C → ( ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ⊆ 𝐴 → ( ( 𝐴 𝑥 ) ∨ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ) ⊆ ( ( 𝐴 𝑥 ) ∨ 𝐴 ) ) )
42 10 41 syl ( 𝑥C → ( ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ⊆ 𝐴 → ( ( 𝐴 𝑥 ) ∨ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ) ⊆ ( ( 𝐴 𝑥 ) ∨ 𝐴 ) ) )
43 42 imp ( ( 𝑥C ∧ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ⊆ 𝐴 ) → ( ( 𝐴 𝑥 ) ∨ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ) ⊆ ( ( 𝐴 𝑥 ) ∨ 𝐴 ) )
44 chjcom ( ( ( 𝐴 𝑥 ) ∈ C𝐴C ) → ( ( 𝐴 𝑥 ) ∨ 𝐴 ) = ( 𝐴 ( 𝐴 𝑥 ) ) )
45 10 1 44 sylancl ( 𝑥C → ( ( 𝐴 𝑥 ) ∨ 𝐴 ) = ( 𝐴 ( 𝐴 𝑥 ) ) )
46 1 chjidmi ( 𝐴 𝐴 ) = 𝐴
47 46 oveq1i ( ( 𝐴 𝐴 ) ∨ 𝑥 ) = ( 𝐴 𝑥 )
48 chjass ( ( 𝐴C𝐴C𝑥C ) → ( ( 𝐴 𝐴 ) ∨ 𝑥 ) = ( 𝐴 ( 𝐴 𝑥 ) ) )
49 1 1 48 mp3an12 ( 𝑥C → ( ( 𝐴 𝐴 ) ∨ 𝑥 ) = ( 𝐴 ( 𝐴 𝑥 ) ) )
50 chjcom ( ( 𝐴C𝑥C ) → ( 𝐴 𝑥 ) = ( 𝑥 𝐴 ) )
51 1 50 mpan ( 𝑥C → ( 𝐴 𝑥 ) = ( 𝑥 𝐴 ) )
52 47 49 51 3eqtr3a ( 𝑥C → ( 𝐴 ( 𝐴 𝑥 ) ) = ( 𝑥 𝐴 ) )
53 45 52 eqtrd ( 𝑥C → ( ( 𝐴 𝑥 ) ∨ 𝐴 ) = ( 𝑥 𝐴 ) )
54 53 adantr ( ( 𝑥C ∧ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ⊆ 𝐴 ) → ( ( 𝐴 𝑥 ) ∨ 𝐴 ) = ( 𝑥 𝐴 ) )
55 43 54 sseqtrd ( ( 𝑥C ∧ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ⊆ 𝐴 ) → ( ( 𝐴 𝑥 ) ∨ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ) ⊆ ( 𝑥 𝐴 ) )
56 55 ad2ant2rl ( ( ( 𝑥C𝑥𝐵 ) ∧ ( 𝐶 𝑀 ( 𝐴 𝐵 ) ∧ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ⊆ 𝐴 ) ) → ( ( 𝐴 𝑥 ) ∨ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ) ⊆ ( 𝑥 𝐴 ) )
57 37 56 eqsstrd ( ( ( 𝑥C𝑥𝐵 ) ∧ ( 𝐶 𝑀 ( 𝐴 𝐵 ) ∧ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ⊆ 𝐴 ) ) → ( ( ( 𝐴 𝑥 ) ∨ 𝐶 ) ∩ ( 𝐴 𝐵 ) ) ⊆ ( 𝑥 𝐴 ) )
58 57 ssrind ( ( ( 𝑥C𝑥𝐵 ) ∧ ( 𝐶 𝑀 ( 𝐴 𝐵 ) ∧ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ⊆ 𝐴 ) ) → ( ( ( ( 𝐴 𝑥 ) ∨ 𝐶 ) ∩ ( 𝐴 𝐵 ) ) ∩ 𝐵 ) ⊆ ( ( 𝑥 𝐴 ) ∩ 𝐵 ) )
59 25 58 eqsstrd ( ( ( 𝑥C𝑥𝐵 ) ∧ ( 𝐶 𝑀 ( 𝐴 𝐵 ) ∧ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ⊆ 𝐴 ) ) → ( ( 𝑥 ( 𝐶 𝐴 ) ) ∩ 𝐵 ) ⊆ ( ( 𝑥 𝐴 ) ∩ 𝐵 ) )
60 59 adantrl ( ( ( 𝑥C𝑥𝐵 ) ∧ ( 𝐴 𝑀 𝐵 ∧ ( 𝐶 𝑀 ( 𝐴 𝐵 ) ∧ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ⊆ 𝐴 ) ) ) → ( ( 𝑥 ( 𝐶 𝐴 ) ) ∩ 𝐵 ) ⊆ ( ( 𝑥 𝐴 ) ∩ 𝐵 ) )
61 mdi ( ( ( 𝐴C𝐵C𝑥C ) ∧ ( 𝐴 𝑀 𝐵𝑥𝐵 ) ) → ( ( 𝑥 𝐴 ) ∩ 𝐵 ) = ( 𝑥 ( 𝐴𝐵 ) ) )
62 61 exp32 ( ( 𝐴C𝐵C𝑥C ) → ( 𝐴 𝑀 𝐵 → ( 𝑥𝐵 → ( ( 𝑥 𝐴 ) ∩ 𝐵 ) = ( 𝑥 ( 𝐴𝐵 ) ) ) ) )
63 1 2 62 mp3an12 ( 𝑥C → ( 𝐴 𝑀 𝐵 → ( 𝑥𝐵 → ( ( 𝑥 𝐴 ) ∩ 𝐵 ) = ( 𝑥 ( 𝐴𝐵 ) ) ) ) )
64 63 com23 ( 𝑥C → ( 𝑥𝐵 → ( 𝐴 𝑀 𝐵 → ( ( 𝑥 𝐴 ) ∩ 𝐵 ) = ( 𝑥 ( 𝐴𝐵 ) ) ) ) )
65 64 imp31 ( ( ( 𝑥C𝑥𝐵 ) ∧ 𝐴 𝑀 𝐵 ) → ( ( 𝑥 𝐴 ) ∩ 𝐵 ) = ( 𝑥 ( 𝐴𝐵 ) ) )
66 1 3 chub2i 𝐴 ⊆ ( 𝐶 𝐴 )
67 ssrin ( 𝐴 ⊆ ( 𝐶 𝐴 ) → ( 𝐴𝐵 ) ⊆ ( ( 𝐶 𝐴 ) ∩ 𝐵 ) )
68 66 67 ax-mp ( 𝐴𝐵 ) ⊆ ( ( 𝐶 𝐴 ) ∩ 𝐵 )
69 1 2 chincli ( 𝐴𝐵 ) ∈ C
70 6 2 chincli ( ( 𝐶 𝐴 ) ∩ 𝐵 ) ∈ C
71 chlej2 ( ( ( ( 𝐴𝐵 ) ∈ C ∧ ( ( 𝐶 𝐴 ) ∩ 𝐵 ) ∈ C𝑥C ) ∧ ( 𝐴𝐵 ) ⊆ ( ( 𝐶 𝐴 ) ∩ 𝐵 ) ) → ( 𝑥 ( 𝐴𝐵 ) ) ⊆ ( 𝑥 ( ( 𝐶 𝐴 ) ∩ 𝐵 ) ) )
72 71 ex ( ( ( 𝐴𝐵 ) ∈ C ∧ ( ( 𝐶 𝐴 ) ∩ 𝐵 ) ∈ C𝑥C ) → ( ( 𝐴𝐵 ) ⊆ ( ( 𝐶 𝐴 ) ∩ 𝐵 ) → ( 𝑥 ( 𝐴𝐵 ) ) ⊆ ( 𝑥 ( ( 𝐶 𝐴 ) ∩ 𝐵 ) ) ) )
73 69 70 72 mp3an12 ( 𝑥C → ( ( 𝐴𝐵 ) ⊆ ( ( 𝐶 𝐴 ) ∩ 𝐵 ) → ( 𝑥 ( 𝐴𝐵 ) ) ⊆ ( 𝑥 ( ( 𝐶 𝐴 ) ∩ 𝐵 ) ) ) )
74 68 73 mpi ( 𝑥C → ( 𝑥 ( 𝐴𝐵 ) ) ⊆ ( 𝑥 ( ( 𝐶 𝐴 ) ∩ 𝐵 ) ) )
75 74 ad2antrr ( ( ( 𝑥C𝑥𝐵 ) ∧ 𝐴 𝑀 𝐵 ) → ( 𝑥 ( 𝐴𝐵 ) ) ⊆ ( 𝑥 ( ( 𝐶 𝐴 ) ∩ 𝐵 ) ) )
76 65 75 eqsstrd ( ( ( 𝑥C𝑥𝐵 ) ∧ 𝐴 𝑀 𝐵 ) → ( ( 𝑥 𝐴 ) ∩ 𝐵 ) ⊆ ( 𝑥 ( ( 𝐶 𝐴 ) ∩ 𝐵 ) ) )
77 76 adantrr ( ( ( 𝑥C𝑥𝐵 ) ∧ ( 𝐴 𝑀 𝐵 ∧ ( 𝐶 𝑀 ( 𝐴 𝐵 ) ∧ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ⊆ 𝐴 ) ) ) → ( ( 𝑥 𝐴 ) ∩ 𝐵 ) ⊆ ( 𝑥 ( ( 𝐶 𝐴 ) ∩ 𝐵 ) ) )
78 60 77 sstrd ( ( ( 𝑥C𝑥𝐵 ) ∧ ( 𝐴 𝑀 𝐵 ∧ ( 𝐶 𝑀 ( 𝐴 𝐵 ) ∧ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ⊆ 𝐴 ) ) ) → ( ( 𝑥 ( 𝐶 𝐴 ) ) ∩ 𝐵 ) ⊆ ( 𝑥 ( ( 𝐶 𝐴 ) ∩ 𝐵 ) ) )
79 78 exp31 ( 𝑥C → ( 𝑥𝐵 → ( ( 𝐴 𝑀 𝐵 ∧ ( 𝐶 𝑀 ( 𝐴 𝐵 ) ∧ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ⊆ 𝐴 ) ) → ( ( 𝑥 ( 𝐶 𝐴 ) ) ∩ 𝐵 ) ⊆ ( 𝑥 ( ( 𝐶 𝐴 ) ∩ 𝐵 ) ) ) ) )
80 79 com3r ( ( 𝐴 𝑀 𝐵 ∧ ( 𝐶 𝑀 ( 𝐴 𝐵 ) ∧ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ⊆ 𝐴 ) ) → ( 𝑥C → ( 𝑥𝐵 → ( ( 𝑥 ( 𝐶 𝐴 ) ) ∩ 𝐵 ) ⊆ ( 𝑥 ( ( 𝐶 𝐴 ) ∩ 𝐵 ) ) ) ) )
81 80 3impb ( ( 𝐴 𝑀 𝐵𝐶 𝑀 ( 𝐴 𝐵 ) ∧ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ⊆ 𝐴 ) → ( 𝑥C → ( 𝑥𝐵 → ( ( 𝑥 ( 𝐶 𝐴 ) ) ∩ 𝐵 ) ⊆ ( 𝑥 ( ( 𝐶 𝐴 ) ∩ 𝐵 ) ) ) ) )
82 81 ralrimiv ( ( 𝐴 𝑀 𝐵𝐶 𝑀 ( 𝐴 𝐵 ) ∧ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ⊆ 𝐴 ) → ∀ 𝑥C ( 𝑥𝐵 → ( ( 𝑥 ( 𝐶 𝐴 ) ) ∩ 𝐵 ) ⊆ ( 𝑥 ( ( 𝐶 𝐴 ) ∩ 𝐵 ) ) ) )
83 mdbr2 ( ( ( 𝐶 𝐴 ) ∈ C𝐵C ) → ( ( 𝐶 𝐴 ) 𝑀 𝐵 ↔ ∀ 𝑥C ( 𝑥𝐵 → ( ( 𝑥 ( 𝐶 𝐴 ) ) ∩ 𝐵 ) ⊆ ( 𝑥 ( ( 𝐶 𝐴 ) ∩ 𝐵 ) ) ) ) )
84 6 2 83 mp2an ( ( 𝐶 𝐴 ) 𝑀 𝐵 ↔ ∀ 𝑥C ( 𝑥𝐵 → ( ( 𝑥 ( 𝐶 𝐴 ) ) ∩ 𝐵 ) ⊆ ( 𝑥 ( ( 𝐶 𝐴 ) ∩ 𝐵 ) ) ) )
85 82 84 sylibr ( ( 𝐴 𝑀 𝐵𝐶 𝑀 ( 𝐴 𝐵 ) ∧ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ⊆ 𝐴 ) → ( 𝐶 𝐴 ) 𝑀 𝐵 )
86 3 1 chjcomi ( 𝐶 𝐴 ) = ( 𝐴 𝐶 )
87 incom ( 𝐵 ∩ ( 𝐴 𝐵 ) ) = ( ( 𝐴 𝐵 ) ∩ 𝐵 )
88 18 87 19 3eqtr3ri 𝐵 = ( ( 𝐴 𝐵 ) ∩ 𝐵 )
89 86 88 ineq12i ( ( 𝐶 𝐴 ) ∩ 𝐵 ) = ( ( 𝐴 𝐶 ) ∩ ( ( 𝐴 𝐵 ) ∩ 𝐵 ) )
90 inass ( ( ( 𝐴 𝐶 ) ∩ ( 𝐴 𝐵 ) ) ∩ 𝐵 ) = ( ( 𝐴 𝐶 ) ∩ ( ( 𝐴 𝐵 ) ∩ 𝐵 ) )
91 1 2 chub1i 𝐴 ⊆ ( 𝐴 𝐵 )
92 mdi ( ( ( 𝐶C ∧ ( 𝐴 𝐵 ) ∈ C𝐴C ) ∧ ( 𝐶 𝑀 ( 𝐴 𝐵 ) ∧ 𝐴 ⊆ ( 𝐴 𝐵 ) ) ) → ( ( 𝐴 𝐶 ) ∩ ( 𝐴 𝐵 ) ) = ( 𝐴 ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ) )
93 92 exp32 ( ( 𝐶C ∧ ( 𝐴 𝐵 ) ∈ C𝐴C ) → ( 𝐶 𝑀 ( 𝐴 𝐵 ) → ( 𝐴 ⊆ ( 𝐴 𝐵 ) → ( ( 𝐴 𝐶 ) ∩ ( 𝐴 𝐵 ) ) = ( 𝐴 ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ) ) ) )
94 3 29 1 93 mp3an ( 𝐶 𝑀 ( 𝐴 𝐵 ) → ( 𝐴 ⊆ ( 𝐴 𝐵 ) → ( ( 𝐴 𝐶 ) ∩ ( 𝐴 𝐵 ) ) = ( 𝐴 ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ) ) )
95 91 94 mpi ( 𝐶 𝑀 ( 𝐴 𝐵 ) → ( ( 𝐴 𝐶 ) ∩ ( 𝐴 𝐵 ) ) = ( 𝐴 ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ) )
96 1 38 chjcomi ( 𝐴 ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ) = ( ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ∨ 𝐴 )
97 38 1 chlejb1i ( ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ⊆ 𝐴 ↔ ( ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ∨ 𝐴 ) = 𝐴 )
98 97 biimpi ( ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ⊆ 𝐴 → ( ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ∨ 𝐴 ) = 𝐴 )
99 96 98 syl5eq ( ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ⊆ 𝐴 → ( 𝐴 ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ) = 𝐴 )
100 95 99 sylan9eq ( ( 𝐶 𝑀 ( 𝐴 𝐵 ) ∧ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ⊆ 𝐴 ) → ( ( 𝐴 𝐶 ) ∩ ( 𝐴 𝐵 ) ) = 𝐴 )
101 100 ineq1d ( ( 𝐶 𝑀 ( 𝐴 𝐵 ) ∧ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ⊆ 𝐴 ) → ( ( ( 𝐴 𝐶 ) ∩ ( 𝐴 𝐵 ) ) ∩ 𝐵 ) = ( 𝐴𝐵 ) )
102 90 101 eqtr3id ( ( 𝐶 𝑀 ( 𝐴 𝐵 ) ∧ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ⊆ 𝐴 ) → ( ( 𝐴 𝐶 ) ∩ ( ( 𝐴 𝐵 ) ∩ 𝐵 ) ) = ( 𝐴𝐵 ) )
103 89 102 syl5eq ( ( 𝐶 𝑀 ( 𝐴 𝐵 ) ∧ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ⊆ 𝐴 ) → ( ( 𝐶 𝐴 ) ∩ 𝐵 ) = ( 𝐴𝐵 ) )
104 103 3adant1 ( ( 𝐴 𝑀 𝐵𝐶 𝑀 ( 𝐴 𝐵 ) ∧ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ⊆ 𝐴 ) → ( ( 𝐶 𝐴 ) ∩ 𝐵 ) = ( 𝐴𝐵 ) )
105 85 104 jca ( ( 𝐴 𝑀 𝐵𝐶 𝑀 ( 𝐴 𝐵 ) ∧ ( 𝐶 ∩ ( 𝐴 𝐵 ) ) ⊆ 𝐴 ) → ( ( 𝐶 𝐴 ) 𝑀 𝐵 ∧ ( ( 𝐶 𝐴 ) ∩ 𝐵 ) = ( 𝐴𝐵 ) ) )