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