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 biimtrid ⊢ 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 → φ