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

Theorem isf32lem2 10349
Description: Lemma for isfin3-2 10362. 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 6719 . . . . . . . . 9 (πœ‘ β†’ 𝐹 Fn Ο‰)
5 peano2 7881 . . . . . . . . 9 (𝐴 ∈ Ο‰ β†’ suc 𝐴 ∈ Ο‰)
6 fnfvelrn 7083 . . . . . . . . 9 ((𝐹 Fn Ο‰ ∧ suc 𝐴 ∈ Ο‰) β†’ (πΉβ€˜suc 𝐴) ∈ ran 𝐹)
74, 5, 6syl2an 597 . . . . . . . 8 ((πœ‘ ∧ 𝐴 ∈ Ο‰) β†’ (πΉβ€˜suc 𝐴) ∈ ran 𝐹)
87adantr 482 . . . . . . 7 (((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž))) β†’ (πΉβ€˜suc 𝐴) ∈ ran 𝐹)
9 intss1 4968 . . . . . . 7 ((πΉβ€˜suc 𝐴) ∈ ran 𝐹 β†’ ∩ ran 𝐹 βŠ† (πΉβ€˜suc 𝐴))
108, 9syl 17 . . . . . 6 (((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž))) β†’ ∩ ran 𝐹 βŠ† (πΉβ€˜suc 𝐴))
11 fvelrnb 6953 . . . . . . . . . . 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 6892 . . . . . . . . . . . . . . . . . . 19 (𝑏 = suc 𝐴 β†’ (πΉβ€˜π‘) = (πΉβ€˜suc 𝐴))
1918eqeq2d 2744 . . . . . . . . . . . . . . . . . 18 (𝑏 = suc 𝐴 β†’ ((πΉβ€˜suc 𝐴) = (πΉβ€˜π‘) ↔ (πΉβ€˜suc 𝐴) = (πΉβ€˜suc 𝐴)))
2019imbi2d 341 . . . . . . . . . . . . . . . . 17 (𝑏 = suc 𝐴 β†’ ((βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) β†’ (πΉβ€˜suc 𝐴) = (πΉβ€˜π‘)) ↔ (βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) β†’ (πΉβ€˜suc 𝐴) = (πΉβ€˜suc 𝐴))))
21 fveq2 6892 . . . . . . . . . . . . . . . . . . 19 (𝑏 = 𝑑 β†’ (πΉβ€˜π‘) = (πΉβ€˜π‘‘))
2221eqeq2d 2744 . . . . . . . . . . . . . . . . . 18 (𝑏 = 𝑑 β†’ ((πΉβ€˜suc 𝐴) = (πΉβ€˜π‘) ↔ (πΉβ€˜suc 𝐴) = (πΉβ€˜π‘‘)))
2322imbi2d 341 . . . . . . . . . . . . . . . . 17 (𝑏 = 𝑑 β†’ ((βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) β†’ (πΉβ€˜suc 𝐴) = (πΉβ€˜π‘)) ↔ (βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) β†’ (πΉβ€˜suc 𝐴) = (πΉβ€˜π‘‘))))
24 fveq2 6892 . . . . . . . . . . . . . . . . . . 19 (𝑏 = suc 𝑑 β†’ (πΉβ€˜π‘) = (πΉβ€˜suc 𝑑))
2524eqeq2d 2744 . . . . . . . . . . . . . . . . . 18 (𝑏 = suc 𝑑 β†’ ((πΉβ€˜suc 𝐴) = (πΉβ€˜π‘) ↔ (πΉβ€˜suc 𝐴) = (πΉβ€˜suc 𝑑)))
2625imbi2d 341 . . . . . . . . . . . . . . . . 17 (𝑏 = suc 𝑑 β†’ ((βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) β†’ (πΉβ€˜suc 𝐴) = (πΉβ€˜π‘)) ↔ (βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) β†’ (πΉβ€˜suc 𝐴) = (πΉβ€˜suc 𝑑))))
27 fveq2 6892 . . . . . . . . . . . . . . . . . . 19 (𝑏 = 𝑐 β†’ (πΉβ€˜π‘) = (πΉβ€˜π‘))
2827eqeq2d 2744 . . . . . . . . . . . . . . . . . 18 (𝑏 = 𝑐 β†’ ((πΉβ€˜suc 𝐴) = (πΉβ€˜π‘) ↔ (πΉβ€˜suc 𝐴) = (πΉβ€˜π‘)))
2928imbi2d 341 . . . . . . . . . . . . . . . . 17 (𝑏 = 𝑐 β†’ ((βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) β†’ (πΉβ€˜suc 𝐴) = (πΉβ€˜π‘)) ↔ (βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) β†’ (πΉβ€˜suc 𝐴) = (πΉβ€˜π‘))))
30 eqid 2733 . . . . . . . . . . . . . . . . . 18 (πΉβ€˜suc 𝐴) = (πΉβ€˜suc 𝐴)
31302a1i 12 . . . . . . . . . . . . . . . . 17 (suc 𝐴 ∈ Ο‰ β†’ (βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) β†’ (πΉβ€˜suc 𝐴) = (πΉβ€˜suc 𝐴)))
32 elex 3493 . . . . . . . . . . . . . . . . . . . . . . . 24 (suc 𝐴 ∈ Ο‰ β†’ suc 𝐴 ∈ V)
33 sucexb 7792 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝐴 ∈ V ↔ suc 𝐴 ∈ V)
3432, 33sylibr 233 . . . . . . . . . . . . . . . . . . . . . . 23 (suc 𝐴 ∈ Ο‰ β†’ 𝐴 ∈ V)
3534adantl 483 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑑 ∈ Ο‰ ∧ suc 𝐴 ∈ Ο‰) β†’ 𝐴 ∈ V)
36 sucssel 6460 . . . . . . . . . . . . . . . . . . . . . 22 (𝐴 ∈ V β†’ (suc 𝐴 βŠ† 𝑑 β†’ 𝐴 ∈ 𝑑))
3735, 36syl 17 . . . . . . . . . . . . . . . . . . . . 21 ((𝑑 ∈ Ο‰ ∧ suc 𝐴 ∈ Ο‰) β†’ (suc 𝐴 βŠ† 𝑑 β†’ 𝐴 ∈ 𝑑))
3837imp 408 . . . . . . . . . . . . . . . . . . . 20 (((𝑑 ∈ Ο‰ ∧ suc 𝐴 ∈ Ο‰) ∧ suc 𝐴 βŠ† 𝑑) β†’ 𝐴 ∈ 𝑑)
39 eleq2w 2818 . . . . . . . . . . . . . . . . . . . . . . . 24 (π‘Ž = 𝑑 β†’ (𝐴 ∈ π‘Ž ↔ 𝐴 ∈ 𝑑))
40 suceq 6431 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (π‘Ž = 𝑑 β†’ suc π‘Ž = suc 𝑑)
4140fveq2d 6896 . . . . . . . . . . . . . . . . . . . . . . . . 25 (π‘Ž = 𝑑 β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜suc 𝑑))
42 fveq2 6892 . . . . . . . . . . . . . . . . . . . . . . . . 25 (π‘Ž = 𝑑 β†’ (πΉβ€˜π‘Ž) = (πΉβ€˜π‘‘))
4341, 42eqeq12d 2749 . . . . . . . . . . . . . . . . . . . . . . . 24 (π‘Ž = 𝑑 β†’ ((πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž) ↔ (πΉβ€˜suc 𝑑) = (πΉβ€˜π‘‘)))
4439, 43imbi12d 345 . . . . . . . . . . . . . . . . . . . . . . 23 (π‘Ž = 𝑑 β†’ ((𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) ↔ (𝐴 ∈ 𝑑 β†’ (πΉβ€˜suc 𝑑) = (πΉβ€˜π‘‘))))
4544rspcv 3609 . . . . . . . . . . . . . . . . . . . . . 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 2759 . . . . . . . . . . . . . . . . . . . 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 7890 . . . . . . . . . . . . . . . 16 (((𝑐 ∈ Ο‰ ∧ suc 𝐴 ∈ Ο‰) ∧ suc 𝐴 βŠ† 𝑐) β†’ (βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) β†’ (πΉβ€˜suc 𝐴) = (πΉβ€˜π‘)))
5453impr 456 . . . . . . . . . . . . . . 15 (((𝑐 ∈ Ο‰ ∧ suc 𝐴 ∈ Ο‰) ∧ (suc 𝐴 βŠ† 𝑐 ∧ βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)))) β†’ (πΉβ€˜suc 𝐴) = (πΉβ€˜π‘))
5514, 15, 16, 17, 54syl22anc 838 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ (βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) ∧ 𝑐 ∈ Ο‰)) ∧ suc 𝐴 βŠ† 𝑐) β†’ (πΉβ€˜suc 𝐴) = (πΉβ€˜π‘))
56 eqimss 4041 . . . . . . . . . . . . . 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 10348 . . . . . . . . . . . . . 14 (((suc 𝐴 ∈ Ο‰ ∧ 𝑐 ∈ Ο‰) ∧ (𝑐 βŠ† suc 𝐴 ∧ πœ‘)) β†’ (πΉβ€˜suc 𝐴) βŠ† (πΉβ€˜π‘))
6458, 59, 60, 61, 63syl22anc 838 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ (βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) ∧ 𝑐 ∈ Ο‰)) ∧ 𝑐 βŠ† suc 𝐴) β†’ (πΉβ€˜suc 𝐴) βŠ† (πΉβ€˜π‘))
65 nnord 7863 . . . . . . . . . . . . . . . 16 (suc 𝐴 ∈ Ο‰ β†’ Ord suc 𝐴)
665, 65syl 17 . . . . . . . . . . . . . . 15 (𝐴 ∈ Ο‰ β†’ Ord suc 𝐴)
6766ad2antlr 726 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ (βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) ∧ 𝑐 ∈ Ο‰)) β†’ Ord suc 𝐴)
68 nnord 7863 . . . . . . . . . . . . . . 15 (𝑐 ∈ Ο‰ β†’ Ord 𝑐)
6968ad2antll 728 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ (βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) ∧ 𝑐 ∈ Ο‰)) β†’ Ord 𝑐)
70 ordtri2or2 6464 . . . . . . . . . . . . . 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 4009 . . . . . . . . . . 11 ((πΉβ€˜π‘) = 𝑏 β†’ ((πΉβ€˜suc 𝐴) βŠ† (πΉβ€˜π‘) ↔ (πΉβ€˜suc 𝐴) βŠ† 𝑏))
7573, 74syl5ibcom 244 . . . . . . . . . 10 ((((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž))) ∧ 𝑐 ∈ Ο‰) β†’ ((πΉβ€˜π‘) = 𝑏 β†’ (πΉβ€˜suc 𝐴) βŠ† 𝑏))
7675rexlimdva 3156 . . . . . . . . 9 (((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž))) β†’ (βˆƒπ‘ ∈ Ο‰ (πΉβ€˜π‘) = 𝑏 β†’ (πΉβ€˜suc 𝐴) βŠ† 𝑏))
7713, 76sylbid 239 . . . . . . . 8 (((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž))) β†’ (𝑏 ∈ ran 𝐹 β†’ (πΉβ€˜suc 𝐴) βŠ† 𝑏))
7877ralrimiv 3146 . . . . . . 7 (((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž))) β†’ βˆ€π‘ ∈ ran 𝐹(πΉβ€˜suc 𝐴) βŠ† 𝑏)
79 ssint 4969 . . . . . . 7 ((πΉβ€˜suc 𝐴) βŠ† ∩ ran 𝐹 ↔ βˆ€π‘ ∈ ran 𝐹(πΉβ€˜suc 𝐴) βŠ† 𝑏)
8078, 79sylibr 233 . . . . . 6 (((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž))) β†’ (πΉβ€˜suc 𝐴) βŠ† ∩ ran 𝐹)
8110, 80eqssd 4000 . . . . 5 (((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž))) β†’ ∩ ran 𝐹 = (πΉβ€˜suc 𝐴))
8281, 8eqeltrd 2834 . . . 4 (((πœ‘ ∧ 𝐴 ∈ Ο‰) ∧ βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž))) β†’ ∩ ran 𝐹 ∈ ran 𝐹)
832, 82mtand 815 . . 3 ((πœ‘ ∧ 𝐴 ∈ Ο‰) β†’ Β¬ βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)))
84 rexnal 3101 . . 3 (βˆƒπ‘Ž ∈ Ο‰ Β¬ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) ↔ Β¬ βˆ€π‘Ž ∈ Ο‰ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)))
8583, 84sylibr 233 . 2 ((πœ‘ ∧ 𝐴 ∈ Ο‰) β†’ βˆƒπ‘Ž ∈ Ο‰ Β¬ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)))
86 suceq 6431 . . . . . . . 8 (π‘₯ = π‘Ž β†’ suc π‘₯ = suc π‘Ž)
8786fveq2d 6896 . . . . . . 7 (π‘₯ = π‘Ž β†’ (πΉβ€˜suc π‘₯) = (πΉβ€˜suc π‘Ž))
88 fveq2 6892 . . . . . . 7 (π‘₯ = π‘Ž β†’ (πΉβ€˜π‘₯) = (πΉβ€˜π‘Ž))
8987, 88sseq12d 4016 . . . . . 6 (π‘₯ = π‘Ž β†’ ((πΉβ€˜suc π‘₯) βŠ† (πΉβ€˜π‘₯) ↔ (πΉβ€˜suc π‘Ž) βŠ† (πΉβ€˜π‘Ž)))
9089cbvralvw 3235 . . . . 5 (βˆ€π‘₯ ∈ Ο‰ (πΉβ€˜suc π‘₯) βŠ† (πΉβ€˜π‘₯) ↔ βˆ€π‘Ž ∈ Ο‰ (πΉβ€˜suc π‘Ž) βŠ† (πΉβ€˜π‘Ž))
9162, 90sylib 217 . . . 4 (πœ‘ β†’ βˆ€π‘Ž ∈ Ο‰ (πΉβ€˜suc π‘Ž) βŠ† (πΉβ€˜π‘Ž))
9291adantr 482 . . 3 ((πœ‘ ∧ 𝐴 ∈ Ο‰) β†’ βˆ€π‘Ž ∈ Ο‰ (πΉβ€˜suc π‘Ž) βŠ† (πΉβ€˜π‘Ž))
93 pm4.61 406 . . . . 5 (Β¬ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) ↔ (𝐴 ∈ π‘Ž ∧ Β¬ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)))
94 dfpss2 4086 . . . . . . 7 ((πΉβ€˜suc π‘Ž) ⊊ (πΉβ€˜π‘Ž) ↔ ((πΉβ€˜suc π‘Ž) βŠ† (πΉβ€˜π‘Ž) ∧ Β¬ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)))
9594simplbi2 502 . . . . . 6 ((πΉβ€˜suc π‘Ž) βŠ† (πΉβ€˜π‘Ž) β†’ (Β¬ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž) β†’ (πΉβ€˜suc π‘Ž) ⊊ (πΉβ€˜π‘Ž)))
9695anim2d 613 . . . . 5 ((πΉβ€˜suc π‘Ž) βŠ† (πΉβ€˜π‘Ž) β†’ ((𝐴 ∈ π‘Ž ∧ Β¬ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) β†’ (𝐴 ∈ π‘Ž ∧ (πΉβ€˜suc π‘Ž) ⊊ (πΉβ€˜π‘Ž))))
9793, 96biimtrid 241 . . . 4 ((πΉβ€˜suc π‘Ž) βŠ† (πΉβ€˜π‘Ž) β†’ (Β¬ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) β†’ (𝐴 ∈ π‘Ž ∧ (πΉβ€˜suc π‘Ž) ⊊ (πΉβ€˜π‘Ž))))
9897ralimi 3084 . . 3 (βˆ€π‘Ž ∈ Ο‰ (πΉβ€˜suc π‘Ž) βŠ† (πΉβ€˜π‘Ž) β†’ βˆ€π‘Ž ∈ Ο‰ (Β¬ (𝐴 ∈ π‘Ž β†’ (πΉβ€˜suc π‘Ž) = (πΉβ€˜π‘Ž)) β†’ (𝐴 ∈ π‘Ž ∧ (πΉβ€˜suc π‘Ž) ⊊ (πΉβ€˜π‘Ž))))
99 rexim 3088 . . 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 3062  βˆƒwrex 3071  Vcvv 3475   βŠ† wss 3949   ⊊ wpss 3950  π’« cpw 4603  βˆ© cint 4951  ran crn 5678  Ord word 6364  suc csuc 6367   Fn wfn 6539  βŸΆwf 6540  β€˜cfv 6544  Ο‰com 7855
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 2704  ax-sep 5300  ax-nul 5307  ax-pr 5428  ax-un 7725
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 2535  df-eu 2564  df-clab 2711  df-cleq 2725  df-clel 2811  df-nfc 2886  df-ne 2942  df-ral 3063  df-rex 3072  df-rab 3434  df-v 3477  df-dif 3952  df-un 3954  df-in 3956  df-ss 3966  df-pss 3968  df-nul 4324  df-if 4530  df-pw 4605  df-sn 4630  df-pr 4632  df-op 4636  df-uni 4910  df-int 4952  df-br 5150  df-opab 5212  df-mpt 5233  df-tr 5267  df-id 5575  df-eprel 5581  df-po 5589  df-so 5590  df-fr 5632  df-we 5634  df-xp 5683  df-rel 5684  df-cnv 5685  df-co 5686  df-dm 5687  df-rn 5688  df-ord 6368  df-on 6369  df-lim 6370  df-suc 6371  df-iota 6496  df-fun 6546  df-fn 6547  df-f 6548  df-fv 6552  df-om 7856
This theorem is referenced by:  isf32lem5  10352
  Copyright terms: Public domain W3C validator