MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  relexpindlem Structured version   Visualization version   GIF version

Theorem relexpindlem 14010
Description: Principle of transitive induction, finite and non-class version. The first three hypotheses give various existences, the next three give necessary substitutions and the last two are the basis and the induction hypothesis. (Contributed by Drahflow, 12-Nov-2015.) (Revised by RP, 30-May-2020.)
Hypotheses
Ref Expression
relexpindlem.1 (𝜂 → Rel 𝑅)
relexpindlem.2 (𝜂𝑅 ∈ V)
relexpindlem.3 (𝜂𝑆 ∈ V)
relexpindlem.4 (𝑖 = 𝑆 → (𝜑𝜒))
relexpindlem.5 (𝑖 = 𝑥 → (𝜑𝜓))
relexpindlem.6 (𝑖 = 𝑗 → (𝜑𝜃))
relexpindlem.7 (𝜂𝜒)
relexpindlem.8 (𝜂 → (𝑗𝑅𝑥 → (𝜃𝜓)))
Assertion
Ref Expression
relexpindlem (𝜂 → (𝑛 ∈ ℕ0 → (𝑆(𝑅𝑟𝑛)𝑥𝜓)))
Distinct variable groups:   𝑥,𝑖   𝑥,𝑛   𝑖,𝑗,𝑅,𝑥   𝑆,𝑖,𝑗,𝑥   𝜂,𝑖,𝑗,𝑥   𝜑,𝑗,𝑥   𝜓,𝑖,𝑗   𝜒,𝑖   𝜃,𝑖   𝜂,𝑥
Allowed substitution hints:   𝜑(𝑖,𝑛)   𝜓(𝑥,𝑛)   𝜒(𝑥,𝑗,𝑛)   𝜃(𝑥,𝑗,𝑛)   𝜂(𝑛)   𝑅(𝑛)   𝑆(𝑛)

