Metamath Proof Explorer


Theorem bnj916

Description: Technical lemma for bnj69 . This lemma may no longer be used or have become an indirect lemma of the theorem in question (i.e. a lemma of a lemma... of the theorem). (Contributed by Jonathan Ben-Naim, 3-Jun-2011) (New usage is discouraged.)

Ref Expression
Hypotheses bnj916.1 φ f = pred X A R
bnj916.2 ψ i ω suc i n f suc i = y f i pred y A R
bnj916.3 D = ω
bnj916.4 B = f | n D f Fn n φ ψ
bnj916.5 χ f Fn n φ ψ
Assertion bnj916 y trCl X A R f n i n D χ i n y f i

Proof

Step Hyp Ref Expression
1 bnj916.1 φ f = pred X A R
2 bnj916.2 ψ i ω suc i n f suc i = y f i pred y A R
3 bnj916.3 D = ω
4 bnj916.4 B = f | n D f Fn n φ ψ
5 bnj916.5 χ f Fn n φ ψ
6 bnj256 n D f Fn n φ ψ i dom f y f i n D f Fn n φ ψ i dom f y f i
7 6 2exbii n i n D f Fn n φ ψ i dom f y f i n i n D f Fn n φ ψ i dom f y f i
8 19.41v n n D f Fn n φ ψ i i dom f y f i n n D f Fn n φ ψ i i dom f y f i
9 nfv i n D
10 1 2 bnj911 f Fn n φ ψ i f Fn n φ ψ
11 10 nf5i i f Fn n φ ψ
12 9 11 nfan i n D f Fn n φ ψ
13 12 19.42 i n D f Fn n φ ψ i dom f y f i n D f Fn n φ ψ i i dom f y f i
14 13 exbii n i n D f Fn n φ ψ i dom f y f i n n D f Fn n φ ψ i i dom f y f i
15 df-rex n D f Fn n φ ψ n n D f Fn n φ ψ
16 df-rex i dom f y f i i i dom f y f i
17 15 16 anbi12i n D f Fn n φ ψ i dom f y f i n n D f Fn n φ ψ i i dom f y f i
18 8 14 17 3bitr4i n i n D f Fn n φ ψ i dom f y f i n D f Fn n φ ψ i dom f y f i
19 7 18 bitri n i n D f Fn n φ ψ i dom f y f i n D f Fn n φ ψ i dom f y f i
20 19 exbii f n i n D f Fn n φ ψ i dom f y f i f n D f Fn n φ ψ i dom f y f i
21 5 3anbi2i n D χ i dom f n D f Fn n φ ψ i dom f
22 21 anbi1i n D χ i dom f y f i n D f Fn n φ ψ i dom f y f i
23 df-bnj17 n D χ i dom f y f i n D χ i dom f y f i
24 df-bnj17 n D f Fn n φ ψ i dom f y f i n D f Fn n φ ψ i dom f y f i
25 22 23 24 3bitr4i n D χ i dom f y f i n D f Fn n φ ψ i dom f y f i
26 25 3exbii f n i n D χ i dom f y f i f n i n D f Fn n φ ψ i dom f y f i
27 1 2 3 4 bnj882 trCl X A R = f B i dom f f i
28 27 eleq2i y trCl X A R y f B i dom f f i
29 eliun y f B i dom f f i f B y i dom f f i
30 eliun y i dom f f i i dom f y f i
31 30 rexbii f B y i dom f f i f B i dom f y f i
32 28 29 31 3bitri y trCl X A R f B i dom f y f i
33 df-rex f B i dom f y f i f f B i dom f y f i
34 4 abeq2i f B n D f Fn n φ ψ
35 34 anbi1i f B i dom f y f i n D f Fn n φ ψ i dom f y f i
36 35 exbii f f B i dom f y f i f n D f Fn n φ ψ i dom f y f i
37 32 33 36 3bitri y trCl X A R f n D f Fn n φ ψ i dom f y f i
38 20 26 37 3bitr4ri y trCl X A R f n i n D χ i dom f y f i
39 bnj643 n D χ i dom f y f i χ
40 5 bnj564 χ dom f = n
41 40 eleq2d χ i dom f i n
42 anbi1 i dom f i n i dom f n D χ y f i i n n D χ y f i
43 bnj334 n D χ i dom f y f i i dom f n D χ y f i
44 bnj252 i dom f n D χ y f i i dom f n D χ y f i
45 43 44 bitri n D χ i dom f y f i i dom f n D χ y f i
46 bnj334 n D χ i n y f i i n n D χ y f i
47 bnj252 i n n D χ y f i i n n D χ y f i
48 46 47 bitri n D χ i n y f i i n n D χ y f i
49 42 45 48 3bitr4g i dom f i n n D χ i dom f y f i n D χ i n y f i
50 39 41 49 3syl n D χ i dom f y f i n D χ i dom f y f i n D χ i n y f i
51 50 ibi n D χ i dom f y f i n D χ i n y f i
52 51 2eximi n i n D χ i dom f y f i n i n D χ i n y f i
53 52 eximi f n i n D χ i dom f y f i f n i n D χ i n y f i
54 38 53 sylbi y trCl X A R f n i n D χ i n y f i