Metamath Proof Explorer


Theorem iunrelexpmin2

Description: The indexed union of relation exponentiation over the natural numbers (including zero) is the minimum reflexive-transitive relation that includes the relation. (Contributed by RP, 4-Jun-2020)

Ref Expression
Hypothesis iunrelexpmin2.def ⊢ C = r ∈ V ⟼ ⋃ n ∈ N r ↑ r n
Assertion iunrelexpmin2 ⊢ R ∈ V ∧ N = ℕ 0 → ∀ s I ↾ dom ⁡ R ∪ ran ⁡ R ⊆ s ∧ R ⊆ s ∧ s ∘ s ⊆ s → C ⁡ R ⊆ s

Proof

Step Hyp Ref Expression
1 iunrelexpmin2.def ⊢ C = r ∈ V ⟼ ⋃ n ∈ N r ↑ r n
2 simplr ⊢ R ∈ V ∧ N = ℕ 0 ∧ r = R → N = ℕ 0
3 simpr ⊢ R ∈ V ∧ N = ℕ 0 ∧ r = R → r = R
4 3 oveq1d ⊢ R ∈ V ∧ N = ℕ 0 ∧ r = R → r ↑ r n = R ↑ r n
5 2 4 iuneq12d ⊢ R ∈ V ∧ N = ℕ 0 ∧ r = R → ⋃ n ∈ N r ↑ r n = ⋃ n ∈ ℕ 0 R ↑ r n
6 elex ⊢ R ∈ V → R ∈ V
7 6 adantr ⊢ R ∈ V ∧ N = ℕ 0 → R ∈ V
8 nn0ex ⊢ ℕ 0 ∈ V
9 ovex ⊢ R ↑ r n ∈ V
10 8 9 iunex ⊢ ⋃ n ∈ ℕ 0 R ↑ r n ∈ V
11 10 a1i ⊢ R ∈ V ∧ N = ℕ 0 → ⋃ n ∈ ℕ 0 R ↑ r n ∈ V
12 1 5 7 11 fvmptd2 ⊢ R ∈ V ∧ N = ℕ 0 → C ⁡ R = ⋃ n ∈ ℕ 0 R ↑ r n
13 relexp0g ⊢ R ∈ V → R ↑ r 0 = I ↾ dom ⁡ R ∪ ran ⁡ R
14 13 sseq1d ⊢ R ∈ V → R ↑ r 0 ⊆ s ↔ I ↾ dom ⁡ R ∪ ran ⁡ R ⊆ s
15 relexp1g ⊢ R ∈ V → R ↑ r 1 = R
16 15 sseq1d ⊢ R ∈ V → R ↑ r 1 ⊆ s ↔ R ⊆ s
17 14 16 3anbi12d ⊢ R ∈ V → R ↑ r 0 ⊆ s ∧ R ↑ r 1 ⊆ s ∧ s ∘ s ⊆ s ↔ I ↾ dom ⁡ R ∪ ran ⁡ R ⊆ s ∧ R ⊆ s ∧ s ∘ s ⊆ s
18 elnn0 ⊢ n ∈ ℕ 0 ↔ n ∈ ℕ ∨ n = 0
19 oveq2 ⊢ x = 1 → R ↑ r x = R ↑ r 1
20 19 sseq1d ⊢ x = 1 → R ↑ r x ⊆ s ↔ R ↑ r 1 ⊆ s
21 20 imbi2d ⊢ x = 1 → R ∈ V ∧ R ↑ r 0 ⊆ s ∧ R ↑ r 1 ⊆ s ∧ s ∘ s ⊆ s → R ↑ r x ⊆ s ↔ R ∈ V ∧ R ↑ r 0 ⊆ s ∧ R ↑ r 1 ⊆ s ∧ s ∘ s ⊆ s → R ↑ r 1 ⊆ s
22 oveq2 ⊢ x = y → R ↑ r x = R ↑ r y
23 22 sseq1d ⊢ x = y → R ↑ r x ⊆ s ↔ R ↑ r y ⊆ s
24 23 imbi2d ⊢ x = y → R ∈ V ∧ R ↑ r 0 ⊆ s ∧ R ↑ r 1 ⊆ s ∧ s ∘ s ⊆ s → R ↑ r x ⊆ s ↔ R ∈ V ∧ R ↑ r 0 ⊆ s ∧ R ↑ r 1 ⊆ s ∧ s ∘ s ⊆ s → R ↑ r y ⊆ s
25 oveq2 ⊢ x = y + 1 → R ↑ r x = R ↑ r y + 1
26 25 sseq1d ⊢ x = y + 1 → R ↑ r x ⊆ s ↔ R ↑ r y + 1 ⊆ s
27 26 imbi2d ⊢ x = y + 1 → R ∈ V ∧ R ↑ r 0 ⊆ s ∧ R ↑ r 1 ⊆ s ∧ s ∘ s ⊆ s → R ↑ r x ⊆ s ↔ R ∈ V ∧ R ↑ r 0 ⊆ s ∧ R ↑ r 1 ⊆ s ∧ s ∘ s ⊆ s → R ↑ r y + 1 ⊆ s
28 oveq2 ⊢ x = n → R ↑ r x = R ↑ r n
29 28 sseq1d ⊢ x = n → R ↑ r x ⊆ s ↔ R ↑ r n ⊆ s
30 29 imbi2d ⊢ x = n → R ∈ V ∧ R ↑ r 0 ⊆ s ∧ R ↑ r 1 ⊆ s ∧ s ∘ s ⊆ s → R ↑ r x ⊆ s ↔ R ∈ V ∧ R ↑ r 0 ⊆ s ∧ R ↑ r 1 ⊆ s ∧ s ∘ s ⊆ s → R ↑ r n ⊆ s
31 simpr2 ⊢ R ∈ V ∧ R ↑ r 0 ⊆ s ∧ R ↑ r 1 ⊆ s ∧ s ∘ s ⊆ s → R ↑ r 1 ⊆ s
32 simp1 ⊢ y ∈ ℕ ∧ R ∈ V ∧ R ↑ r 0 ⊆ s ∧ R ↑ r 1 ⊆ s ∧ s ∘ s ⊆ s ∧ R ↑ r y ⊆ s → y ∈ ℕ
33 1nn ⊢ 1 ∈ ℕ
34 33 a1i ⊢ y ∈ ℕ ∧ R ∈ V ∧ R ↑ r 0 ⊆ s ∧ R ↑ r 1 ⊆ s ∧ s ∘ s ⊆ s ∧ R ↑ r y ⊆ s → 1 ∈ ℕ
35 simp2l ⊢ y ∈ ℕ ∧ R ∈ V ∧ R ↑ r 0 ⊆ s ∧ R ↑ r 1 ⊆ s ∧ s ∘ s ⊆ s ∧ R ↑ r y ⊆ s → R ∈ V
36 relexpaddnn ⊢ y ∈ ℕ ∧ 1 ∈ ℕ ∧ R ∈ V → R ↑ r y ∘ R ↑ r 1 = R ↑ r y + 1
37 32 34 35 36 syl3anc ⊢ y ∈ ℕ ∧ R ∈ V ∧ R ↑ r 0 ⊆ s ∧ R ↑ r 1 ⊆ s ∧ s ∘ s ⊆ s ∧ R ↑ r y ⊆ s → R ↑ r y ∘ R ↑ r 1 = R ↑ r y + 1
38 simp2r3 ⊢ y ∈ ℕ ∧ R ∈ V ∧ R ↑ r 0 ⊆ s ∧ R ↑ r 1 ⊆ s ∧ s ∘ s ⊆ s ∧ R ↑ r y ⊆ s → s ∘ s ⊆ s
39 simp3 ⊢ y ∈ ℕ ∧ R ∈ V ∧ R ↑ r 0 ⊆ s ∧ R ↑ r 1 ⊆ s ∧ s ∘ s ⊆ s ∧ R ↑ r y ⊆ s → R ↑ r y ⊆ s
40 simp2r2 ⊢ y ∈ ℕ ∧ R ∈ V ∧ R ↑ r 0 ⊆ s ∧ R ↑ r 1 ⊆ s ∧ s ∘ s ⊆ s ∧ R ↑ r y ⊆ s → R ↑ r 1 ⊆ s
41 38 39 40 trrelssd ⊢ y ∈ ℕ ∧ R ∈ V ∧ R ↑ r 0 ⊆ s ∧ R ↑ r 1 ⊆ s ∧ s ∘ s ⊆ s ∧ R ↑ r y ⊆ s → R ↑ r y ∘ R ↑ r 1 ⊆ s
42 37 41 eqsstrrd ⊢ y ∈ ℕ ∧ R ∈ V ∧ R ↑ r 0 ⊆ s ∧ R ↑ r 1 ⊆ s ∧ s ∘ s ⊆ s ∧ R ↑ r y ⊆ s → R ↑ r y + 1 ⊆ s
43 42 3exp ⊢ y ∈ ℕ → R ∈ V ∧ R ↑ r 0 ⊆ s ∧ R ↑ r 1 ⊆ s ∧ s ∘ s ⊆ s → R ↑ r y ⊆ s → R ↑ r y + 1 ⊆ s
44 43 a2d ⊢ y ∈ ℕ → R ∈ V ∧ R ↑ r 0 ⊆ s ∧ R ↑ r 1 ⊆ s ∧ s ∘ s ⊆ s → R ↑ r y ⊆ s → R ∈ V ∧ R ↑ r 0 ⊆ s ∧ R ↑ r 1 ⊆ s ∧ s ∘ s ⊆ s → R ↑ r y + 1 ⊆ s
45 21 24 27 30 31 44 nnind ⊢ n ∈ ℕ → R ∈ V ∧ R ↑ r 0 ⊆ s ∧ R ↑ r 1 ⊆ s ∧ s ∘ s ⊆ s → R ↑ r n ⊆ s
46 simpr1 ⊢ R ∈ V ∧ R ↑ r 0 ⊆ s ∧ R ↑ r 1 ⊆ s ∧ s ∘ s ⊆ s → R ↑ r 0 ⊆ s
47 oveq2 ⊢ n = 0 → R ↑ r n = R ↑ r 0
48 47 sseq1d ⊢ n = 0 → R ↑ r n ⊆ s ↔ R ↑ r 0 ⊆ s
49 46 48 imbitrrid ⊢ n = 0 → R ∈ V ∧ R ↑ r 0 ⊆ s ∧ R ↑ r 1 ⊆ s ∧ s ∘ s ⊆ s → R ↑ r n ⊆ s
50 45 49 jaoi ⊢ n ∈ ℕ ∨ n = 0 → R ∈ V ∧ R ↑ r 0 ⊆ s ∧ R ↑ r 1 ⊆ s ∧ s ∘ s ⊆ s → R ↑ r n ⊆ s
51 18 50 sylbi ⊢ n ∈ ℕ 0 → R ∈ V ∧ R ↑ r 0 ⊆ s ∧ R ↑ r 1 ⊆ s ∧ s ∘ s ⊆ s → R ↑ r n ⊆ s
52 51 com12 ⊢ R ∈ V ∧ R ↑ r 0 ⊆ s ∧ R ↑ r 1 ⊆ s ∧ s ∘ s ⊆ s → n ∈ ℕ 0 → R ↑ r n ⊆ s
53 52 ralrimiv ⊢ R ∈ V ∧ R ↑ r 0 ⊆ s ∧ R ↑ r 1 ⊆ s ∧ s ∘ s ⊆ s → ∀ n ∈ ℕ 0 R ↑ r n ⊆ s
54 iunss ⊢ ⋃ n ∈ ℕ 0 R ↑ r n ⊆ s ↔ ∀ n ∈ ℕ 0 R ↑ r n ⊆ s
55 53 54 sylibr ⊢ R ∈ V ∧ R ↑ r 0 ⊆ s ∧ R ↑ r 1 ⊆ s ∧ s ∘ s ⊆ s → ⋃ n ∈ ℕ 0 R ↑ r n ⊆ s
56 55 ex ⊢ R ∈ V → R ↑ r 0 ⊆ s ∧ R ↑ r 1 ⊆ s ∧ s ∘ s ⊆ s → ⋃ n ∈ ℕ 0 R ↑ r n ⊆ s
57 17 56 sylbird ⊢ R ∈ V → I ↾ dom ⁡ R ∪ ran ⁡ R ⊆ s ∧ R ⊆ s ∧ s ∘ s ⊆ s → ⋃ n ∈ ℕ 0 R ↑ r n ⊆ s
58 57 adantr ⊢ R ∈ V ∧ N = ℕ 0 → I ↾ dom ⁡ R ∪ ran ⁡ R ⊆ s ∧ R ⊆ s ∧ s ∘ s ⊆ s → ⋃ n ∈ ℕ 0 R ↑ r n ⊆ s
59 sseq1 ⊢ C ⁡ R = ⋃ n ∈ ℕ 0 R ↑ r n → C ⁡ R ⊆ s ↔ ⋃ n ∈ ℕ 0 R ↑ r n ⊆ s
60 59 imbi2d ⊢ C ⁡ R = ⋃ n ∈ ℕ 0 R ↑ r n → I ↾ dom ⁡ R ∪ ran ⁡ R ⊆ s ∧ R ⊆ s ∧ s ∘ s ⊆ s → C ⁡ R ⊆ s ↔ I ↾ dom ⁡ R ∪ ran ⁡ R ⊆ s ∧ R ⊆ s ∧ s ∘ s ⊆ s → ⋃ n ∈ ℕ 0 R ↑ r n ⊆ s
61 58 60 imbitrrid ⊢ C ⁡ R = ⋃ n ∈ ℕ 0 R ↑ r n → R ∈ V ∧ N = ℕ 0 → I ↾ dom ⁡ R ∪ ran ⁡ R ⊆ s ∧ R ⊆ s ∧ s ∘ s ⊆ s → C ⁡ R ⊆ s
62 12 61 mpcom ⊢ R ∈ V ∧ N = ℕ 0 → I ↾ dom ⁡ R ∪ ran ⁡ R ⊆ s ∧ R ⊆ s ∧ s ∘ s ⊆ s → C ⁡ R ⊆ s
63 62 alrimiv ⊢ R ∈ V ∧ N = ℕ 0 → ∀ s I ↾ dom ⁡ R ∪ ran ⁡ R ⊆ s ∧ R ⊆ s ∧ s ∘ s ⊆ s → C ⁡ R ⊆ s