Proof of Theorem relexpindlem
Dummy variables 𝑙 𝑘 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 simpr 471 . . . 4 ((𝜂𝑛 ∈ ℕ0) → 𝑛 ∈ ℕ0)
2 eleq1 2837 . . . . . . 7 (𝑘 = 0 → (𝑘 ∈ ℕ0 ↔ 0 ∈ ℕ0))
32anbi2d 606 . . . . . 6 (𝑘 = 0 → ((𝜂𝑘 ∈ ℕ0) ↔ (𝜂 ∧ 0 ∈ ℕ0)))
4 oveq2 6800 . . . . . . . . 9 (𝑘 = 0 → (𝑅𝑟𝑘) = (𝑅𝑟0))
54breqd 4795 . . . . . . . 8 (𝑘 = 0 → (𝑆(𝑅𝑟𝑘)𝑥𝑆(𝑅𝑟0)𝑥))
65imbi1d 330 . . . . . . 7 (𝑘 = 0 → ((𝑆(𝑅𝑟𝑘)𝑥𝜓) ↔ (𝑆(𝑅𝑟0)𝑥𝜓)))
76albidv 2000 . . . . . 6 (𝑘 = 0 → (∀𝑥(𝑆(𝑅𝑟𝑘)𝑥𝜓) ↔ ∀𝑥(𝑆(𝑅𝑟0)𝑥𝜓)))
83, 7imbi12d 333 . . . . 5 (𝑘 = 0 → (((𝜂𝑘 ∈ ℕ0) → ∀𝑥(𝑆(𝑅𝑟𝑘)𝑥𝜓)) ↔ ((𝜂 ∧ 0 ∈ ℕ0) → ∀𝑥(𝑆(𝑅𝑟0)𝑥𝜓))))
9 eleq1 2837 . . . . . . 7 (𝑘 = 𝑙 → (𝑘 ∈ ℕ0𝑙 ∈ ℕ0))
109anbi2d 606 . . . . . 6 (𝑘 = 𝑙 → ((𝜂𝑘 ∈ ℕ0) ↔ (𝜂𝑙 ∈ ℕ0)))
11 oveq2 6800 . . . . . . . . 9 (𝑘 = 𝑙 → (𝑅𝑟𝑘) = (𝑅𝑟𝑙))
1211breqd 4795 . . . . . . . 8 (𝑘 = 𝑙 → (𝑆(𝑅𝑟𝑘)𝑥𝑆(𝑅𝑟𝑙)𝑥))
1312imbi1d 330 . . . . . . 7 (𝑘 = 𝑙 → ((𝑆(𝑅𝑟𝑘)𝑥𝜓) ↔ (𝑆(𝑅𝑟𝑙)𝑥𝜓)))
1413albidv 2000 . . . . . 6 (𝑘 = 𝑙 → (∀𝑥(𝑆(𝑅𝑟𝑘)𝑥𝜓) ↔ ∀𝑥(𝑆(𝑅𝑟𝑙)𝑥𝜓)))
1510, 14imbi12d 333 . . . . 5 (𝑘 = 𝑙 → (((𝜂𝑘 ∈ ℕ0) → ∀𝑥(𝑆(𝑅𝑟𝑘)𝑥𝜓)) ↔ ((𝜂𝑙 ∈ ℕ0) → ∀𝑥(𝑆(𝑅𝑟𝑙)𝑥𝜓))))
16 eleq1 2837 . . . . . . 7 (𝑘 = (𝑙 + 1) → (𝑘 ∈ ℕ0 ↔ (𝑙 + 1) ∈ ℕ0))
1716anbi2d 606 . . . . . 6 (𝑘 = (𝑙 + 1) → ((𝜂𝑘 ∈ ℕ0) ↔ (𝜂 ∧ (𝑙 + 1) ∈ ℕ0)))
18 oveq2 6800 . . . . . . . . 9 (𝑘 = (𝑙 + 1) → (𝑅𝑟𝑘) = (𝑅𝑟(𝑙 + 1)))
1918breqd 4795 . . . . . . . 8 (𝑘 = (𝑙 + 1) → (𝑆(𝑅𝑟𝑘)𝑥𝑆(𝑅𝑟(𝑙 + 1))𝑥))
2019imbi1d 330 . . . . . . 7 (𝑘 = (𝑙 + 1) → ((𝑆(𝑅𝑟𝑘)𝑥𝜓) ↔ (𝑆(𝑅𝑟(𝑙 + 1))𝑥𝜓)))
2120albidv 2000 . . . . . 6 (𝑘 = (𝑙 + 1) → (∀𝑥(𝑆(𝑅𝑟𝑘)𝑥𝜓) ↔ ∀𝑥(𝑆(𝑅𝑟(𝑙 + 1))𝑥𝜓)))
2217, 21imbi12d 333 . . . . 5 (𝑘 = (𝑙 + 1) → (((𝜂𝑘 ∈ ℕ0) → ∀𝑥(𝑆(𝑅𝑟𝑘)𝑥𝜓)) ↔ ((𝜂 ∧ (𝑙 + 1) ∈ ℕ0) → ∀𝑥(𝑆(𝑅𝑟(𝑙 + 1))𝑥𝜓))))
23 eleq1 2837 . . . . . . 7 (𝑘 = 𝑛 → (𝑘 ∈ ℕ0𝑛 ∈ ℕ0))
2423anbi2d 606 . . . . . 6 (𝑘 = 𝑛 → ((𝜂𝑘 ∈ ℕ0) ↔ (𝜂𝑛 ∈ ℕ0)))
25 oveq2 6800 . . . . . . . . 9 (𝑘 = 𝑛 → (𝑅𝑟𝑘) = (𝑅𝑟𝑛))
2625breqd 4795 . . . . . . . 8 (𝑘 = 𝑛 → (𝑆(𝑅𝑟𝑘)𝑥𝑆(𝑅𝑟𝑛)𝑥))
2726imbi1d 330 . . . . . . 7 (𝑘 = 𝑛 → ((𝑆(𝑅𝑟𝑘)𝑥𝜓) ↔ (𝑆(𝑅𝑟𝑛)𝑥𝜓)))
2827albidv 2000 . . . . . 6 (𝑘 = 𝑛 → (∀𝑥(𝑆(𝑅𝑟𝑘)𝑥𝜓) ↔ ∀𝑥(𝑆(𝑅𝑟𝑛)𝑥𝜓)))
2924, 28imbi12d 333 . . . . 5 (𝑘 = 𝑛 → (((𝜂𝑘 ∈ ℕ0) → ∀𝑥(𝑆(𝑅𝑟𝑘)𝑥𝜓)) ↔ ((𝜂𝑛 ∈ ℕ0) → ∀𝑥(𝑆(𝑅𝑟𝑛)𝑥𝜓))))
30 relexpindlem.2 . . . . . . . . . 10 (𝜂𝑅 ∈ V)
31 relexpindlem.1 . . . . . . . . . 10 (𝜂 → Rel 𝑅)
3230, 31jca 495 . . . . . . . . 9 (𝜂 → (𝑅 ∈ V ∧ Rel 𝑅))
3332adantr 466 . . . . . . . 8 ((𝜂 ∧ 0 ∈ ℕ0) → (𝑅 ∈ V ∧ Rel 𝑅))
34 relexp0 13970 . . . . . . . 8 ((𝑅 ∈ V ∧ Rel 𝑅) → (𝑅𝑟0) = ( I ↾ 𝑅))
3533, 34syl 17 . . . . . . 7 ((𝜂 ∧ 0 ∈ ℕ0) → (𝑅𝑟0) = ( I ↾ 𝑅))
36 relexpindlem.7 . . . . . . . . . . 11 (𝜂𝜒)
3736adantr 466 . . . . . . . . . 10 ((𝜂 ∧ 0 ∈ ℕ0) → 𝜒)
38 simpl 468 . . . . . . . . . 10 ((𝜂 ∧ 0 ∈ ℕ0) → 𝜂)
39 relexpindlem.3 . . . . . . . . . . . 12 (𝜂𝑆 ∈ V)
4039adantl 467 . . . . . . . . . . 11 ((𝜒𝜂) → 𝑆 ∈ V)
41 simprl 746 . . . . . . . . . . . . . . . . . . 19 ((𝑖 = 𝑆 ∧ (𝜂 ∧ (𝜑𝑖 = 𝑆))) → 𝜂)
4241, 36jccil 506 . . . . . . . . . . . . . . . . . 18 ((𝑖 = 𝑆 ∧ (𝜂 ∧ (𝜑𝑖 = 𝑆))) → (𝜒𝜂))
4342expcom 398 . . . . . . . . . . . . . . . . 17 ((𝜂 ∧ (𝜑𝑖 = 𝑆)) → (𝑖 = 𝑆 → (𝜒𝜂)))
4443expcom 398 . . . . . . . . . . . . . . . 16 ((𝜑𝑖 = 𝑆) → (𝜂 → (𝑖 = 𝑆 → (𝜒𝜂))))
4544expcom 398 . . . . . . . . . . . . . . 15 (𝑖 = 𝑆 → (𝜑 → (𝜂 → (𝑖 = 𝑆 → (𝜒𝜂)))))
46453imp1 1439 . . . . . . . . . . . . . 14 (((𝑖 = 𝑆𝜑𝜂) ∧ 𝑖 = 𝑆) → (𝜒𝜂))
4746expcom 398 . . . . . . . . . . . . 13 (𝑖 = 𝑆 → ((𝑖 = 𝑆𝜑𝜂) → (𝜒𝜂)))
48 simpr 471 . . . . . . . . . . . . . . . . 17 ((𝜂𝑖 = 𝑆) → 𝑖 = 𝑆)
4948adantl 467 . . . . . . . . . . . . . . . 16 ((𝜒 ∧ (𝜂𝑖 = 𝑆)) → 𝑖 = 𝑆)
50 relexpindlem.4 . . . . . . . . . . . . . . . . . . 19 (𝑖 = 𝑆 → (𝜑𝜒))
5150ad2antll 700 . . . . . . . . . . . . . . . . . 18 ((𝜒 ∧ (𝜂𝑖 = 𝑆)) → (𝜑𝜒))
5251bicomd 213 . . . . . . . . . . . . . . . . 17 ((𝜒 ∧ (𝜂𝑖 = 𝑆)) → (𝜒𝜑))
53 anbi1 609 . . . . . . . . . . . . . . . . . 18 ((𝜒𝜑) → ((𝜒 ∧ (𝜂𝑖 = 𝑆)) ↔ (𝜑 ∧ (𝜂𝑖 = 𝑆))))
54 simpl 468 . . . . . . . . . . . . . . . . . 18 ((𝜑 ∧ (𝜂𝑖 = 𝑆)) → 𝜑)
5553, 54syl6bi 243 . . . . . . . . . . . . . . . . 17 ((𝜒𝜑) → ((𝜒 ∧ (𝜂𝑖 = 𝑆)) → 𝜑))
5652, 55mpcom 38 . . . . . . . . . . . . . . . 16 ((𝜒 ∧ (𝜂𝑖 = 𝑆)) → 𝜑)
57 simprl 746 . . . . . . . . . . . . . . . 16 ((𝜒 ∧ (𝜂𝑖 = 𝑆)) → 𝜂)
5849, 56, 573jca 1121 . . . . . . . . . . . . . . 15 ((𝜒 ∧ (𝜂𝑖 = 𝑆)) → (𝑖 = 𝑆𝜑𝜂))
5958anassrs 458 . . . . . . . . . . . . . 14 (((𝜒𝜂) ∧ 𝑖 = 𝑆) → (𝑖 = 𝑆𝜑𝜂))
6059expcom 398 . . . . . . . . . . . . 13 (𝑖 = 𝑆 → ((𝜒𝜂) → (𝑖 = 𝑆𝜑𝜂)))
6147, 60impbid 202 . . . . . . . . . . . 12 (𝑖 = 𝑆 → ((𝑖 = 𝑆𝜑𝜂) ↔ (𝜒𝜂)))
6261spcegv 3443 . . . . . . . . . . 11 (𝑆 ∈ V → ((𝜒𝜂) → ∃𝑖(𝑖 = 𝑆𝜑𝜂)))
6340, 62mpcom 38 . . . . . . . . . 10 ((𝜒𝜂) → ∃𝑖(𝑖 = 𝑆𝜑𝜂))
6437, 38, 63syl2anc 565 . . . . . . . . 9 ((𝜂 ∧ 0 ∈ ℕ0) → ∃𝑖(𝑖 = 𝑆𝜑𝜂))
65 simpl 468 . . . . . . . . . . . . . 14 ((𝑆( I ↾ 𝑅)𝑥 ∧ (∃𝑖(𝑖 = 𝑆𝜑𝜂) ∧ (𝜂 ∧ 0 ∈ ℕ0))) → 𝑆( I ↾ 𝑅)𝑥)
66 df-br 4785 . . . . . . . . . . . . . 14 (𝑆( I ↾ 𝑅)𝑥 ↔ ⟨𝑆, 𝑥⟩ ∈ ( I ↾ 𝑅))
6765, 66sylib 208 . . . . . . . . . . . . 13 ((𝑆( I ↾ 𝑅)𝑥 ∧ (∃𝑖(𝑖 = 𝑆𝜑𝜂) ∧ (𝜂 ∧ 0 ∈ ℕ0))) → ⟨𝑆, 𝑥⟩ ∈ ( I ↾ 𝑅))
68 vex 3352 . . . . . . . . . . . . . 14 𝑥 ∈ V
6968opelres 5542 . . . . . . . . . . . . 13 (⟨𝑆, 𝑥⟩ ∈ ( I ↾ 𝑅) ↔ (⟨𝑆, 𝑥⟩ ∈ I ∧ 𝑆 𝑅))
7067, 69sylib 208 . . . . . . . . . . . 12 ((𝑆( I ↾ 𝑅)𝑥 ∧ (∃𝑖(𝑖 = 𝑆𝜑𝜂) ∧ (𝜂 ∧ 0 ∈ ℕ0))) → (⟨𝑆, 𝑥⟩ ∈ I ∧ 𝑆 𝑅))
71 simpll 742 . . . . . . . . . . . . . 14 (((⟨𝑆, 𝑥⟩ ∈ I ∧ 𝑆 𝑅) ∧ (𝑆( I ↾ 𝑅)𝑥 ∧ (∃𝑖(𝑖 = 𝑆𝜑𝜂) ∧ (𝜂 ∧ 0 ∈ ℕ0)))) → ⟨𝑆, 𝑥⟩ ∈ I )
72 df-br 4785 . . . . . . . . . . . . . 14 (𝑆 I 𝑥 ↔ ⟨𝑆, 𝑥⟩ ∈ I )
7371, 72sylibr 224 . . . . . . . . . . . . 13 (((⟨𝑆, 𝑥⟩ ∈ I ∧ 𝑆 𝑅) ∧ (𝑆( I ↾ 𝑅)𝑥 ∧ (∃𝑖(𝑖 = 𝑆𝜑𝜂) ∧ (𝜂 ∧ 0 ∈ ℕ0)))) → 𝑆 I 𝑥)
7468ideq 5413 . . . . . . . . . . . . 13 (𝑆 I 𝑥𝑆 = 𝑥)
7573, 74sylib 208 . . . . . . . . . . . 12 (((⟨𝑆, 𝑥⟩ ∈ I ∧ 𝑆 𝑅) ∧ (𝑆( I ↾ 𝑅)𝑥 ∧ (∃𝑖(𝑖 = 𝑆𝜑𝜂) ∧ (𝜂 ∧ 0 ∈ ℕ0)))) → 𝑆 = 𝑥)
7670, 75mpancom 660 . . . . . . . . . . 11 ((𝑆( I ↾ 𝑅)𝑥 ∧ (∃𝑖(𝑖 = 𝑆𝜑𝜂) ∧ (𝜂 ∧ 0 ∈ ℕ0))) → 𝑆 = 𝑥)
77 breq1 4787 . . . . . . . . . . . . 13 (𝑆 = 𝑥 → (𝑆( I ↾ 𝑅)𝑥𝑥( I ↾ 𝑅)𝑥))
78 eqeq2 2781 . . . . . . . . . . . . . . . 16 (𝑆 = 𝑥 → (𝑖 = 𝑆𝑖 = 𝑥))
79783anbi1d 1550 . . . . . . . . . . . . . . 15 (𝑆 = 𝑥 → ((𝑖 = 𝑆𝜑𝜂) ↔ (𝑖 = 𝑥𝜑𝜂)))
8079exbidv 2001 . . . . . . . . . . . . . 14 (𝑆 = 𝑥 → (∃𝑖(𝑖 = 𝑆𝜑𝜂) ↔ ∃𝑖(𝑖 = 𝑥𝜑𝜂)))
8180anbi1d 607 . . . . . . . . . . . . 13 (𝑆 = 𝑥 → ((∃𝑖(𝑖 = 𝑆𝜑𝜂) ∧ (𝜂 ∧ 0 ∈ ℕ0)) ↔ (∃𝑖(𝑖 = 𝑥𝜑𝜂) ∧ (𝜂 ∧ 0 ∈ ℕ0))))
8277, 81anbi12d 608 . . . . . . . . . . . 12 (𝑆 = 𝑥 → ((𝑆( I ↾ 𝑅)𝑥 ∧ (∃𝑖(𝑖 = 𝑆𝜑𝜂) ∧ (𝜂 ∧ 0 ∈ ℕ0))) ↔ (𝑥( I ↾ 𝑅)𝑥 ∧ (∃𝑖(𝑖 = 𝑥𝜑𝜂) ∧ (𝜂 ∧ 0 ∈ ℕ0)))))
83 simprl 746 . . . . . . . . . . . . . . . . . 18 ((𝜂 ∧ (𝜑𝑖 = 𝑥)) → 𝜑)
84 relexpindlem.5 . . . . . . . . . . . . . . . . . . 19 (𝑖 = 𝑥 → (𝜑𝜓))
8584ad2antll 700 . . . . . . . . . . . . . . . . . 18 ((𝜂 ∧ (𝜑𝑖 = 𝑥)) → (𝜑𝜓))
8683, 85mpbid 222 . . . . . . . . . . . . . . . . 17 ((𝜂 ∧ (𝜑𝑖 = 𝑥)) → 𝜓)
8786expcom 398 . . . . . . . . . . . . . . . 16 ((𝜑𝑖 = 𝑥) → (𝜂𝜓))
8887expcom 398 . . . . . . . . . . . . . . 15 (𝑖 = 𝑥 → (𝜑 → (𝜂𝜓)))
89883imp 1100 . . . . . . . . . . . . . 14 ((𝑖 = 𝑥𝜑𝜂) → 𝜓)
9089exlimiv 2009 . . . . . . . . . . . . 13 (∃𝑖(𝑖 = 𝑥𝜑𝜂) → 𝜓)
9190ad2antrl 699 . . . . . . . . . . . 12 ((𝑥( I ↾ 𝑅)𝑥 ∧ (∃𝑖(𝑖 = 𝑥𝜑𝜂) ∧ (𝜂 ∧ 0 ∈ ℕ0))) → 𝜓)
9282, 91syl6bi 243 . . . . . . . . . . 11 (𝑆 = 𝑥 → ((𝑆( I ↾ 𝑅)𝑥 ∧ (∃𝑖(𝑖 = 𝑆𝜑𝜂) ∧ (𝜂 ∧ 0 ∈ ℕ0))) → 𝜓))
9376, 92mpcom 38 . . . . . . . . . 10 ((𝑆( I ↾ 𝑅)𝑥 ∧ (∃𝑖(𝑖 = 𝑆𝜑𝜂) ∧ (𝜂 ∧ 0 ∈ ℕ0))) → 𝜓)
9493expcom 398 . . . . . . . . 9 ((∃𝑖(𝑖 = 𝑆𝜑𝜂) ∧ (𝜂 ∧ 0 ∈ ℕ0)) → (𝑆( I ↾ 𝑅)𝑥𝜓))
9564, 94mpancom 660 . . . . . . . 8 ((𝜂 ∧ 0 ∈ ℕ0) → (𝑆( I ↾ 𝑅)𝑥𝜓))
96 breq 4786 . . . . . . . . 9 ((𝑅𝑟0) = ( I ↾ 𝑅) → (𝑆(𝑅𝑟0)𝑥𝑆( I ↾ 𝑅)𝑥))
9796imbi1d 330 . . . . . . . 8 ((𝑅𝑟0) = ( I ↾ 𝑅) → ((𝑆(𝑅𝑟0)𝑥𝜓) ↔ (𝑆( I ↾ 𝑅)𝑥𝜓)))
9895, 97syl5ibr 236 . . . . . . 7 ((𝑅𝑟0) = ( I ↾ 𝑅) → ((𝜂 ∧ 0 ∈ ℕ0) → (𝑆(𝑅𝑟0)𝑥𝜓)))
9935, 98mpcom 38 . . . . . 6 ((𝜂 ∧ 0 ∈ ℕ0) → (𝑆(𝑅𝑟0)𝑥𝜓))
10099alrimiv 2006 . . . . 5 ((𝜂 ∧ 0 ∈ ℕ0) → ∀𝑥(𝑆(𝑅𝑟0)𝑥𝜓))
101 breq2 4788 . . . . . . . . . . . 12 (𝑖 = 𝑥 → (𝑆(𝑅𝑟𝑙)𝑖𝑆(𝑅𝑟𝑙)𝑥))
102101, 84imbi12d 333 . . . . . . . . . . 11 (𝑖 = 𝑥 → ((𝑆(𝑅𝑟𝑙)𝑖𝜑) ↔ (𝑆(𝑅𝑟𝑙)𝑥𝜓)))
103102cbvalv 2433 . . . . . . . . . 10 (∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑) ↔ ∀𝑥(𝑆(𝑅𝑟𝑙)𝑥𝜓))
104103bicomi 214 . . . . . . . . 9 (∀𝑥(𝑆(𝑅𝑟𝑙)𝑥𝜓) ↔ ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑))
105 imbi2 337 . . . . . . . . . . . . 13 ((∀𝑥(𝑆(𝑅𝑟𝑙)𝑥𝜓) ↔ ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) → (((𝜂𝑙 ∈ ℕ0) → ∀𝑥(𝑆(𝑅𝑟𝑙)𝑥𝜓)) ↔ ((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑))))
106105anbi1d 607 . . . . . . . . . . . 12 ((∀𝑥(𝑆(𝑅𝑟𝑙)𝑥𝜓) ↔ ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) → ((((𝜂𝑙 ∈ ℕ0) → ∀𝑥(𝑆(𝑅𝑟𝑙)𝑥𝜓)) ∧ 𝑙 ∈ ℕ0) ↔ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ 𝑙 ∈ ℕ0)))
107106anbi2d 606 . . . . . . . . . . 11 ((∀𝑥(𝑆(𝑅𝑟𝑙)𝑥𝜓) ↔ ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) → (((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑥(𝑆(𝑅𝑟𝑙)𝑥𝜓)) ∧ 𝑙 ∈ ℕ0)) ↔ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ 𝑙 ∈ ℕ0))))
108107anbi2d 606 . . . . . . . . . 10 ((∀𝑥(𝑆(𝑅𝑟𝑙)𝑥𝜓) ↔ ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) → ((𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑥(𝑆(𝑅𝑟𝑙)𝑥𝜓)) ∧ 𝑙 ∈ ℕ0))) ↔ (𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ 𝑙 ∈ ℕ0)))))
10930adantr 466 . . . . . . . . . . . . 13 ((𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ 𝑙 ∈ ℕ0))) → 𝑅 ∈ V)
11031adantr 466 . . . . . . . . . . . . 13 ((𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ 𝑙 ∈ ℕ0))) → Rel 𝑅)
111 simprrr 759 . . . . . . . . . . . . 13 ((𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ 𝑙 ∈ ℕ0))) → 𝑙 ∈ ℕ0)
112 relexpsucl 13980 . . . . . . . . . . . . 13 ((𝑅 ∈ V ∧ Rel 𝑅𝑙 ∈ ℕ0) → (𝑅𝑟(𝑙 + 1)) = (𝑅 ∘ (𝑅𝑟𝑙)))
113109, 110, 111, 112syl3anc 1475 . . . . . . . . . . . 12 ((𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ 𝑙 ∈ ℕ0))) → (𝑅𝑟(𝑙 + 1)) = (𝑅 ∘ (𝑅𝑟𝑙)))
114 simpl 468 . . . . . . . . . . . . . . . 16 ((𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥 ∧ (𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ 𝑙 ∈ ℕ0)))) → 𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥)
11539ad2antrl 699 . . . . . . . . . . . . . . . . 17 ((𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥 ∧ (𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ 𝑙 ∈ ℕ0)))) → 𝑆 ∈ V)
116 brcog 5427 . . . . . . . . . . . . . . . . 17 ((𝑆 ∈ V ∧ 𝑥 ∈ V) → (𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥 ↔ ∃𝑗(𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥)))
117115, 68, 116sylancl 566 . . . . . . . . . . . . . . . 16 ((𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥 ∧ (𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ 𝑙 ∈ ℕ0)))) → (𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥 ↔ ∃𝑗(𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥)))
118114, 117mpbid 222 . . . . . . . . . . . . . . 15 ((𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥 ∧ (𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ 𝑙 ∈ ℕ0)))) → ∃𝑗(𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥))
119 simprl 746 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥 ∧ (𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ (𝑙 ∈ ℕ0 ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥)))))) → 𝜂)
120 simprrl 758 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ (𝑙 ∈ ℕ0 ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥)))) → 𝑙 ∈ ℕ0)
121120ad2antll 700 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥 ∧ (𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ (𝑙 ∈ ℕ0 ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥)))))) → 𝑙 ∈ ℕ0)
122119, 121jca 495 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥 ∧ (𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ (𝑙 ∈ ℕ0 ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥)))))) → (𝜂𝑙 ∈ ℕ0))
123 simprl 746 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ (𝑙 ∈ ℕ0 ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥)))) → ((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)))
124123ad2antll 700 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥 ∧ (𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ (𝑙 ∈ ℕ0 ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥)))))) → ((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)))
125122, 124mpd 15 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥 ∧ (𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ (𝑙 ∈ ℕ0 ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥)))))) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑))
126 simprrl 758 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑) ∧ (𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥 ∧ (𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ (𝑙 ∈ ℕ0 ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥))))))) → 𝜂)
127 simprrr 759 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ (𝑙 ∈ ℕ0 ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥))) → 𝑗𝑅𝑥)
128127ad2antll 700 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ (𝑙 ∈ ℕ0 ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥))))) → 𝑗𝑅𝑥)
129128ad2antll 700 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑) ∧ (𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥 ∧ (𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ (𝑙 ∈ ℕ0 ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥))))))) → 𝑗𝑅𝑥)
130 breq2 4788 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑖 = 𝑗 → (𝑆(𝑅𝑟𝑙)𝑖𝑆(𝑅𝑟𝑙)𝑗))
131 relexpindlem.6 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑖 = 𝑗 → (𝜑𝜃))
132130, 131imbi12d 333 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑖 = 𝑗 → ((𝑆(𝑅𝑟𝑙)𝑖𝜑) ↔ (𝑆(𝑅𝑟𝑙)𝑗𝜃)))
133132cbvalv 2433 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑) ↔ ∀𝑗(𝑆(𝑅𝑟𝑙)𝑗𝜃))
134 id 22 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑) ↔ ∀𝑗(𝑆(𝑅𝑟𝑙)𝑗𝜃)) → (∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑) ↔ ∀𝑗(𝑆(𝑅𝑟𝑙)𝑗𝜃)))
135 imbi2 337 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑) ↔ ∀𝑗(𝑆(𝑅𝑟𝑙)𝑗𝜃)) → (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ↔ ((𝜂𝑙 ∈ ℕ0) → ∀𝑗(𝑆(𝑅𝑟𝑙)𝑗𝜃))))
136135anbi1d 607 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑) ↔ ∀𝑗(𝑆(𝑅𝑟𝑙)𝑗𝜃)) → ((((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ (𝑙 ∈ ℕ0 ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥))) ↔ (((𝜂𝑙 ∈ ℕ0) → ∀𝑗(𝑆(𝑅𝑟𝑙)𝑗𝜃)) ∧ (𝑙 ∈ ℕ0 ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥)))))
137136anbi2d 606 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑) ↔ ∀𝑗(𝑆(𝑅𝑟𝑙)𝑗𝜃)) → (((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ (𝑙 ∈ ℕ0 ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥)))) ↔ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑗(𝑆(𝑅𝑟𝑙)𝑗𝜃)) ∧ (𝑙 ∈ ℕ0 ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥))))))
138137anbi2d 606 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑) ↔ ∀𝑗(𝑆(𝑅𝑟𝑙)𝑗𝜃)) → ((𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ (𝑙 ∈ ℕ0 ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥))))) ↔ (𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑗(𝑆(𝑅𝑟𝑙)𝑗𝜃)) ∧ (𝑙 ∈ ℕ0 ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥)))))))
139138anbi2d 606 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑) ↔ ∀𝑗(𝑆(𝑅𝑟𝑙)𝑗𝜃)) → ((𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥 ∧ (𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ (𝑙 ∈ ℕ0 ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥)))))) ↔ (𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥 ∧ (𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑗(𝑆(𝑅𝑟𝑙)𝑗𝜃)) ∧ (𝑙 ∈ ℕ0 ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥))))))))
140134, 139anbi12d 608 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑) ↔ ∀𝑗(𝑆(𝑅𝑟𝑙)𝑗𝜃)) → ((∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑) ∧ (𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥 ∧ (𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ (𝑙 ∈ ℕ0 ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥))))))) ↔ (∀𝑗(𝑆(𝑅𝑟𝑙)𝑗𝜃) ∧ (𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥 ∧ (𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑗(𝑆(𝑅𝑟𝑙)𝑗𝜃)) ∧ (𝑙 ∈ ℕ0 ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥)))))))))
141 simprrl 758 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((((𝜂𝑙 ∈ ℕ0) → ∀𝑗(𝑆(𝑅𝑟𝑙)𝑗𝜃)) ∧ (𝑙 ∈ ℕ0 ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥))) → 𝑆(𝑅𝑟𝑙)𝑗)
142141ad2antll 700 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑗(𝑆(𝑅𝑟𝑙)𝑗𝜃)) ∧ (𝑙 ∈ ℕ0 ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥))))) → 𝑆(𝑅𝑟𝑙)𝑗)
143142ad2antll 700 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((∀𝑗(𝑆(𝑅𝑟𝑙)𝑗𝜃) ∧ (𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥 ∧ (𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑗(𝑆(𝑅𝑟𝑙)𝑗𝜃)) ∧ (𝑙 ∈ ℕ0 ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥))))))) → 𝑆(𝑅𝑟𝑙)𝑗)
144 sp 2206 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (∀𝑗(𝑆(𝑅𝑟𝑙)𝑗𝜃) → (𝑆(𝑅𝑟𝑙)𝑗𝜃))
145144adantr 466 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((∀𝑗(𝑆(𝑅𝑟𝑙)𝑗𝜃) ∧ (𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥 ∧ (𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑗(𝑆(𝑅𝑟𝑙)𝑗𝜃)) ∧ (𝑙 ∈ ℕ0 ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥))))))) → (𝑆(𝑅𝑟𝑙)𝑗𝜃))
146143, 145mpd 15 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((∀𝑗(𝑆(𝑅𝑟𝑙)𝑗𝜃) ∧ (𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥 ∧ (𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑗(𝑆(𝑅𝑟𝑙)𝑗𝜃)) ∧ (𝑙 ∈ ℕ0 ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥))))))) → 𝜃)
147140, 146syl6bi 243 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑) ↔ ∀𝑗(𝑆(𝑅𝑟𝑙)𝑗𝜃)) → ((∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑) ∧ (𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥 ∧ (𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ (𝑙 ∈ ℕ0 ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥))))))) → 𝜃))
148133, 147ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑) ∧ (𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥 ∧ (𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ (𝑙 ∈ ℕ0 ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥))))))) → 𝜃)
149 relexpindlem.8 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝜂 → (𝑗𝑅𝑥 → (𝜃𝜓)))
150126, 129, 148, 149syl3c 66 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑) ∧ (𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥 ∧ (𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ (𝑙 ∈ ℕ0 ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥))))))) → 𝜓)
151125, 150mpancom 660 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥 ∧ (𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ (𝑙 ∈ ℕ0 ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥)))))) → 𝜓)
152151expcom 398 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ (𝑙 ∈ ℕ0 ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥))))) → (𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥𝜓))
153152expcom 398 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ (𝑙 ∈ ℕ0 ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥)))) → (𝜂 → (𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥𝜓)))
154153expcom 398 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ (𝑙 ∈ ℕ0 ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥))) → ((𝑙 + 1) ∈ ℕ0 → (𝜂 → (𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥𝜓))))
155154anassrs 458 . . . . . . . . . . . . . . . . . . . . 21 (((((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ 𝑙 ∈ ℕ0) ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥)) → ((𝑙 + 1) ∈ ℕ0 → (𝜂 → (𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥𝜓))))
156155impcom 394 . . . . . . . . . . . . . . . . . . . 20 (((𝑙 + 1) ∈ ℕ0 ∧ ((((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ 𝑙 ∈ ℕ0) ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥))) → (𝜂 → (𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥𝜓)))
157156anassrs 458 . . . . . . . . . . . . . . . . . . 19 ((((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ 𝑙 ∈ ℕ0)) ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥)) → (𝜂 → (𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥𝜓)))
158157impcom 394 . . . . . . . . . . . . . . . . . 18 ((𝜂 ∧ (((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ 𝑙 ∈ ℕ0)) ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥))) → (𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥𝜓))
159158anassrs 458 . . . . . . . . . . . . . . . . 17 (((𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ 𝑙 ∈ ℕ0))) ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥)) → (𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥𝜓))
160159impcom 394 . . . . . . . . . . . . . . . 16 ((𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥 ∧ ((𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ 𝑙 ∈ ℕ0))) ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥))) → 𝜓)
161160anassrs 458 . . . . . . . . . . . . . . 15 (((𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥 ∧ (𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ 𝑙 ∈ ℕ0)))) ∧ (𝑆(𝑅𝑟𝑙)𝑗𝑗𝑅𝑥)) → 𝜓)
162118, 161exlimddv 2014 . . . . . . . . . . . . . 14 ((𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥 ∧ (𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ 𝑙 ∈ ℕ0)))) → 𝜓)
163162expcom 398 . . . . . . . . . . . . 13 ((𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ 𝑙 ∈ ℕ0))) → (𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥𝜓))
164 breq 4786 . . . . . . . . . . . . . 14 ((𝑅𝑟(𝑙 + 1)) = (𝑅 ∘ (𝑅𝑟𝑙)) → (𝑆(𝑅𝑟(𝑙 + 1))𝑥𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥))
165164imbi1d 330 . . . . . . . . . . . . 13 ((𝑅𝑟(𝑙 + 1)) = (𝑅 ∘ (𝑅𝑟𝑙)) → ((𝑆(𝑅𝑟(𝑙 + 1))𝑥𝜓) ↔ (𝑆(𝑅 ∘ (𝑅𝑟𝑙))𝑥𝜓)))
166163, 165syl5ibr 236 . . . . . . . . . . . 12 ((𝑅𝑟(𝑙 + 1)) = (𝑅 ∘ (𝑅𝑟𝑙)) → ((𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ 𝑙 ∈ ℕ0))) → (𝑆(𝑅𝑟(𝑙 + 1))𝑥𝜓)))
167113, 166mpcom 38 . . . . . . . . . . 11 ((𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ 𝑙 ∈ ℕ0))) → (𝑆(𝑅𝑟(𝑙 + 1))𝑥𝜓))
168167alrimiv 2006 . . . . . . . . . 10 ((𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) ∧ 𝑙 ∈ ℕ0))) → ∀𝑥(𝑆(𝑅𝑟(𝑙 + 1))𝑥𝜓))
169108, 168syl6bi 243 . . . . . . . . 9 ((∀𝑥(𝑆(𝑅𝑟𝑙)𝑥𝜓) ↔ ∀𝑖(𝑆(𝑅𝑟𝑙)𝑖𝜑)) → ((𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑥(𝑆(𝑅𝑟𝑙)𝑥𝜓)) ∧ 𝑙 ∈ ℕ0))) → ∀𝑥(𝑆(𝑅𝑟(𝑙 + 1))𝑥𝜓)))
170104, 169ax-mp 5 . . . . . . . 8 ((𝜂 ∧ ((𝑙 + 1) ∈ ℕ0 ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑥(𝑆(𝑅𝑟𝑙)𝑥𝜓)) ∧ 𝑙 ∈ ℕ0))) → ∀𝑥(𝑆(𝑅𝑟(𝑙 + 1))𝑥𝜓))
171170anassrs 458 . . . . . . 7 (((𝜂 ∧ (𝑙 + 1) ∈ ℕ0) ∧ (((𝜂𝑙 ∈ ℕ0) → ∀𝑥(𝑆(𝑅𝑟𝑙)𝑥𝜓)) ∧ 𝑙 ∈ ℕ0)) → ∀𝑥(𝑆(𝑅𝑟(𝑙 + 1))𝑥𝜓))
172171expcom 398 . . . . . 6 ((((𝜂𝑙 ∈ ℕ0) → ∀𝑥(𝑆(𝑅𝑟𝑙)𝑥𝜓)) ∧ 𝑙 ∈ ℕ0) → ((𝜂 ∧ (𝑙 + 1) ∈ ℕ0) → ∀𝑥(𝑆(𝑅𝑟(𝑙 + 1))𝑥𝜓)))
173172expcom 398 . . . . 5 (𝑙 ∈ ℕ0 → (((𝜂𝑙 ∈ ℕ0) → ∀𝑥(𝑆(𝑅𝑟𝑙)𝑥𝜓)) → ((𝜂 ∧ (𝑙 + 1) ∈ ℕ0) → ∀𝑥(𝑆(𝑅𝑟(𝑙 + 1))𝑥𝜓))))
1748, 15, 22, 29, 100, 173nn0ind 11673 . . . 4 (𝑛 ∈ ℕ0 → ((𝜂𝑛 ∈ ℕ0) → ∀𝑥(𝑆(𝑅𝑟𝑛)𝑥𝜓)))
1751, 174mpcom 38 . . 3 ((𝜂𝑛 ∈ ℕ0) → ∀𝑥(𝑆(𝑅𝑟𝑛)𝑥𝜓))
17617519.21bi 2212 . 2 ((𝜂𝑛 ∈ ℕ0) → (𝑆(𝑅𝑟𝑛)𝑥𝜓))
177176ex 397 1 (𝜂 → (𝑛 ∈ ℕ0 → (𝑆(𝑅𝑟𝑛)𝑥𝜓)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 196  wa 382  w3a 1070  wal 1628   = wceq 1630  wex 1851  wcel 2144  Vcvv 3349  cop 4320   cuni 4572   class class class wbr 4784   I cid 5156  cres 5251  ccom 5253  Rel wrel 5254  (class class class)co 6792  0cc0 10137  1c1 10138   + caddc 10140  0cn0 11493  𝑟crelexp 13967
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1869  ax-4 1884  ax-5 1990  ax-6 2056  ax-7 2092  ax-8 2146  ax-9 2153  ax-10 2173  ax-11 2189  ax-12 2202  ax-13 2407  ax-ext 2750  ax-sep 4912  ax-nul 4920  ax-pow 4971  ax-pr 5034  ax-un 7095  ax-cnex 10193  ax-resscn 10194  ax-1cn 10195  ax-icn 10196  ax-addcl 10197  ax-addrcl 10198  ax-mulcl 10199  ax-mulrcl 10200  ax-mulcom 10201  ax-addass 10202  ax-mulass 10203  ax-distr 10204  ax-i2m1 10205  ax-1ne0 10206  ax-1rid 10207  ax-rnegex 10208  ax-rrecex 10209  ax-cnre 10210  ax-pre-lttri 10211  ax-pre-lttrn 10212  ax-pre-ltadd 10213  ax-pre-mulgt0 10214
This theorem depends on definitions:  df-bi 197  df-an 383  df-or 827  df-3or 1071  df-3an 1072  df-tru 1633  df-ex 1852  df-nf 1857  df-sb 2049  df-eu 2621  df-mo 2622  df-clab 2757  df-cleq 2763  df-clel 2766  df-nfc 2901  df-ne 2943  df-nel 3046  df-ral 3065  df-rex 3066  df-reu 3067  df-rab 3069  df-v 3351  df-sbc 3586  df-csb 3681  df-dif 3724  df-un 3726  df-in 3728  df-ss 3735  df-pss 3737  df-nul 4062  df-if 4224  df-pw 4297  df-sn 4315  df-pr 4317  df-tp 4319  df-op 4321  df-uni 4573  df-iun 4654  df-br 4785  df-opab 4845  df-mpt 4862  df-tr 4885  df-id 5157  df-eprel 5162  df-po 5170  df-so 5171  df-fr 5208  df-we 5210  df-xp 5255  df-rel 5256  df-cnv 5257  df-co 5258  df-dm 5259  df-rn 5260  df-res 5261  df-ima 5262  df-pred 5823  df-ord 5869  df-on 5870  df-lim 5871  df-suc 5872  df-iota 5994  df-fun 6033  df-fn 6034  df-f 6035  df-f1 6036  df-fo 6037  df-f1o 6038  df-fv 6039  df-riota 6753  df-ov 6795  df-oprab 6796  df-mpt2 6797  df-om 7212  df-2nd 7315  df-wrecs 7558  df-recs 7620  df-rdg 7658  df-er 7895  df-en 8109  df-dom 8110  df-sdom 8111  df-pnf 10277  df-mnf 10278  df-xr 10279  df-ltxr 10280  df-le 10281  df-sub 10469  df-neg 10470  df-nn 11222  df-n0 11494  df-z 11579  df-uz 11888  df-seq 13008  df-relexp 13968
This theorem is referenced by:  relexpind  14011
  Copyright terms: Public domain W3C validator