Metamath Proof Explorer


Theorem findcard3

Description: Schema for strong induction on the cardinality of a finite set. The inductive hypothesis is that the result is true on any proper subset. The result is then proven to be true for all finite sets. (Contributed by Mario Carneiro, 13-Dec-2013)

Ref Expression
Hypotheses findcard3.1 x = y φ χ
findcard3.2 x = A φ τ
findcard3.3 y Fin x x y φ χ
Assertion findcard3 A Fin τ

Proof

Step Hyp Ref Expression
1 findcard3.1 x = y φ χ
2 findcard3.2 x = A φ τ
3 findcard3.3 y Fin x x y φ χ
4 isfi A Fin w ω A w
5 nnon w ω w On
6 eleq1w w = z w ω z ω
7 breq2 w = z x w x z
8 7 imbi1d w = z x w φ x z φ
9 8 albidv w = z x x w φ x x z φ
10 6 9 imbi12d w = z w ω x x w φ z ω x x z φ
11 rspe w ω y w w ω y w
12 isfi y Fin w ω y w
13 11 12 sylibr w ω y w y Fin
14 19.21v x z ω x z φ z ω x x z φ
15 14 ralbii z w x z ω x z φ z w z ω x x z φ
16 ralcom4 z w x z ω x z φ x z w z ω x z φ
17 15 16 bitr3i z w z ω x x z φ x z w z ω x z φ
18 pssss x y x y
19 ssfi y Fin x y x Fin
20 isfi x Fin z ω x z
21 19 20 sylib y Fin x y z ω x z
22 13 18 21 syl2an w ω y w x y z ω x z
23 ensym x z z x
24 23 ad2antll w ω y w x y z ω x z z x
25 php3 y Fin x y x y
26 13 25 sylan w ω y w x y x y
27 simpllr w ω y w x y z ω x z y w
28 sdomentr x y y w x w
29 26 27 28 syl2an2r w ω y w x y z ω x z x w
30 ensdomtr z x x w z w
31 24 29 30 syl2anc w ω y w x y z ω x z z w
32 nnon z ω z On
33 32 ad2antrl w ω y w x y z ω x z z On
34 5 ad3antrrr w ω y w x y z ω x z w On
35 sdomel z On w On z w z w
36 33 34 35 syl2anc w ω y w x y z ω x z z w z w
37 31 36 mpd w ω y w x y z ω x z z w
38 37 ex w ω y w x y z ω x z z w
39 simpr z ω x z x z
40 38 39 jca2 w ω y w x y z ω x z z w x z
41 40 reximdv2 w ω y w x y z ω x z z w x z
42 22 41 mpd w ω y w x y z w x z
43 r19.29 z w z ω x z φ z w x z z w z ω x z φ x z
44 43 expcom z w x z z w z ω x z φ z w z ω x z φ x z
45 42 44 syl w ω y w x y z w z ω x z φ z w z ω x z φ x z
46 ordom Ord ω
47 ordelss Ord ω w ω w ω
48 46 47 mpan w ω w ω
49 48 ad2antrr w ω y w x y w ω
50 49 sseld w ω y w x y z w z ω
51 pm2.27 z ω z ω x z φ x z φ
52 51 impd z ω z ω x z φ x z φ
53 50 52 syl6 w ω y w x y z w z ω x z φ x z φ
54 53 rexlimdv w ω y w x y z w z ω x z φ x z φ
55 45 54 syld w ω y w x y z w z ω x z φ φ
56 55 ex w ω y w x y z w z ω x z φ φ
57 56 com23 w ω y w z w z ω x z φ x y φ
58 57 alimdv w ω y w x z w z ω x z φ x x y φ
59 17 58 syl5bi w ω y w z w z ω x x z φ x x y φ
60 13 59 3 sylsyld w ω y w z w z ω x x z φ χ
61 60 impancom w ω z w z ω x x z φ y w χ
62 61 alrimiv w ω z w z ω x x z φ y y w χ
63 62 expcom z w z ω x x z φ w ω y y w χ
64 breq1 x = y x w y w
65 64 1 imbi12d x = y x w φ y w χ
66 65 cbvalvw x x w φ y y w χ
67 63 66 syl6ibr z w z ω x x z φ w ω x x w φ
68 67 a1i w On z w z ω x x z φ w ω x x w φ
69 10 68 tfis2 w On w ω x x w φ
70 5 69 mpcom w ω x x w φ
71 70 rgen w ω x x w φ
72 r19.29 w ω x x w φ w ω A w w ω x x w φ A w
73 71 72 mpan w ω A w w ω x x w φ A w
74 4 73 sylbi A Fin w ω x x w φ A w
75 breq1 x = A x w A w
76 75 2 imbi12d x = A x w φ A w τ
77 76 spcgv A Fin x x w φ A w τ
78 77 impd A Fin x x w φ A w τ
79 78 rexlimdvw A Fin w ω x x w φ A w τ
80 74 79 mpd A Fin τ