Metamath Proof Explorer


Theorem brfi1indALT

Description: Alternate proof of brfi1ind , which does not use brfi1uzind . (Contributed by Alexander van der Vekens, 7-Jan-2018) (New usage is discouraged.) (Proof modification is discouraged.)

Ref Expression
Hypotheses brfi1ind.r Rel G
brfi1ind.f F V
brfi1ind.1 v = V e = E ψ φ
brfi1ind.2 v = w e = f ψ θ
brfi1ind.3 v G e n v v n G F
brfi1ind.4 w = v n f = F θ χ
brfi1ind.base v G e v = 0 ψ
brfi1ind.step y + 1 0 v G e v = y + 1 n v χ ψ
Assertion brfi1indALT V G E V Fin φ

Proof

Step Hyp Ref Expression
1 brfi1ind.r Rel G
2 brfi1ind.f F V
3 brfi1ind.1 v = V e = E ψ φ
4 brfi1ind.2 v = w e = f ψ θ
5 brfi1ind.3 v G e n v v n G F
6 brfi1ind.4 w = v n f = F θ χ
7 brfi1ind.base v G e v = 0 ψ
8 brfi1ind.step y + 1 0 v G e v = y + 1 n v χ ψ
9 hashcl V Fin V 0
10 dfclel V 0 n n = V n 0
11 eqeq2 x = 0 v = x v = 0
12 11 anbi2d x = 0 v G e v = x v G e v = 0
13 12 imbi1d x = 0 v G e v = x ψ v G e v = 0 ψ
14 13 2albidv x = 0 v e v G e v = x ψ v e v G e v = 0 ψ
15 eqeq2 x = y v = x v = y
16 15 anbi2d x = y v G e v = x v G e v = y
17 16 imbi1d x = y v G e v = x ψ v G e v = y ψ
18 17 2albidv x = y v e v G e v = x ψ v e v G e v = y ψ
19 eqeq2 x = y + 1 v = x v = y + 1
20 19 anbi2d x = y + 1 v G e v = x v G e v = y + 1
21 20 imbi1d x = y + 1 v G e v = x ψ v G e v = y + 1 ψ
22 21 2albidv x = y + 1 v e v G e v = x ψ v e v G e v = y + 1 ψ
23 eqeq2 x = n v = x v = n
24 23 anbi2d x = n v G e v = x v G e v = n
25 24 imbi1d x = n v G e v = x ψ v G e v = n ψ
26 25 2albidv x = n v e v G e v = x ψ v e v G e v = n ψ
27 7 gen2 v e v G e v = 0 ψ
28 breq12 v = w e = f v G e w G f
29 fveqeq2 v = w v = y w = y
30 29 adantr v = w e = f v = y w = y
31 28 30 anbi12d v = w e = f v G e v = y w G f w = y
32 31 4 imbi12d v = w e = f v G e v = y ψ w G f w = y θ
33 32 cbval2vw v e v G e v = y ψ w f w G f w = y θ
34 nn0p1gt0 y 0 0 < y + 1
35 34 adantr y 0 v = y + 1 0 < y + 1
36 simpr y 0 v = y + 1 v = y + 1
37 35 36 breqtrrd y 0 v = y + 1 0 < v
38 37 adantrl y 0 v G e v = y + 1 0 < v
39 hashgt0elex v V 0 < v n n v
40 vex v V
41 simpr y 0 n v n v
42 simpl y 0 n v y 0
43 hashdifsnp1 v V n v y 0 v = y + 1 v n = y
44 40 41 42 43 mp3an2i y 0 n v v = y + 1 v n = y
45 44 imp y 0 n v v = y + 1 v n = y
46 peano2nn0 y 0 y + 1 0
47 46 ad2antrr y 0 n v v = y + 1 y + 1 0
48 47 ad2antlr w f w G f w = y θ v n G F y 0 n v v = y + 1 v G e y + 1 0
49 simpr w f w G f w = y θ v n G F y 0 n v v = y + 1 v G e v G e
50 simplrr w f w G f w = y θ v n G F y 0 n v v = y + 1 v G e v = y + 1
51 simprlr w f w G f w = y θ v n G F y 0 n v v = y + 1 n v
52 51 adantr w f w G f w = y θ v n G F y 0 n v v = y + 1 v G e n v
53 49 50 52 3jca w f w G f w = y θ v n G F y 0 n v v = y + 1 v G e v G e v = y + 1 n v
54 48 53 jca w f w G f w = y θ v n G F y 0 n v v = y + 1 v G e y + 1 0 v G e v = y + 1 n v
55 40 difexi v n V
56 breq12 w = v n f = F w G f v n G F
57 fveqeq2 w = v n w = y v n = y
58 57 adantr w = v n f = F w = y v n = y
59 56 58 anbi12d w = v n f = F w G f w = y v n G F v n = y
60 59 6 imbi12d w = v n f = F w G f w = y θ v n G F v n = y χ
61 60 spc2gv v n V F V w f w G f w = y θ v n G F v n = y χ
62 55 2 61 mp2an w f w G f w = y θ v n G F v n = y χ
63 62 expdimp w f w G f w = y θ v n G F v n = y χ
64 63 ad2antrr w f w G f w = y θ v n G F y 0 n v v = y + 1 v G e v n = y χ
65 54 64 8 syl6an w f w G f w = y θ v n G F y 0 n v v = y + 1 v G e v n = y ψ
66 65 exp41 w f w G f w = y θ v n G F y 0 n v v = y + 1 v G e v n = y ψ
67 66 com15 v n = y v n G F y 0 n v v = y + 1 v G e w f w G f w = y θ ψ
68 67 com23 v n = y y 0 n v v = y + 1 v n G F v G e w f w G f w = y θ ψ
69 45 68 mpcom y 0 n v v = y + 1 v n G F v G e w f w G f w = y θ ψ
70 69 ex y 0 n v v = y + 1 v n G F v G e w f w G f w = y θ ψ
71 70 com23 y 0 n v v n G F v = y + 1 v G e w f w G f w = y θ ψ
72 71 ex y 0 n v v n G F v = y + 1 v G e w f w G f w = y θ ψ
73 72 com15 v G e n v v n G F v = y + 1 y 0 w f w G f w = y θ ψ
74 73 imp v G e n v v n G F v = y + 1 y 0 w f w G f w = y θ ψ
75 5 74 mpd v G e n v v = y + 1 y 0 w f w G f w = y θ ψ
76 75 ex v G e n v v = y + 1 y 0 w f w G f w = y θ ψ
77 76 com4l n v v = y + 1 y 0 v G e w f w G f w = y θ ψ
78 77 exlimiv n n v v = y + 1 y 0 v G e w f w G f w = y θ ψ
79 39 78 syl v V 0 < v v = y + 1 y 0 v G e w f w G f w = y θ ψ
80 79 ex v V 0 < v v = y + 1 y 0 v G e w f w G f w = y θ ψ
81 80 com25 v V v G e v = y + 1 y 0 0 < v w f w G f w = y θ ψ
82 81 elv v G e v = y + 1 y 0 0 < v w f w G f w = y θ ψ
83 82 imp v G e v = y + 1 y 0 0 < v w f w G f w = y θ ψ
84 83 impcom y 0 v G e v = y + 1 0 < v w f w G f w = y θ ψ
85 38 84 mpd y 0 v G e v = y + 1 w f w G f w = y θ ψ
86 85 impancom y 0 w f w G f w = y θ v G e v = y + 1 ψ
87 86 alrimivv y 0 w f w G f w = y θ v e v G e v = y + 1 ψ
88 87 ex y 0 w f w G f w = y θ v e v G e v = y + 1 ψ
89 33 88 syl5bi y 0 v e v G e v = y ψ v e v G e v = y + 1 ψ
90 14 18 22 26 27 89 nn0ind n 0 v e v G e v = n ψ
91 1 brrelex12i V G E V V E V
92 breq12 v = V e = E v G e V G E
93 fveqeq2 v = V v = n V = n
94 93 adantr v = V e = E v = n V = n
95 92 94 anbi12d v = V e = E v G e v = n V G E V = n
96 95 3 imbi12d v = V e = E v G e v = n ψ V G E V = n φ
97 96 spc2gv V V E V v e v G e v = n ψ V G E V = n φ
98 97 com23 V V E V V G E V = n v e v G e v = n ψ φ
99 98 expd V V E V V G E V = n v e v G e v = n ψ φ
100 91 99 mpcom V G E V = n v e v G e v = n ψ φ
101 100 imp V G E V = n v e v G e v = n ψ φ
102 90 101 syl5 V G E V = n n 0 φ
103 102 expcom V = n V G E n 0 φ
104 103 com23 V = n n 0 V G E φ
105 104 eqcoms n = V n 0 V G E φ
106 105 imp n = V n 0 V G E φ
107 106 exlimiv n n = V n 0 V G E φ
108 10 107 sylbi V 0 V G E φ
109 9 108 syl V Fin V G E φ
110 109 impcom V G E V Fin φ