Metamath Proof Explorer


Theorem tfrlem1

Description: A technical lemma for transfinite recursion. Compare Lemma 1 of TakeutiZaring p. 47. (Contributed by NM, 23-Mar-1995) (Revised by Mario Carneiro, 24-May-2019)

Ref Expression
Hypotheses tfrlem1.1 φ A On
tfrlem1.2 φ Fun F A dom F
tfrlem1.3 φ Fun G A dom G
tfrlem1.4 φ x A F x = B F x
tfrlem1.5 φ x A G x = B G x
Assertion tfrlem1 φ x A F x = G x

Proof

Step Hyp Ref Expression
1 tfrlem1.1 φ A On
2 tfrlem1.2 φ Fun F A dom F
3 tfrlem1.3 φ Fun G A dom G
4 tfrlem1.4 φ x A F x = B F x
5 tfrlem1.5 φ x A G x = B G x
6 ssid A A
7 sseq1 y = z y A z A
8 raleq y = z x y F x = G x x z F x = G x
9 7 8 imbi12d y = z y A x y F x = G x z A x z F x = G x
10 9 imbi2d y = z φ y A x y F x = G x φ z A x z F x = G x
11 sseq1 y = A y A A A
12 raleq y = A x y F x = G x x A F x = G x
13 11 12 imbi12d y = A y A x y F x = G x A A x A F x = G x
14 13 imbi2d y = A φ y A x y F x = G x φ A A x A F x = G x
15 r19.21v z y φ z A x z F x = G x φ z y z A x z F x = G x
16 2 ad4antr φ y On z y z A x z F x = G x y A w y Fun F A dom F
17 16 simpld φ y On z y z A x z F x = G x y A w y Fun F
18 17 funfnd φ y On z y z A x z F x = G x y A w y F Fn dom F
19 eloni y On Ord y
20 19 ad3antlr φ y On z y z A x z F x = G x y A Ord y
21 ordelss Ord y w y w y
22 20 21 sylan φ y On z y z A x z F x = G x y A w y w y
23 simplr φ y On z y z A x z F x = G x y A w y y A
24 22 23 sstrd φ y On z y z A x z F x = G x y A w y w A
25 16 simprd φ y On z y z A x z F x = G x y A w y A dom F
26 24 25 sstrd φ y On z y z A x z F x = G x y A w y w dom F
27 fnssres F Fn dom F w dom F F w Fn w
28 18 26 27 syl2anc φ y On z y z A x z F x = G x y A w y F w Fn w
29 3 ad4antr φ y On z y z A x z F x = G x y A w y Fun G A dom G
30 29 simpld φ y On z y z A x z F x = G x y A w y Fun G
31 30 funfnd φ y On z y z A x z F x = G x y A w y G Fn dom G
32 29 simprd φ y On z y z A x z F x = G x y A w y A dom G
33 24 32 sstrd φ y On z y z A x z F x = G x y A w y w dom G
34 fnssres G Fn dom G w dom G G w Fn w
35 31 33 34 syl2anc φ y On z y z A x z F x = G x y A w y G w Fn w
36 fveq2 x = u F x = F u
37 fveq2 x = u G x = G u
38 36 37 eqeq12d x = u F x = G x F u = G u
39 24 adantr φ y On z y z A x z F x = G x y A w y u w w A
40 sseq1 z = w z A w A
41 raleq z = w x z F x = G x x w F x = G x
42 40 41 imbi12d z = w z A x z F x = G x w A x w F x = G x
43 simp-4r φ y On z y z A x z F x = G x y A w y u w z y z A x z F x = G x
44 simplr φ y On z y z A x z F x = G x y A w y u w w y
45 42 43 44 rspcdva φ y On z y z A x z F x = G x y A w y u w w A x w F x = G x
46 39 45 mpd φ y On z y z A x z F x = G x y A w y u w x w F x = G x
47 simpr φ y On z y z A x z F x = G x y A w y u w u w
48 38 46 47 rspcdva φ y On z y z A x z F x = G x y A w y u w F u = G u
49 fvres u w F w u = F u
50 49 adantl φ y On z y z A x z F x = G x y A w y u w F w u = F u
51 fvres u w G w u = G u
52 51 adantl φ y On z y z A x z F x = G x y A w y u w G w u = G u
53 48 50 52 3eqtr4d φ y On z y z A x z F x = G x y A w y u w F w u = G w u
54 28 35 53 eqfnfvd φ y On z y z A x z F x = G x y A w y F w = G w
55 54 fveq2d φ y On z y z A x z F x = G x y A w y B F w = B G w
56 fveq2 x = w F x = F w
57 reseq2 x = w F x = F w
58 57 fveq2d x = w B F x = B F w
59 56 58 eqeq12d x = w F x = B F x F w = B F w
60 4 ad4antr φ y On z y z A x z F x = G x y A w y x A F x = B F x
61 simpr φ y On z y z A x z F x = G x y A y A
62 61 sselda φ y On z y z A x z F x = G x y A w y w A
63 59 60 62 rspcdva φ y On z y z A x z F x = G x y A w y F w = B F w
64 fveq2 x = w G x = G w
65 reseq2 x = w G x = G w
66 65 fveq2d x = w B G x = B G w
67 64 66 eqeq12d x = w G x = B G x G w = B G w
68 5 ad4antr φ y On z y z A x z F x = G x y A w y x A G x = B G x
69 67 68 62 rspcdva φ y On z y z A x z F x = G x y A w y G w = B G w
70 55 63 69 3eqtr4d φ y On z y z A x z F x = G x y A w y F w = G w
71 70 ralrimiva φ y On z y z A x z F x = G x y A w y F w = G w
72 56 64 eqeq12d x = w F x = G x F w = G w
73 72 cbvralvw x y F x = G x w y F w = G w
74 71 73 sylibr φ y On z y z A x z F x = G x y A x y F x = G x
75 74 exp31 φ y On z y z A x z F x = G x y A x y F x = G x
76 75 expcom y On φ z y z A x z F x = G x y A x y F x = G x
77 76 a2d y On φ z y z A x z F x = G x φ y A x y F x = G x
78 15 77 syl5bi y On z y φ z A x z F x = G x φ y A x y F x = G x
79 10 14 78 tfis3 A On φ A A x A F x = G x
80 1 79 mpcom φ A A x A F x = G x
81 6 80 mpi φ x A F x = G x