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

Theorem isf32lem2 10297
Description: Lemma for isfin3-2 10310. Non-minimum implies that there is always another decrease. (Contributed by Stefan O'Rear, 5-Nov-2014.)
Hypotheses
Ref Expression
isf32lem.a (πœ‘ β†’ 𝐹:Ο‰βŸΆπ’« 𝐺)
isf32lem.b (πœ‘ β†’ βˆ€π‘₯ ∈ Ο‰ (πΉβ€˜suc π‘₯) βŠ† (πΉβ€˜π‘₯))
isf32lem.c (πœ‘ β†’ Β¬ ∩ ran 𝐹 ∈ ran 𝐹)
Assertion
Ref Expression
isf32lem2 ((πœ‘ ∧ 𝐴 ∈ Ο‰) β†’ βˆƒπ‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž ∧ (πΉβ€˜suc π‘Ž) ⊊ (πΉβ€˜π‘Ž)))
Distinct variable groups:   π‘₯,π‘Ž   𝐺,π‘Ž   πœ‘,π‘Ž,π‘₯   𝐴,π‘Ž,π‘₯   𝐹,π‘Ž,π‘₯
Allowed substitution hint:   𝐺(π‘₯)

Proof of Theorem isf32lem2
Dummy variables 𝑏 𝑐 𝑑 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 isf32lem.c . . . . 5 (πœ‘ β†’ Β¬ ∩ ran 𝐹 ∈ ran 𝐹)
21adantr 482 . . . 4 ((πœ‘ ∧ 𝐴 ∈ Ο‰) β†’ Β¬ ∩ ran 𝐹 ∈ ran 𝐹)
3 isf32lem.a . . . . . . . . . 10 (πœ‘ β†’ 𝐹:Ο‰βŸΆπ’« 𝐺)
43ffnd 6674 . . . . . . . . 9 (πœ‘ β†’ 𝐹 Fn Ο‰)
5 peano2 7832 . . . . . . . . 9 (𝐴 ∈ Ο‰ β†’ suc 𝐴 ∈ Ο‰)
6 fnfvelrn 7036 . . . . . . . . 9 ((𝐹 Fn Ο‰ ∧ suc 𝐴 ∈ Ο‰) β†’ (πΉβ€˜suc 𝐴) ∈ ran 𝐹)
74, 5, 6syl2an 597 . . . . . . . 8 ((πœ‘ ∧ 𝐴 ∈ Ο‰) β†’ (πΉβ€˜suc 𝐴) ∈ ran 𝐹)
87adantr 482 . . . . . . 7 (((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž))) β†’ (πΉβ€˜suc 𝐴) ∈ ran 𝐹)
9 intss1 4929 . . . . . . 7 ((πΉβ€˜suc 𝐴) ∈ ran 𝐹 β†’ ∩ ran 𝐹 βŠ† (πΉβ€˜suc 𝐴))
108, 9syl 17 . . . . . 6 (((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž))) β†’ ∩ ran 𝐹 βŠ† (πΉβ€˜suc 𝐴))
11 fvelrnb 6908 . . . . . . . . . . 11 (𝐹 Fn Ο‰ β†’ (𝑏 ∈ ran 𝐹 ↔ βˆƒπ‘ ∈ Ο‰ (πΉβ€˜π‘) = 𝑏))
124, 11syl 17 . . . . . . . . . 10 (πœ‘ β†’ (𝑏 ∈ ran 𝐹 ↔ βˆƒπ‘ ∈ Ο‰ (πΉβ€˜π‘) = 𝑏))
1312ad2antrr 725 . . . . . . . . 9 (((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž))) β†’ (𝑏 ∈ ran 𝐹 ↔ βˆƒπ‘ ∈ Ο‰ (πΉβ€˜π‘) = 𝑏))
14 simplrr 777 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ (βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) ∧ 𝑐 ∈ Ο‰)) ∧ suc 𝐴 βŠ† 𝑐) β†’ 𝑐 ∈ Ο‰)
155ad3antlr 730 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ (βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) ∧ 𝑐 ∈ Ο‰)) ∧ suc 𝐴 βŠ† 𝑐) β†’ suc 𝐴 ∈ Ο‰)
16 simpr 486 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ (βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) ∧ 𝑐 ∈ Ο‰)) ∧ suc 𝐴 βŠ† 𝑐) β†’ suc 𝐴 βŠ† 𝑐)
17 simplrl 776 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ (βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) ∧ 𝑐 ∈ Ο‰)) ∧ suc 𝐴 βŠ† 𝑐) β†’ βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)))
18 fveq2 6847 . . . . . . . . . . . . . . . . . . 19 (𝑏 = suc 𝐴 β†’ (πΉβ€˜π‘) = (πΉβ€˜suc 𝐴))
1918eqeq2d 2748 . . . . . . . . . . . . . . . . . 18 (𝑏 = suc 𝐴 β†’ ((πΉβ€˜suc 𝐴) = (πΉβ€˜π‘) ↔ (πΉβ€˜suc 𝐴) = (πΉβ€˜suc 𝐴)))
2019imbi2d 341 . . . . . . . . . . . . . . . . 17 (𝑏 = suc 𝐴 β†’ ((βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) β†’ (πΉβ€˜suc 𝐴) = (πΉβ€˜π‘)) ↔ (βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) β†’ (πΉβ€˜suc 𝐴) = (πΉβ€˜suc 𝐴))))
21 fveq2 6847 . . . . . . . . . . . . . . . . . . 19 (𝑏 = 𝑑 β†’ (πΉβ€˜π‘) = (πΉβ€˜π‘‘))
2221eqeq2d 2748 . . . . . . . . . . . . . . . . . 18 (𝑏 = 𝑑 β†’ ((πΉβ€˜suc 𝐴) = (πΉβ€˜π‘) ↔ (πΉβ€˜suc 𝐴) = (πΉβ€˜π‘‘)))
2322imbi2d 341 . . . . . . . . . . . . . . . . 17 (𝑏 = 𝑑 β†’ ((βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) β†’ (πΉβ€˜suc 𝐴) = (πΉβ€˜π‘)) ↔ (βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) β†’ (πΉβ€˜suc 𝐴) = (πΉβ€˜π‘‘))))
24 fveq2 6847 . . . . . . . . . . . . . . . . . . 19 (𝑏 = suc 𝑑 β†’ (πΉβ€˜π‘) = (πΉβ€˜suc 𝑑))
2524eqeq2d 2748 . . . . . . . . . . . . . . . . . 18 (𝑏 = suc 𝑑 β†’ ((πΉβ€˜suc 𝐴) = (πΉβ€˜π‘) ↔ (πΉβ€˜suc 𝐴) = (πΉβ€˜suc 𝑑)))
2625imbi2d 341 . . . . . . . . . . . . . . . . 17 (𝑏 = suc 𝑑 β†’ ((βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) β†’ (πΉβ€˜suc 𝐴) = (πΉβ€˜π‘)) ↔ (βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) β†’ (πΉβ€˜suc 𝐴) = (πΉβ€˜suc 𝑑))))
27 fveq2 6847 . . . . . . . . . . . . . . . . . . 19 (𝑏 = 𝑐 β†’ (πΉβ€˜π‘) = (πΉβ€˜π‘))
2827eqeq2d 2748 . . . . . . . . . . . . . . . . . 18 (𝑏 = 𝑐 β†’ ((πΉβ€˜suc 𝐴) = (πΉβ€˜π‘) ↔ (πΉβ€˜suc 𝐴) = (πΉβ€˜π‘)))
2928imbi2d 341 . . . . . . . . . . . . . . . . 17 (𝑏 = 𝑐 β†’ ((βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) β†’ (πΉβ€˜suc 𝐴) = (πΉβ€˜π‘)) ↔ (βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) β†’ (πΉβ€˜suc 𝐴) = (πΉβ€˜π‘))))
30 eqid 2737 . . . . . . . . . . . . . . . . . 18 (πΉβ€˜suc 𝐴) = (πΉβ€˜suc 𝐴)
31302a1i 12 . . . . . . . . . . . . . . . . 17 (suc 𝐴 ∈ Ο‰ β†’ (βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) β†’ (πΉβ€˜suc 𝐴) = (πΉβ€˜suc 𝐴)))
32 elex 3466 . . . . . . . . . . . . . . . . . . . . . . . 24 (suc 𝐴 ∈ Ο‰ β†’ suc 𝐴 ∈ V)
33 sucexb 7744 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝐴 ∈ V ↔ suc 𝐴 ∈ V)
3432, 33sylibr 233 . . . . . . . . . . . . . . . . . . . . . . 23 (suc 𝐴 ∈ Ο‰ β†’ 𝐴 ∈ V)
3534adantl 483 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑑 ∈ Ο‰ ∧ suc 𝐴 ∈ Ο‰) β†’ 𝐴 ∈ V)
36 sucssel 6417 . . . . . . . . . . . . . . . . . . . . . 22 (𝐴 ∈ V β†’ (suc 𝐴 βŠ† 𝑑 β†’ 𝐴 ∈ 𝑑))
3735, 36syl 17 . . . . . . . . . . . . . . . . . . . . 21 ((𝑑 ∈ Ο‰ ∧ suc 𝐴 ∈ Ο‰) β†’ (suc 𝐴 βŠ† 𝑑 β†’ 𝐴 ∈ 𝑑))
3837imp 408 . . . . . . . . . . . . . . . . . . . 20 (((𝑑 ∈ Ο‰ ∧ suc 𝐴 ∈ Ο‰) ∧ suc 𝐴 βŠ† 𝑑) β†’ 𝐴 ∈ 𝑑)
39 eleq2w 2822 . . . . . . . . . . . . . . . . . . . . . . . 24 (π‘Ž = 𝑑 β†’ (𝐴 ∈ π‘Ž ↔ 𝐴 ∈ 𝑑))
40 suceq 6388 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (π‘Ž = 𝑑 β†’ suc π‘Ž = suc 𝑑)
4140fveq2d 6851 . . . . . . . . . . . . . . . . . . . . . . . . 25 (π‘Ž = 𝑑 β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜suc 𝑑))
42 fveq2 6847 . . . . . . . . . . . . . . . . . . . . . . . . 25 (π‘Ž = 𝑑 β†’ (πΉβ€˜π‘Ž) = (πΉβ€˜π‘‘))
4341, 42eqeq12d 2753 . . . . . . . . . . . . . . . . . . . . . . . 24 (π‘Ž = 𝑑 β†’ ((πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž) ↔ (πΉβ€˜suc 𝑑) = (πΉβ€˜π‘‘)))
4439, 43imbi12d 345 . . . . . . . . . . . . . . . . . . . . . . 23 (π‘Ž = 𝑑 β†’ ((𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) ↔ (𝐴 ∈ 𝑑 β†’ (πΉβ€˜suc 𝑑) = (πΉβ€˜π‘‘))))
4544rspcv 3580 . . . . . . . . . . . . . . . . . . . . . 22 (𝑑 ∈ Ο‰ β†’ (βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) β†’ (𝐴 ∈ 𝑑 β†’ (πΉβ€˜suc 𝑑) = (πΉβ€˜π‘‘))))
4645com23 86 . . . . . . . . . . . . . . . . . . . . 21 (𝑑 ∈ Ο‰ β†’ (𝐴 ∈ 𝑑 β†’ (βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) β†’ (πΉβ€˜suc 𝑑) = (πΉβ€˜π‘‘))))
4746ad2antrr 725 . . . . . . . . . . . . . . . . . . . 20 (((𝑑 ∈ Ο‰ ∧ suc 𝐴 ∈ Ο‰) ∧ suc 𝐴 βŠ† 𝑑) β†’ (𝐴 ∈ 𝑑 β†’ (βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) β†’ (πΉβ€˜suc 𝑑) = (πΉβ€˜π‘‘))))
4838, 47mpd 15 . . . . . . . . . . . . . . . . . . 19 (((𝑑 ∈ Ο‰ ∧ suc 𝐴 ∈ Ο‰) ∧ suc 𝐴 βŠ† 𝑑) β†’ (βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) β†’ (πΉβ€˜suc 𝑑) = (πΉβ€˜π‘‘)))
49 eqtr3 2763 . . . . . . . . . . . . . . . . . . . 20 (((πΉβ€˜suc 𝐴) = (πΉβ€˜π‘‘) ∧ (πΉβ€˜suc 𝑑) = (πΉβ€˜π‘‘)) β†’ (πΉβ€˜suc 𝐴) = (πΉβ€˜suc 𝑑))
5049expcom 415 . . . . . . . . . . . . . . . . . . 19 ((πΉβ€˜suc 𝑑) = (πΉβ€˜π‘‘) β†’ ((πΉβ€˜suc 𝐴) = (πΉβ€˜π‘‘) β†’ (πΉβ€˜suc 𝐴) = (πΉβ€˜suc 𝑑)))
5148, 50syl6 35 . . . . . . . . . . . . . . . . . 18 (((𝑑 ∈ Ο‰ ∧ suc 𝐴 ∈ Ο‰) ∧ suc 𝐴 βŠ† 𝑑) β†’ (βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) β†’ ((πΉβ€˜suc 𝐴) = (πΉβ€˜π‘‘) β†’ (πΉβ€˜suc 𝐴) = (πΉβ€˜suc 𝑑))))
5251a2d 29 . . . . . . . . . . . . . . . . 17 (((𝑑 ∈ Ο‰ ∧ suc 𝐴 ∈ Ο‰) ∧ suc 𝐴 βŠ† 𝑑) β†’ ((βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) β†’ (πΉβ€˜suc 𝐴) = (πΉβ€˜π‘‘)) β†’ (βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) β†’ (πΉβ€˜suc 𝐴) = (πΉβ€˜suc 𝑑))))
5320, 23, 26, 29, 31, 52findsg 7841 . . . . . . . . . . . . . . . 16 (((𝑐 ∈ Ο‰ ∧ suc 𝐴 ∈ Ο‰) ∧ suc 𝐴 βŠ† 𝑐) β†’ (βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) β†’ (πΉβ€˜suc 𝐴) = (πΉβ€˜π‘)))
5453impr 456 . . . . . . . . . . . . . . 15 (((𝑐 ∈ Ο‰ ∧ suc 𝐴 ∈ Ο‰) ∧ (suc 𝐴 βŠ† 𝑐 ∧ βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)))) β†’ (πΉβ€˜suc 𝐴) = (πΉβ€˜π‘))
5514, 15, 16, 17, 54syl22anc 838 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ (βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) ∧ 𝑐 ∈ Ο‰)) ∧ suc 𝐴 βŠ† 𝑐) β†’ (πΉβ€˜suc 𝐴) = (πΉβ€˜π‘))
56 eqimss 4005 . . . . . . . . . . . . . 14 ((πΉβ€˜suc 𝐴) = (πΉβ€˜π‘) β†’ (πΉβ€˜suc 𝐴) βŠ† (πΉβ€˜π‘))
5755, 56syl 17 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ (βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) ∧ 𝑐 ∈ Ο‰)) ∧ suc 𝐴 βŠ† 𝑐) β†’ (πΉβ€˜suc 𝐴) βŠ† (πΉβ€˜π‘))
585ad3antlr 730 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ (βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) ∧ 𝑐 ∈ Ο‰)) ∧ 𝑐 βŠ† suc 𝐴) β†’ suc 𝐴 ∈ Ο‰)
59 simplrr 777 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ (βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) ∧ 𝑐 ∈ Ο‰)) ∧ 𝑐 βŠ† suc 𝐴) β†’ 𝑐 ∈ Ο‰)
60 simpr 486 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ (βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) ∧ 𝑐 ∈ Ο‰)) ∧ 𝑐 βŠ† suc 𝐴) β†’ 𝑐 βŠ† suc 𝐴)
61 simplll 774 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ (βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) ∧ 𝑐 ∈ Ο‰)) ∧ 𝑐 βŠ† suc 𝐴) β†’ πœ‘)
62 isf32lem.b . . . . . . . . . . . . . . 15 (πœ‘ β†’ βˆ€π‘₯ ∈ Ο‰ (πΉβ€˜suc π‘₯) βŠ† (πΉβ€˜π‘₯))
633, 62, 1isf32lem1 10296 . . . . . . . . . . . . . 14 (((suc 𝐴 ∈ Ο‰ ∧ 𝑐 ∈ Ο‰) ∧ (𝑐 βŠ† suc 𝐴 ∧ πœ‘)) β†’ (πΉβ€˜suc 𝐴) βŠ† (πΉβ€˜π‘))
6458, 59, 60, 61, 63syl22anc 838 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ (βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) ∧ 𝑐 ∈ Ο‰)) ∧ 𝑐 βŠ† suc 𝐴) β†’ (πΉβ€˜suc 𝐴) βŠ† (πΉβ€˜π‘))
65 nnord 7815 . . . . . . . . . . . . . . . 16 (suc 𝐴 ∈ Ο‰ β†’ Ord suc 𝐴)
665, 65syl 17 . . . . . . . . . . . . . . 15 (𝐴 ∈ Ο‰ β†’ Ord suc 𝐴)
6766ad2antlr 726 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ (βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) ∧ 𝑐 ∈ Ο‰)) β†’ Ord suc 𝐴)
68 nnord 7815 . . . . . . . . . . . . . . 15 (𝑐 ∈ Ο‰ β†’ Ord 𝑐)
6968ad2antll 728 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ (βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) ∧ 𝑐 ∈ Ο‰)) β†’ Ord 𝑐)
70 ordtri2or2 6421 . . . . . . . . . . . . . 14 ((Ord suc 𝐴 ∧ Ord 𝑐) β†’ (suc 𝐴 βŠ† 𝑐 ∨ 𝑐 βŠ† suc 𝐴))
7167, 69, 70syl2anc 585 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ (βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) ∧ 𝑐 ∈ Ο‰)) β†’ (suc 𝐴 βŠ† 𝑐 ∨ 𝑐 βŠ† suc 𝐴))
7257, 64, 71mpjaodan 958 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ (βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) ∧ 𝑐 ∈ Ο‰)) β†’ (πΉβ€˜suc 𝐴) βŠ† (πΉβ€˜π‘))
7372anassrs 469 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž))) ∧ 𝑐 ∈ Ο‰) β†’ (πΉβ€˜suc 𝐴) βŠ† (πΉβ€˜π‘))
74 sseq2 3975 . . . . . . . . . . 11 ((πΉβ€˜π‘) = 𝑏 β†’ ((πΉβ€˜suc 𝐴) βŠ† (πΉβ€˜π‘) ↔ (πΉβ€˜suc 𝐴) βŠ† 𝑏))
7573, 74syl5ibcom 244 . . . . . . . . . 10 ((((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž))) ∧ 𝑐 ∈ Ο‰) β†’ ((πΉβ€˜π‘) = 𝑏 β†’ (πΉβ€˜suc 𝐴) βŠ† 𝑏))
7675rexlimdva 3153 . . . . . . . . 9 (((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž))) β†’ (βˆƒπ‘ ∈ Ο‰ (πΉβ€˜π‘) = 𝑏 β†’ (πΉβ€˜suc 𝐴) βŠ† 𝑏))
7713, 76sylbid 239 . . . . . . . 8 (((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž))) β†’ (𝑏 ∈ ran 𝐹 β†’ (πΉβ€˜suc 𝐴) βŠ† 𝑏))
7877ralrimiv 3143 . . . . . . 7 (((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž))) β†’ βˆ€π‘ ∈ ran 𝐹(πΉβ€˜suc 𝐴) βŠ† 𝑏)
79 ssint 4930 . . . . . . 7 ((πΉβ€˜suc 𝐴) βŠ† ∩ ran 𝐹 ↔ βˆ€π‘ ∈ ran 𝐹(πΉβ€˜suc 𝐴) βŠ† 𝑏)
8078, 79sylibr 233 . . . . . 6 (((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž))) β†’ (πΉβ€˜suc 𝐴) βŠ† ∩ ran 𝐹)
8110, 80eqssd 3966 . . . . 5 (((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž))) β†’ ∩ ran 𝐹 = (πΉβ€˜suc 𝐴))
8281, 8eqeltrd 2838 . . . 4 (((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž))) β†’ ∩ ran 𝐹 ∈ ran 𝐹)
832, 82mtand 815 . . 3 ((πœ‘ ∧ 𝐴 ∈ Ο‰) β†’ Β¬ βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)))
84 rexnal 3104 . . 3 (βˆƒπ‘Ž ∈ Ο‰ Β¬ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) ↔ Β¬ βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)))
8583, 84sylibr 233 . 2 ((πœ‘ ∧ 𝐴 ∈ Ο‰) β†’ βˆƒπ‘Ž ∈ Ο‰ Β¬ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)))
86 suceq 6388 . . . . . . . 8 (π‘₯ = π‘Ž β†’ suc π‘₯ = suc π‘Ž)
8786fveq2d 6851 . . . . . . 7 (π‘₯ = π‘Ž β†’ (πΉβ€˜suc π‘₯) = (πΉβ€˜suc π‘Ž))
88 fveq2 6847 . . . . . . 7 (π‘₯ = π‘Ž β†’ (πΉβ€˜π‘₯) = (πΉβ€˜π‘Ž))
8987, 88sseq12d 3982 . . . . . 6 (π‘₯ = π‘Ž β†’ ((πΉβ€˜suc π‘₯) βŠ† (πΉβ€˜π‘₯) ↔ (πΉβ€˜suc π‘Ž) βŠ† (πΉβ€˜π‘Ž)))
9089cbvralvw 3228 . . . . 5 (βˆ€π‘₯ ∈ Ο‰ (πΉβ€˜suc π‘₯) βŠ† (πΉβ€˜π‘₯) ↔ βˆ€π‘Ž ∈ Ο‰ (πΉβ€˜suc π‘Ž) βŠ† (πΉβ€˜π‘Ž))
9162, 90sylib 217 . . . 4 (πœ‘ β†’ βˆ€π‘Ž ∈ Ο‰ (πΉβ€˜suc π‘Ž) βŠ† (πΉβ€˜π‘Ž))
9291adantr 482 . . 3 ((πœ‘ ∧ 𝐴 ∈ Ο‰) β†’ βˆ€π‘Ž ∈ Ο‰ (πΉβ€˜suc π‘Ž) βŠ† (πΉβ€˜π‘Ž))
93 pm4.61 406 . . . . 5 (Β¬ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) ↔ (𝐴 ∈ π‘Ž ∧ Β¬ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)))
94 dfpss2 4050 . . . . . . 7 ((πΉβ€˜suc π‘Ž) ⊊ (πΉβ€˜π‘Ž) ↔ ((πΉβ€˜suc π‘Ž) βŠ† (πΉβ€˜π‘Ž) ∧ Β¬ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)))
9594simplbi2 502 . . . . . 6 ((πΉβ€˜suc π‘Ž) βŠ† (πΉβ€˜π‘Ž) β†’ (Β¬ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž) β†’ (πΉβ€˜suc π‘Ž) ⊊ (πΉβ€˜π‘Ž)))
9695anim2d 613 . . . . 5 ((πΉβ€˜suc π‘Ž) βŠ† (πΉβ€˜π‘Ž) β†’ ((𝐴 ∈ π‘Ž ∧ Β¬ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) β†’ (𝐴 ∈ π‘Ž ∧ (πΉβ€˜suc π‘Ž) ⊊ (πΉβ€˜π‘Ž))))
9793, 96biimtrid 241 . . . 4 ((πΉβ€˜suc π‘Ž) βŠ† (πΉβ€˜π‘Ž) β†’ (Β¬ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) β†’ (𝐴 ∈ π‘Ž ∧ (πΉβ€˜suc π‘Ž) ⊊ (πΉβ€˜π‘Ž))))
9897ralimi 3087 . . 3 (βˆ€π‘Ž ∈ Ο‰ (πΉβ€˜suc π‘Ž) βŠ† (πΉβ€˜π‘Ž) β†’ βˆ€π‘Ž ∈ Ο‰ (Β¬ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) β†’ (𝐴 ∈ π‘Ž ∧ (πΉβ€˜suc π‘Ž) ⊊ (πΉβ€˜π‘Ž))))
99 rexim 3091 . . 3 (βˆ€π‘Ž ∈ Ο‰ (Β¬ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) β†’ (𝐴 ∈ π‘Ž ∧ (πΉβ€˜suc π‘Ž) ⊊ (πΉβ€˜π‘Ž))) β†’ (βˆƒπ‘Ž ∈ Ο‰ Β¬ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) β†’ βˆƒπ‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž ∧ (πΉβ€˜suc π‘Ž) ⊊ (πΉβ€˜π‘Ž))))
10092, 98, 993syl 18 . 2 ((πœ‘ ∧ 𝐴 ∈ Ο‰) β†’ (βˆƒπ‘Ž ∈ Ο‰ Β¬ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) β†’ βˆƒπ‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž ∧ (πΉβ€˜suc π‘Ž) ⊊ (πΉβ€˜π‘Ž))))
10185, 100mpd 15 1 ((πœ‘ ∧ 𝐴 ∈ Ο‰) β†’ βˆƒπ‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž ∧ (πΉβ€˜suc π‘Ž) ⊊ (πΉβ€˜π‘Ž)))
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 397   ∨ wo 846   = wceq 1542   ∈ wcel 2107  βˆ€wral 3065  βˆƒwrex 3074  Vcvv 3448   βŠ† wss 3915   ⊊ wpss 3916  π’« cpw 4565  βˆ© cint 4912  ran crn 5639  Ord word 6321  suc csuc 6324   Fn wfn 6496  βŸΆwf 6497  β€˜cfv 6501  Ο‰com 7807
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2708  ax-sep 5261  ax-nul 5268  ax-pr 5389  ax-un 7677
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2815  df-nfc 2890  df-ne 2945  df-ral 3066  df-rex 3075  df-rab 3411  df-v 3450  df-dif 3918  df-un 3920  df-in 3922  df-ss 3932  df-pss 3934  df-nul 4288  df-if 4492  df-pw 4567  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4871  df-int 4913  df-br 5111  df-opab 5173  df-mpt 5194  df-tr 5228  df-id 5536  df-eprel 5542  df-po 5550  df-so 5551  df-fr 5593  df-we 5595  df-xp 5644  df-rel 5645  df-cnv 5646  df-co 5647  df-dm 5648  df-rn 5649  df-ord 6325  df-on 6326  df-lim 6327  df-suc 6328  df-iota 6453  df-fun 6503  df-fn 6504  df-f 6505  df-fv 6509  df-om 7808
This theorem is referenced by:  isf32lem5  10300
  Copyright terms: Public domain W3C validator