Metamath Proof Explorer


Theorem mdsl2i

Description: If the modular pair property holds in a sublattice, it holds in the whole lattice. Lemma 1.4 of MaedaMaeda p. 2. (Contributed by NM, 28-Apr-2006) (New usage is discouraged.)

Ref Expression
Hypotheses mdsl.1 AC
mdsl.2 BC
Assertion mdsl2i A𝑀BxCABxxBxABxAB

Proof

Step Hyp Ref Expression
1 mdsl.1 AC
2 mdsl.2 BC
3 chub1 xCACxxA
4 1 3 mpan2 xCxxA
5 iba xBxxAxxAxB
6 ssin xxAxBxxAB
7 5 6 bitrdi xBxxAxxAB
8 4 7 syl5ibcom xCxBxxAB
9 chub2 ACxCAxA
10 1 9 mpan xCAxA
11 10 ssrind xCABxAB
12 8 11 jctird xCxBxxABABxAB
13 chjcl xCACxAC
14 1 13 mpan2 xCxAC
15 chincl xACBCxABC
16 2 15 mpan2 xACxABC
17 14 16 syl xCxABC
18 1 2 chincli ABC
19 chlub xCABCxABCxxABABxABxABxAB
20 18 19 mp3an2 xCxABCxxABABxABxABxAB
21 17 20 mpdan xCxxABABxABxABxAB
22 12 21 sylibd xCxBxABxAB
23 eqss xAB=xABxABxABxABxAB
24 23 rbaib xABxABxAB=xABxABxAB
25 22 24 syl6 xCxBxAB=xABxABxAB
26 25 adantld xCABxxBxAB=xABxABxAB
27 26 pm5.74d xCABxxBxAB=xABABxxBxABxAB
28 2 1 chub2i BAB
29 sstr xBBABxAB
30 28 29 mpan2 xBxAB
31 30 pm4.71ri xBxABxB
32 31 anbi2i ABxxBABxxABxB
33 anass ABxxABxBABxxABxB
34 32 33 bitr4i ABxxBABxxABxB
35 34 imbi1i ABxxBxAB=xABABxxABxBxAB=xAB
36 27 35 bitr3di xCABxxBxABxABABxxABxBxAB=xAB
37 impexp ABxxABxBxAB=xABABxxABxBxAB=xAB
38 36 37 bitrdi xCABxxBxABxABABxxABxBxAB=xAB
39 38 ralbiia xCABxxBxABxABxCABxxABxBxAB=xAB
40 1 2 mdsl1i xCABxxABxBxAB=xABA𝑀B
41 39 40 bitr2i A𝑀BxCABxxBxABxAB