Metamath Proof Explorer


Theorem mdslmd3i

Description: Modular pair conditions that imply the modular pair property in a sublattice. Lemma 1.5.1 of MaedaMaeda p. 2. (Contributed by NM, 23-Dec-2006) (New usage is discouraged.)

Ref Expression
Hypotheses mdslmd.1 AC
mdslmd.2 BC
mdslmd.3 CC
mdslmd.4 DC
Assertion mdslmd3i A𝑀BAB𝑀CACDDAD𝑀BC

Proof

Step Hyp Ref Expression
1 mdslmd.1 AC
2 mdslmd.2 BC
3 mdslmd.3 CC
4 mdslmd.4 DC
5 chlej2 DCACxCDAxDxA
6 5 ex DCACxCDAxDxA
7 4 1 6 mp3an12 xCDAxDxA
8 7 impcom DAxCxDxA
9 8 ssrind DAxCxDBCxABC
10 9 adantll ACDDAxCxDBCxABC
11 10 adantll A𝑀BAB𝑀CACDDAxCxDBCxABC
12 11 adantr A𝑀BAB𝑀CACDDAxCxBCxDBCxABC
13 ssin xBxCxBC
14 inass xABC=xABC
15 mdi ACBCxCA𝑀BxBxAB=xAB
16 1 15 mp3anl1 BCxCA𝑀BxBxAB=xAB
17 2 16 mpanl1 xCA𝑀BxBxAB=xAB
18 17 ineq1d xCA𝑀BxBxABC=xABC
19 14 18 eqtr3id xCA𝑀BxBxABC=xABC
20 19 adantrlr xCA𝑀BAB𝑀CxBxABC=xABC
21 20 adantrrr xCA𝑀BAB𝑀CxBxCxABC=xABC
22 1 2 chincli ABC
23 mdi ABCCCxCAB𝑀CxCxABC=xABC
24 22 23 mp3anl1 CCxCAB𝑀CxCxABC=xABC
25 3 24 mpanl1 xCAB𝑀CxCxABC=xABC
26 inass ABC=ABC
27 26 oveq2i xABC=xABC
28 25 27 eqtrdi xCAB𝑀CxCxABC=xABC
29 28 adantrll xCA𝑀BAB𝑀CxCxABC=xABC
30 29 adantrrl xCA𝑀BAB𝑀CxBxCxABC=xABC
31 21 30 eqtrd xCA𝑀BAB𝑀CxBxCxABC=xABC
32 31 ancoms A𝑀BAB𝑀CxBxCxCxABC=xABC
33 32 an32s A𝑀BAB𝑀CxCxBxCxABC=xABC
34 13 33 sylan2br A𝑀BAB𝑀CxCxBCxABC=xABC
35 34 adantllr A𝑀BAB𝑀CACDDAxCxBCxABC=xABC
36 inass ACBC=ACBC
37 in12 CBC=BCC
38 inidm CC=C
39 38 ineq2i BCC=BC
40 37 39 eqtri CBC=BC
41 40 ineq2i ACBC=ABC
42 36 41 eqtr2i ABC=ACBC
43 ssrin ACDACBCDBC
44 42 43 eqsstrid ACDABCDBC
45 ssrin DADBCABC
46 44 45 anim12i ACDDAABCDBCDBCABC
47 eqss ABC=DBCABCDBCDBCABC
48 46 47 sylibr ACDDAABC=DBC
49 48 oveq2d ACDDAxABC=xDBC
50 49 ad3antlr A𝑀BAB𝑀CACDDAxCxBCxABC=xDBC
51 35 50 eqtrd A𝑀BAB𝑀CACDDAxCxBCxABC=xDBC
52 12 51 sseqtrd A𝑀BAB𝑀CACDDAxCxBCxDBCxDBC
53 52 ex A𝑀BAB𝑀CACDDAxCxBCxDBCxDBC
54 53 ralrimiva A𝑀BAB𝑀CACDDAxCxBCxDBCxDBC
55 2 3 chincli BCC
56 mdbr2 DCBCCD𝑀BCxCxBCxDBCxDBC
57 4 55 56 mp2an D𝑀BCxCxBCxDBCxDBC
58 54 57 sylibr A𝑀BAB𝑀CACDDAD𝑀BC