Metamath Proof Explorer


Theorem mdsymlem3

Description: Lemma for mdsymi . (Contributed by NM, 2-Jul-2004) (New usage is discouraged.)

Ref Expression
Hypotheses mdsymlem1.1 A C
mdsymlem1.2 B C
mdsymlem1.3 C = A p
Assertion mdsymlem3 p HAtoms ¬ B C A p A B A 0 r HAtoms q HAtoms p q r q A r B

Proof

Step Hyp Ref Expression
1 mdsymlem1.1 A C
2 mdsymlem1.2 B C
3 mdsymlem1.3 C = A p
4 ssin r B r C r B C
5 3 sseq2i r C r A p
6 5 bilani r B r C r A p
7 4 6 sylbir r B C r A p
8 1 atcvat4i r HAtoms p HAtoms A 0 r A p q HAtoms q A r p q
9 8 exp4b r HAtoms p HAtoms A 0 r A p q HAtoms q A r p q
10 9 com34 r HAtoms p HAtoms r A p A 0 q HAtoms q A r p q
11 10 com23 r HAtoms r A p p HAtoms A 0 q HAtoms q A r p q
12 11 imp4b r HAtoms r A p p HAtoms A 0 q HAtoms q A r p q
13 7 12 sylan2 r HAtoms r B C p HAtoms A 0 q HAtoms q A r p q
14 13 adantrr r HAtoms r B C ¬ r A p HAtoms A 0 q HAtoms q A r p q
15 14 com12 p HAtoms A 0 r HAtoms r B C ¬ r A q HAtoms q A r p q
16 15 adantlr p HAtoms ¬ B C A A 0 r HAtoms r B C ¬ r A q HAtoms q A r p q
17 16 adantlr p HAtoms ¬ B C A p A B A 0 r HAtoms r B C ¬ r A q HAtoms q A r p q
18 17 imp p HAtoms ¬ B C A p A B A 0 r HAtoms r B C ¬ r A q HAtoms q A r p q
19 nssne2 q A ¬ r A q r
20 19 adantrl q A r B C ¬ r A q r
21 atnemeq0 q HAtoms r HAtoms q r q r = 0
22 21 ancoms r HAtoms q HAtoms q r q r = 0
23 20 22 imbitrid r HAtoms q HAtoms q A r B C ¬ r A q r = 0
24 23 adantll p HAtoms r HAtoms q HAtoms q A r B C ¬ r A q r = 0
25 24 adantr p HAtoms r HAtoms q HAtoms r p q q A r B C ¬ r A q r = 0
26 atelch p HAtoms p C
27 atelch q HAtoms q C
28 chjcom p C q C p q = q p
29 26 27 28 syl2an p HAtoms q HAtoms p q = q p
30 29 adantlr p HAtoms r HAtoms q HAtoms p q = q p
31 30 sseq2d p HAtoms r HAtoms q HAtoms r p q r q p
32 atexch q C r HAtoms p HAtoms r q p q r = 0 p q r
33 27 32 syl3an1 q HAtoms r HAtoms p HAtoms r q p q r = 0 p q r
34 33 3com13 p HAtoms r HAtoms q HAtoms r q p q r = 0 p q r
35 34 3expa p HAtoms r HAtoms q HAtoms r q p q r = 0 p q r
36 35 expd p HAtoms r HAtoms q HAtoms r q p q r = 0 p q r
37 31 36 sylbid p HAtoms r HAtoms q HAtoms r p q q r = 0 p q r
38 37 imp p HAtoms r HAtoms q HAtoms r p q q r = 0 p q r
39 25 38 syld p HAtoms r HAtoms q HAtoms r p q q A r B C ¬ r A p q r
40 39 expd p HAtoms r HAtoms q HAtoms r p q q A r B C ¬ r A p q r
41 40 exp31 p HAtoms r HAtoms q HAtoms r p q q A r B C ¬ r A p q r
42 41 com24 p HAtoms r HAtoms q A r p q q HAtoms r B C ¬ r A p q r
43 42 impd p HAtoms r HAtoms q A r p q q HAtoms r B C ¬ r A p q r
44 43 com24 p HAtoms r HAtoms r B C ¬ r A q HAtoms q A r p q p q r
45 44 imp4b p HAtoms r HAtoms r B C ¬ r A q HAtoms q A r p q p q r
46 45 anasss p HAtoms r HAtoms r B C ¬ r A q HAtoms q A r p q p q r
47 simprl q HAtoms q A r p q q A
48 47 a1i p HAtoms r HAtoms r B C ¬ r A q HAtoms q A r p q q A
49 simpl r B r C r B
50 4 49 sylbir r B C r B
51 50 ad2antrl r HAtoms r B C ¬ r A r B
52 51 adantl p HAtoms r HAtoms r B C ¬ r A r B
53 48 52 jctird p HAtoms r HAtoms r B C ¬ r A q HAtoms q A r p q q A r B
54 46 53 jcad p HAtoms r HAtoms r B C ¬ r A q HAtoms q A r p q p q r q A r B
55 54 expd p HAtoms r HAtoms r B C ¬ r A q HAtoms q A r p q p q r q A r B
56 55 adantlr p HAtoms ¬ B C A r HAtoms r B C ¬ r A q HAtoms q A r p q p q r q A r B
57 56 adantlr p HAtoms ¬ B C A p A B r HAtoms r B C ¬ r A q HAtoms q A r p q p q r q A r B
58 57 adantlr p HAtoms ¬ B C A p A B A 0 r HAtoms r B C ¬ r A q HAtoms q A r p q p q r q A r B
59 58 reximdvai p HAtoms ¬ B C A p A B A 0 r HAtoms r B C ¬ r A q HAtoms q A r p q q HAtoms p q r q A r B
60 18 59 mpd p HAtoms ¬ B C A p A B A 0 r HAtoms r B C ¬ r A q HAtoms p q r q A r B
61 chjcl A C p C A p C
62 1 61 mpan p C A p C
63 3 62 eqeltrid p C C C
64 chincl B C C C B C C
65 2 63 64 sylancr p C B C C
66 26 65 syl p HAtoms B C C
67 chrelat2 B C C A C ¬ B C A r HAtoms r B C ¬ r A
68 66 1 67 sylancl p HAtoms ¬ B C A r HAtoms r B C ¬ r A
69 68 biimpa p HAtoms ¬ B C A r HAtoms r B C ¬ r A
70 69 ad2antrr p HAtoms ¬ B C A p A B A 0 r HAtoms r B C ¬ r A
71 60 70 reximddv p HAtoms ¬ B C A p A B A 0 r HAtoms q HAtoms p q r q A r B