Metamath Proof Explorer


Theorem mreexexlem4d

Description: Induction step of the induction in mreexexd . (Contributed by David Moews, 1-May-2017)

Ref Expression
Hypotheses mreexexlem2d.1 φ A Moore X
mreexexlem2d.2 N = mrCls A
mreexexlem2d.3 I = mrInd A
mreexexlem2d.4 φ s 𝒫 X y X z N s y N s y N s z
mreexexlem2d.5 φ F X H
mreexexlem2d.6 φ G X H
mreexexlem2d.7 φ F N G H
mreexexlem2d.8 φ F H I
mreexexlem4d.9 φ L ω
mreexexlem4d.A φ h f 𝒫 X h g 𝒫 X h f L g L f N g h f h I j 𝒫 g f j j h I
mreexexlem4d.B φ F suc L G suc L
Assertion mreexexlem4d φ j 𝒫 G F j j H I

Proof

Step Hyp Ref Expression
1 mreexexlem2d.1 φ A Moore X
2 mreexexlem2d.2 N = mrCls A
3 mreexexlem2d.3 I = mrInd A
4 mreexexlem2d.4 φ s 𝒫 X y X z N s y N s y N s z
5 mreexexlem2d.5 φ F X H
6 mreexexlem2d.6 φ G X H
7 mreexexlem2d.7 φ F N G H
8 mreexexlem2d.8 φ F H I
9 mreexexlem4d.9 φ L ω
10 mreexexlem4d.A φ h f 𝒫 X h g 𝒫 X h f L g L f N g h f h I j 𝒫 g f j j h I
11 mreexexlem4d.B φ F suc L G suc L
12 1 adantr φ F = A Moore X
13 4 adantr φ F = s 𝒫 X y X z N s y N s y N s z
14 5 adantr φ F = F X H
15 6 adantr φ F = G X H
16 7 adantr φ F = F N G H
17 8 adantr φ F = F H I
18 animorrl φ F = F = G =
19 12 2 3 13 14 15 16 17 18 mreexexlem3d φ F = j 𝒫 G F j j H I
20 n0 F r r F
21 20 bilani φ F r r F
22 1 adantr φ r F A Moore X
23 4 adantr φ r F s 𝒫 X y X z N s y N s y N s z
24 5 adantr φ r F F X H
25 6 adantr φ r F G X H
26 7 adantr φ r F F N G H
27 8 adantr φ r F F H I
28 simpr φ r F r F
29 22 2 3 23 24 25 26 27 28 mreexexlem2d φ r F q G ¬ q F r F r H q I
30 3anass q G ¬ q F r F r H q I q G ¬ q F r F r H q I
31 1 ad2antrr φ r F q G ¬ q F r F r H q I A Moore X
32 31 elfvexd φ r F q G ¬ q F r F r H q I X V
33 simpr2 φ r F q G ¬ q F r F r H q I ¬ q F r
34 difsnb ¬ q F r F r q = F r
35 33 34 sylib φ r F q G ¬ q F r F r H q I F r q = F r
36 5 ad2antrr φ r F q G ¬ q F r F r H q I F X H
37 36 ssdifssd φ r F q G ¬ q F r F r H q I F r X H
38 37 ssdifd φ r F q G ¬ q F r F r H q I F r q X H q
39 35 38 eqsstrrd φ r F q G ¬ q F r F r H q I F r X H q
40 difun1 X H q = X H q
41 39 40 sseqtrrdi φ r F q G ¬ q F r F r H q I F r X H q
42 6 ad2antrr φ r F q G ¬ q F r F r H q I G X H
43 42 ssdifd φ r F q G ¬ q F r F r H q I G q X H q
44 43 40 sseqtrrdi φ r F q G ¬ q F r F r H q I G q X H q
45 7 ad2antrr φ r F q G ¬ q F r F r H q I F N G H
46 simpr1 φ r F q G ¬ q F r F r H q I q G
47 uncom H q = q H
48 47 uneq2i G q H q = G q q H
49 unass G q q H = G q q H
50 difsnid q G G q q = G
51 50 uneq1d q G G q q H = G H
52 49 51 eqtr3id q G G q q H = G H
53 48 52 eqtrid q G G q H q = G H
54 46 53 syl φ r F q G ¬ q F r F r H q I G q H q = G H
55 54 fveq2d φ r F q G ¬ q F r F r H q I N G q H q = N G H
56 45 55 sseqtrrd φ r F q G ¬ q F r F r H q I F N G q H q
57 56 ssdifssd φ r F q G ¬ q F r F r H q I F r N G q H q
58 simpr3 φ r F q G ¬ q F r F r H q I F r H q I
59 11 ad2antrr φ r F q G ¬ q F r F r H q I F suc L G suc L
60 9 ad2antrr φ r F q G ¬ q F r F r H q I L ω
61 simplr φ r F q G ¬ q F r F r H q I r F
62 3anan12 L ω F suc L r F F suc L L ω r F
63 dif1ennn L ω F suc L r F F r L
64 62 63 sylbir F suc L L ω r F F r L
65 64 expcom L ω r F F suc L F r L
66 60 61 65 syl2anc φ r F q G ¬ q F r F r H q I F suc L F r L
67 3anan12 L ω G suc L q G G suc L L ω q G
68 dif1ennn L ω G suc L q G G q L
69 67 68 sylbir G suc L L ω q G G q L
70 69 expcom L ω q G G suc L G q L
71 60 46 70 syl2anc φ r F q G ¬ q F r F r H q I G suc L G q L
72 66 71 orim12d φ r F q G ¬ q F r F r H q I F suc L G suc L F r L G q L
73 59 72 mpd φ r F q G ¬ q F r F r H q I F r L G q L
74 10 ad2antrr φ r F q G ¬ q F r F r H q I h f 𝒫 X h g 𝒫 X h f L g L f N g h f h I j 𝒫 g f j j h I
75 32 41 44 57 58 73 74 mreexexlemd φ r F q G ¬ q F r F r H q I i 𝒫 G q F r i i H q I
76 32 adantr φ r F q G ¬ q F r F r H q I i 𝒫 G q F r i i H q I X V
77 6 ad3antrrr φ r F q G ¬ q F r F r H q I i 𝒫 G q F r i i H q I G X H
78 77 difss2d φ r F q G ¬ q F r F r H q I i 𝒫 G q F r i i H q I G X
79 76 78 ssexd φ r F q G ¬ q F r F r H q I i 𝒫 G q F r i i H q I G V
80 simprl φ r F q G ¬ q F r F r H q I i 𝒫 G q F r i i H q I i 𝒫 G q
81 80 elpwid φ r F q G ¬ q F r F r H q I i 𝒫 G q F r i i H q I i G q
82 81 difss2d φ r F q G ¬ q F r F r H q I i 𝒫 G q F r i i H q I i G
83 simplr1 φ r F q G ¬ q F r F r H q I i 𝒫 G q F r i i H q I q G
84 83 snssd φ r F q G ¬ q F r F r H q I i 𝒫 G q F r i i H q I q G
85 82 84 unssd φ r F q G ¬ q F r F r H q I i 𝒫 G q F r i i H q I i q G
86 79 85 sselpwd φ r F q G ¬ q F r F r H q I i 𝒫 G q F r i i H q I i q 𝒫 G
87 difsnid r F F r r = F
88 87 ad3antlr φ r F q G ¬ q F r F r H q I i 𝒫 G q F r i i H q I F r r = F
89 simprrl φ r F q G ¬ q F r F r H q I i 𝒫 G q F r i i H q I F r i
90 en2sn r V q V r q
91 90 el2v r q
92 91 a1i φ r F q G ¬ q F r F r H q I i 𝒫 G q F r i i H q I r q
93 disjdifr F r r =
94 93 a1i φ r F q G ¬ q F r F r H q I i 𝒫 G q F r i i H q I F r r =
95 ssdifin0 i G q i q =
96 81 95 syl φ r F q G ¬ q F r F r H q I i 𝒫 G q F r i i H q I i q =
97 unen F r i r q F r r = i q = F r r i q
98 89 92 94 96 97 syl22anc φ r F q G ¬ q F r F r H q I i 𝒫 G q F r i i H q I F r r i q
99 88 98 eqbrtrrd φ r F q G ¬ q F r F r H q I i 𝒫 G q F r i i H q I F i q
100 unass i q H = i q H
101 uncom q H = H q
102 101 uneq2i i q H = i H q
103 100 102 eqtr2i i H q = i q H
104 simprrr φ r F q G ¬ q F r F r H q I i 𝒫 G q F r i i H q I i H q I
105 103 104 eqeltrrid φ r F q G ¬ q F r F r H q I i 𝒫 G q F r i i H q I i q H I
106 breq2 j = i q F j F i q
107 uneq1 j = i q j H = i q H
108 107 eleq1d j = i q j H I i q H I
109 106 108 anbi12d j = i q F j j H I F i q i q H I
110 109 rspcev i q 𝒫 G F i q i q H I j 𝒫 G F j j H I
111 86 99 105 110 syl12anc φ r F q G ¬ q F r F r H q I i 𝒫 G q F r i i H q I j 𝒫 G F j j H I
112 75 111 rexlimddv φ r F q G ¬ q F r F r H q I j 𝒫 G F j j H I
113 30 112 sylan2br φ r F q G ¬ q F r F r H q I j 𝒫 G F j j H I
114 29 113 rexlimddv φ r F j 𝒫 G F j j H I
115 114 adantlr φ F r F j 𝒫 G F j j H I
116 21 115 exlimddv φ F j 𝒫 G F j j H I
117 19 116 pm2.61dane φ j 𝒫 G F j j H I