Theorem tfindsg 2402

Description: Transfinite Induction (inference schema) with implicit substitutions. The first four hypotheses establish the substitutions we need. The last three are the basis, the induction hypothesis for successors, and the induction hypothesis for limit ordinals. The basis of this version is an arbitrary ordinal B instead of zero. Remark of [TakeutiZaring] p. 57.

Hypotheses

Ref	Expression
tfindsg.1	|- (x = B -> (ph <-> ps))
tfindsg.2	|- (x = y -> (ph <-> ch))
tfindsg.3	|- (x = suc y -> (ph <-> th))
tfindsg.4	|- (x = A -> (ph <-> ta ))
tfindsg.5	|- (B e. On -> ps)
tfindsg.6	|- (((y e. On /\ B e. On) /\ B (_ y) -> (ch -> th))
tfindsg.7	|- (((Lim x /\ B e. On) /\ B (_ x) -> (A.y e. x (B (_ y -> ch) -> ph))

Assertion

Ref	Expression
tfindsg	|- (((A e. On /\ B e. On) /\ B (_ A) -> ta )

Distinct variable group(s):   x,A   x,y,B   ps,x   ch,x   th,x   ta ,x   ph,y

Proof of Theorem tfindsg

Step	Hyp	Ref	Expression
1		sseq2 1522	. . . . . . 7 |- (x = (/) -> (B (_ x <-> B (_ (/)))
2	1	adantl 305	. . . . . 6 |- ((B = (/) /\ x = (/)) -> (B (_ x <-> B (_ (/)))
3		cleq2 1110	. . . . . . . 8 |- (B = (/) -> (x = B <-> x = (/)))
4		tfindsg.1	. . . . . . . 8 |- (x = B -> (ph <-> ps))
5	3, 4	syl6bir 188	. . . . . . 7 |- (B = (/) -> (x = (/) -> (ph <-> ps)))
6	5	imp 277	. . . . . 6 |- ((B = (/) /\ x = (/)) -> (ph <-> ps))
7	2, 6	imbi12d 474	. . . . 5 |- ((B = (/) /\ x = (/)) -> ((B (_ x -> ph) <-> (B (_ (/) -> ps)))
8	1	imbi1d 465	. . . . . 6 |- (x = (/) -> ((B (_ x -> ph) <-> (B (_ (/) -> ph)))
9		ss0 1727	. . . . . . . . 9 |- (B (_ (/) -> B = (/))
10	9	con3i 90	. . . . . . . 8 |- (-. B = (/) -> -. B (_ (/))
11	10	pm2.21d 74	. . . . . . 7 |- (-. B = (/) -> (B (_ (/) -> (ph <-> ps)))
12	11	pm5.74d 444	. . . . . 6 |- (-. B = (/) -> ((B (_ (/) -> ph) <-> (B (_ (/) -> ps)))
13	8, 12	sylan9bbr 419	. . . . 5 |- ((-. B = (/) /\ x = (/)) -> ((B (_ x -> ph) <-> (B (_ (/) -> ps)))
14	7, 13	pm2.61an1 364	. . . 4 |- (x = (/) -> ((B (_ x -> ph) <-> (B (_ (/) -> ps)))
15	14	imbi2d 464	. . 3 |- (x = (/) -> ((B e. On -> (B (_ x -> ph)) <-> (B e. On -> (B (_ (/) -> ps))))
16		sseq2 1522	. . . . 5 |- (x = y -> (B (_ x <-> B (_ y))
17		tfindsg.2	. . . . 5 |- (x = y -> (ph <-> ch))
18	16, 17	imbi12d 474	. . . 4 |- (x = y -> ((B (_ x -> ph) <-> (B (_ y -> ch)))
19	18	imbi2d 464	. . 3 |- (x = y -> ((B e. On -> (B (_ x -> ph)) <-> (B e. On -> (B (_ y -> ch))))
20		sseq2 1522	. . . . 5 |- (x = suc y -> (B (_ x <-> B (_ suc y))
21		tfindsg.3	. . . . 5 |- (x = suc y -> (ph <-> th))
22	20, 21	imbi12d 474	. . . 4 |- (x = suc y -> ((B (_ x -> ph) <-> (B (_ suc y -> th)))
23	22	imbi2d 464	. . 3 |- (x = suc y -> ((B e. On -> (B (_ x -> ph)) <-> (B e. On -> (B (_ suc y -> th))))
24		sseq2 1522	. . . . 5 |- (x = A -> (B (_ x <-> B (_ A))
25		tfindsg.4	. . . . 5 |- (x = A -> (ph <-> ta ))
26	24, 25	imbi12d 474	. . . 4 |- (x = A -> ((B (_ x -> ph) <-> (B (_ A -> ta )))
27	26	imbi2d 464	. . 3 |- (x = A -> ((B e. On -> (B (_ x -> ph)) <-> (B e. On -> (B (_ A -> ta ))))
28		tfindsg.5	. . . 4 |- (B e. On -> ps)
29	28	a1d 14	. . 3 |- (B e. On -> (B (_ (/) -> ps))
30		visset 1350	. . . . . . . . . . . . . 14 |- y e. V
31	30	sucex 2303	. . . . . . . . . . . . 13 |- suc y e. V
32	31	eqvinc 1407	. . . . . . . . . . . 12 |- (suc y = B <-> E.x(x = suc y /\ x = B))
33	4, 28	syl5bir 184	. . . . . . . . . . . . . 14 |- (x = B -> (B e. On -> ph))
34	21	biimpd 135	. . . . . . . . . . . . . 14 |- (x = suc y -> (ph -> th))
35	33, 34	sylan9r 360	. . . . . . . . . . . . 13 |- ((x = suc y /\ x = B) -> (B e. On -> th))
36	35	19.23aiv 952	. . . . . . . . . . . 12 |- (E.x(x = suc y /\ x = B) -> (B e. On -> th))
37	32, 36	sylbi 174	. . . . . . . . . . 11 |- (suc y = B -> (B e. On -> th))
38	37	cleqcoms 1104	. . . . . . . . . 10 |- (B = suc y -> (B e. On -> th))
39	38	syl3 18	. . . . . . . . 9 |- ((B (_ suc y -> B = suc y) -> (B (_ suc y -> (B e. On -> th)))
40	39	a1d 14	. . . . . . . 8 |- ((B (_ suc y -> B = suc y) -> ((B (_ y -> ch) -> (B (_ suc y -> (B e. On -> th))))
41	40	com4r 41	. . . . . . 7 |- (B e. On -> ((B (_ suc y -> B = suc y) -> ((B (_ y -> ch) -> (B (_ suc y -> th))))
42	41	adantl 305	. . . . . 6 |- ((y e. On /\ B e. On) -> ((B (_ suc y -> B = suc y) -> ((B (_ y -> ch) -> (B (_ suc y -> th))))
43		onsssuc 2311	. . . . . . . . . 10 |- ((B e. On /\ y e. On) -> (B (_ y <-> B e. suc y))
44		onelpsst 2253	. . . . . . . . . . 11 |- ((B e. On /\ suc y e. On) -> (B e. suc y <-> (B (_ suc y /\ -. B = suc y)))
45		suceloni 2314	. . . . . . . . . . 11 |- (y e. On -> suc y e. On)
46	44, 45	sylan2 346	. . . . . . . . . 10 |- ((B e. On /\ y e. On) -> (B e. suc y <-> (B (_ suc y /\ -. B = suc y)))
47	43, 46	bitrd 406	. . . . . . . . 9 |- ((B e. On /\ y e. On) -> (B (_ y <-> (B (_ suc y /\ -. B = suc y)))
48	47	ancoms 334	. . . . . . . 8 |- ((y e. On /\ B e. On) -> (B (_ y <-> (B (_ suc y /\ -. B = suc y)))
49		tfindsg.6	. . . . . . . . . . . 12 |- (((y e. On /\ B e. On) /\ B (_ y) -> (ch -> th))
50	49	exp 291	. . . . . . . . . . 11 |- ((y e. On /\ B e. On) -> (B (_ y -> (ch -> th)))
51		ax-1 3	. . . . . . . . . . 11 |- (th -> (B (_ suc y -> th))
52	50, 51	syl8 25	. . . . . . . . . 10 |- ((y e. On /\ B e. On) -> (B (_ y -> (ch -> (B (_ suc y -> th))))
53	52	a2d 15	. . . . . . . . 9 |- ((y e. On /\ B e. On) -> ((B (_ y -> ch) -> (B (_ y -> (B (_ suc y -> th))))
54	53	com23 32	. . . . . . . 8 |- ((y e. On /\ B e. On) -> (B (_ y -> ((B (_ y -> ch) -> (B (_ suc y -> th))))
55	48, 54	sylbird 180	. . . . . . 7 |- ((y e. On /\ B e. On) -> ((B (_ suc y /\ -. B = suc y) -> ((B (_ y -> ch) -> (B (_ suc y -> th))))
56		annim 206	. . . . . . 7 |- ((B (_ suc y /\ -. B = suc y) <-> -. (B (_ suc y -> B = suc y))
57	55, 56	syl5ibr 182	. . . . . 6 |- ((y e. On /\ B e. On) -> (-. (B (_ suc y -> B = suc y) -> ((B (_ y -> ch) -> (B (_ suc y -> th))))
58	42, 57	pm2.61d 112	. . . . 5 |- ((y e. On /\ B e. On) -> ((B (_ y -> ch) -> (B (_ suc y -> th)))
59	58	exp 291	. . . 4 |- (y e. On -> (B e. On -> ((B (_ y -> ch) -> (B (_ suc y -> th))))
60	59	a2d 15	. . 3 |- (y e. On -> ((B e. On -> (B (_ y -> ch)) -> (B e. On -> (B (_ suc y -> th))))
61		pm2.27 30	. . . . . . . . 9 |- (B e. On -> ((B e. On -> (B (_ y -> ch)) -> (B (_ y -> ch)))
62	61	r19.20sdv 1257	. . . . . . . 8 |- (B e. On -> (A.y e. x (B e. On -> (B (_ y -> ch)) -> A.y e. x (B (_ y -> ch)))
63	62	ad2antlr 321	. . . . . . 7 |- (((Lim x /\ B e. On) /\ B (_ x) -> (A.y e. x (B e. On -> (B (_ y -> ch)) -> A.y e. x (B (_ y -> ch)))
64		tfindsg.7	. . . . . . 7 |- (((Lim x /\ B e. On) /\ B (_ x) -> (A.y e. x (B (_ y -> ch) -> ph))
65	63, 64	syld 27	. . . . . 6 |- (((Lim x /\ B e. On) /\ B (_ x) -> (A.y e. x (B e. On -> (B (_ y -> ch)) -> ph))
66	65	exp31 293	. . . . 5 |- (Lim x -> (B e. On -> (B (_ x -> (A.y e. x (B e. On -> (B (_ y -> ch)) -> ph))))
67	66	com3l 34	. . . 4 |- (B e. On -> (B (_ x -> (Lim x -> (A.y e. x (B e. On -> (B (_ y -> ch)) -> ph))))
68	67	com4t 40	. . 3 |- (Lim x -> (A.y e. x (B e. On -> (B (_ y -> ch)) -> (B e. On -> (B (_ x -> ph))))
69	15, 19, 23, 27, 29, 60, 68	tfinds 2401	. 2 |- (A e. On -> (B e. On -> (B (_ A -> ta )))
70	69	imp31 280	1 |- (((A e. On /\ B e. On) /\ B (_ A) -> ta )

Syntax hints:  -. wn 1   -> wi 2   <-> wb 127   /\ wa 196  E.wex 678   = weq 797   = wceq 1091   e. wcel 1092  A.wral 1201   (_ wss 1487  (/)c0 1707  Oncon0 2199  Lim wlim 2200  suc csuc 2201

This theorem is referenced by:  tfindsg2 2403  oaordi 3148  infensuc 3484  r1ord 3499

This theorem was proved from axioms:  ax-1 3  ax-2 4  ax-3 5  ax-mp 6  ax-4 673  ax-5 674  ax-6 675  ax-7 676  ax-gen 677  ax-8 798  ax-9 799  ax-10 800  ax-11 801  ax-12 802  ax-13 804  ax-14