Theorem recexprlem1ssl 6823

Description: The lower cut of one is a subset of the lower cut of A .P. B. Lemma for recexpr 6828. (Contributed by Jim Kingdon, 27-Dec-2019.)

Hypothesis

Ref	Expression
recexpr.1	|- B = <. { x | E. y ( x <Q y /\ ( *Q ` y ) e. ( 2nd ` A ) ) } , { x | E. y ( y <Q x /\ ( *Q ` y ) e. ( 1st ` A ) ) } >.

Assertion

Ref	Expression
recexprlem1ssl	|- ( A e. P. -> ( 1st ` 1P ) C_ ( 1st ` ( A .P. B ) ) )

Distinct variable groups:   x, y, A   x, B, y

Proof of Theorem recexprlem1ssl

Dummy variables z w v u f g h are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		1prl 6745	. . . 4 |- ( 1st ` 1P ) = { w | w <Q 1Q }
2	1	abeq2i 2189	. . 3 |- ( w e. ( 1st ` 1P ) <-> w <Q 1Q )
3		rec1nq 6585	. . . . . . 7 |- ( *Q ` 1Q ) = 1Q
4		ltrnqi 6611	. . . . . . 7 |- ( w <Q 1Q -> ( *Q ` 1Q ) <Q ( *Q ` w ) )
5	3, 4	syl5eqbrr 3819	. . . . . 6 |- ( w <Q 1Q -> 1Q <Q ( *Q ` w ) )
6		prop 6665	. . . . . . 7 |- ( A e. P. -> <. ( 1st ` A ) , ( 2nd ` A ) >. e. P. )
7		prmuloc2 6757	. . . . . . 7 |- ( ( <. ( 1st ` A ) , ( 2nd ` A ) >. e. P. /\ 1Q <Q ( *Q ` w ) ) -> E. v e. ( 1st ` A ) ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) )
8	6, 7	sylan 277	. . . . . 6 |- ( ( A e. P. /\ 1Q <Q ( *Q ` w ) ) -> E. v e. ( 1st ` A ) ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) )
9	5, 8	sylan2 280	. . . . 5 |- ( ( A e. P. /\ w <Q 1Q ) -> E. v e. ( 1st ` A ) ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) )
10		prnmaxl 6678	. . . . . . . 8 |- ( ( <. ( 1st ` A ) , ( 2nd ` A ) >. e. P. /\ v e. ( 1st ` A ) ) -> E. z e. ( 1st ` A ) v <Q z )
11	6, 10	sylan 277	. . . . . . 7 |- ( ( A e. P. /\ v e. ( 1st ` A ) ) -> E. z e. ( 1st ` A ) v <Q z )
12	11	ad2ant2r 492	. . . . . 6 |- ( ( ( A e. P. /\ w <Q 1Q ) /\ ( v e. ( 1st ` A ) /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) ) -> E. z e. ( 1st ` A ) v <Q z )
13		elprnql 6671	. . . . . . . . . . . . . 14 |- ( ( <. ( 1st ` A ) , ( 2nd ` A ) >. e. P. /\ v e. ( 1st ` A ) ) -> v e. Q. )
14	6, 13	sylan 277	. . . . . . . . . . . . 13 |- ( ( A e. P. /\ v e. ( 1st ` A ) ) -> v e. Q. )
15	14	ad2ant2r 492	. . . . . . . . . . . 12 |- ( ( ( A e. P. /\ w <Q 1Q ) /\ ( v e. ( 1st ` A ) /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) ) -> v e. Q. )
16	15	3adant3 958	. . . . . . . . . . 11 |- ( ( ( A e. P. /\ w <Q 1Q ) /\ ( v e. ( 1st ` A ) /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) /\ v <Q z ) -> v e. Q. )
17		simp1r 963	. . . . . . . . . . . 12 |- ( ( ( A e. P. /\ w <Q 1Q ) /\ ( v e. ( 1st ` A ) /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) /\ v <Q z ) -> w <Q 1Q )
18		ltrelnq 6555	. . . . . . . . . . . . . 14 |- <Q C_ ( Q. X. Q. )
19	18	brel 4410	. . . . . . . . . . . . 13 |- ( w <Q 1Q -> ( w e. Q. /\ 1Q e. Q. ) )
20	19	simpld 110	. . . . . . . . . . . 12 |- ( w <Q 1Q -> w e. Q. )
21	17, 20	syl 14	. . . . . . . . . . 11 |- ( ( ( A e. P. /\ w <Q 1Q ) /\ ( v e. ( 1st ` A ) /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) /\ v <Q z ) -> w e. Q. )
22		simp3 940	. . . . . . . . . . 11 |- ( ( ( A e. P. /\ w <Q 1Q ) /\ ( v e. ( 1st ` A ) /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) /\ v <Q z ) -> v <Q z )
23		simp2r 965	. . . . . . . . . . 11 |- ( ( ( A e. P. /\ w <Q 1Q ) /\ ( v e. ( 1st ` A ) /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) /\ v <Q z ) -> ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) )
24		simpr 108	. . . . . . . . . . . 12 |- ( ( ( v e. Q. /\ w e. Q. ) /\ ( v <Q z /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) ) -> ( v <Q z /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) )
25		ltrnqi 6611	. . . . . . . . . . . . . 14 |- ( v <Q z -> ( *Q ` z ) <Q ( *Q ` v ) )
26		ltmnqg 6591	. . . . . . . . . . . . . . . 16 |- ( ( f e. Q. /\ g e. Q. /\ h e. Q. ) -> ( f <Q g <-> ( h .Q f ) <Q ( h .Q g ) ) )
27	26	adantl 271	. . . . . . . . . . . . . . 15 |- ( ( ( ( v e. Q. /\ w e. Q. ) /\ ( v <Q z /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) ) /\ ( f e. Q. /\ g e. Q. /\ h e. Q. ) ) -> ( f <Q g <-> ( h .Q f ) <Q ( h .Q g ) ) )
28		simprl 497	. . . . . . . . . . . . . . . 16 |- ( ( ( v e. Q. /\ w e. Q. ) /\ ( v <Q z /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) ) -> v <Q z )
29	18	brel 4410	. . . . . . . . . . . . . . . . 17 |- ( v <Q z -> ( v e. Q. /\ z e. Q. ) )
30	29	simprd 112	. . . . . . . . . . . . . . . 16 |- ( v <Q z -> z e. Q. )
31		recclnq 6582	. . . . . . . . . . . . . . . 16 |- ( z e. Q. -> ( *Q ` z ) e. Q. )
32	28, 30, 31	3syl 17	. . . . . . . . . . . . . . 15 |- ( ( ( v e. Q. /\ w e. Q. ) /\ ( v <Q z /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) ) -> ( *Q ` z ) e. Q. )
33		recclnq 6582	. . . . . . . . . . . . . . . 16 |- ( v e. Q. -> ( *Q ` v ) e. Q. )
34	33	ad2antrr 471	. . . . . . . . . . . . . . 15 |- ( ( ( v e. Q. /\ w e. Q. ) /\ ( v <Q z /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) ) -> ( *Q ` v ) e. Q. )
35		simplr 496	. . . . . . . . . . . . . . 15 |- ( ( ( v e. Q. /\ w e. Q. ) /\ ( v <Q z /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) ) -> w e. Q. )
36		mulcomnqg 6573	. . . . . . . . . . . . . . . 16 |- ( ( f e. Q. /\ g e. Q. ) -> ( f .Q g ) = ( g .Q f ) )
37	36	adantl 271	. . . . . . . . . . . . . . 15 |- ( ( ( ( v e. Q. /\ w e. Q. ) /\ ( v <Q z /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) ) /\ ( f e. Q. /\ g e. Q. ) ) -> ( f .Q g ) = ( g .Q f ) )
38	27, 32, 34, 35, 37	caovord2d 5690	. . . . . . . . . . . . . 14 |- ( ( ( v e. Q. /\ w e. Q. ) /\ ( v <Q z /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) ) -> ( ( *Q ` z ) <Q ( *Q ` v ) <-> ( ( *Q ` z ) .Q w ) <Q ( ( *Q ` v ) .Q w ) ) )
39	25, 38	syl5ib 152	. . . . . . . . . . . . 13 |- ( ( ( v e. Q. /\ w e. Q. ) /\ ( v <Q z /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) ) -> ( v <Q z -> ( ( *Q ` z ) .Q w ) <Q ( ( *Q ` v ) .Q w ) ) )
40		1nq 6556	. . . . . . . . . . . . . . . . . 18 |- 1Q e. Q.
41		mulidnq 6579	. . . . . . . . . . . . . . . . . 18 |- ( 1Q e. Q. -> ( 1Q .Q 1Q ) = 1Q )
42	40, 41	ax-mp 7	. . . . . . . . . . . . . . . . 17 |- ( 1Q .Q 1Q ) = 1Q
43		mulcomnqg 6573	. . . . . . . . . . . . . . . . . . . . . 22 |- ( ( v e. Q. /\ ( *Q ` v ) e. Q. ) -> ( v .Q ( *Q ` v ) ) = ( ( *Q ` v ) .Q v ) )
44	33, 43	mpdan 412	. . . . . . . . . . . . . . . . . . . . 21 |- ( v e. Q. -> ( v .Q ( *Q ` v ) ) = ( ( *Q ` v ) .Q v ) )
45		recidnq 6583	. . . . . . . . . . . . . . . . . . . . 21 |- ( v e. Q. -> ( v .Q ( *Q ` v ) ) = 1Q )
46	44, 45	eqtr3d 2115	. . . . . . . . . . . . . . . . . . . 20 |- ( v e. Q. -> ( ( *Q ` v ) .Q v ) = 1Q )
47		recidnq 6583	. . . . . . . . . . . . . . . . . . . 20 |- ( w e. Q. -> ( w .Q ( *Q ` w ) ) = 1Q )
48	46, 47	oveqan12d 5551	. . . . . . . . . . . . . . . . . . 19 |- ( ( v e. Q. /\ w e. Q. ) -> ( ( ( *Q ` v ) .Q v ) .Q ( w .Q ( *Q ` w ) ) ) = ( 1Q .Q 1Q ) )
49	48	adantr 270	. . . . . . . . . . . . . . . . . 18 |- ( ( ( v e. Q. /\ w e. Q. ) /\ ( v <Q z /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) ) -> ( ( ( *Q ` v ) .Q v ) .Q ( w .Q ( *Q ` w ) ) ) = ( 1Q .Q 1Q ) )
50		simpll 495	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( v e. Q. /\ w e. Q. ) /\ ( v <Q z /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) ) -> v e. Q. )
51		mulassnqg 6574	. . . . . . . . . . . . . . . . . . . 20 |- ( ( f e. Q. /\ g e. Q. /\ h e. Q. ) -> ( ( f .Q g ) .Q h ) = ( f .Q ( g .Q h ) ) )
52	51	adantl 271	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( ( v e. Q. /\ w e. Q. ) /\ ( v <Q z /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) ) /\ ( f e. Q. /\ g e. Q. /\ h e. Q. ) ) -> ( ( f .Q g ) .Q h ) = ( f .Q ( g .Q h ) ) )
53		recclnq 6582	. . . . . . . . . . . . . . . . . . . 20 |- ( w e. Q. -> ( *Q ` w ) e. Q. )
54	35, 53	syl 14	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( v e. Q. /\ w e. Q. ) /\ ( v <Q z /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) ) -> ( *Q ` w ) e. Q. )
55		mulclnq 6566	. . . . . . . . . . . . . . . . . . . 20 |- ( ( f e. Q. /\ g e. Q. ) -> ( f .Q g ) e. Q. )
56	55	adantl 271	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( ( v e. Q. /\ w e. Q. ) /\ ( v <Q z /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) ) /\ ( f e. Q. /\ g e. Q. ) ) -> ( f .Q g ) e. Q. )
57	34, 50, 35, 37, 52, 54, 56	caov4d 5705	. . . . . . . . . . . . . . . . . 18 |- ( ( ( v e. Q. /\ w e. Q. ) /\ ( v <Q z /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) ) -> ( ( ( *Q ` v ) .Q v ) .Q ( w .Q ( *Q ` w ) ) ) = ( ( ( *Q ` v ) .Q w ) .Q ( v .Q ( *Q ` w ) ) ) )
58	49, 57	eqtr3d 2115	. . . . . . . . . . . . . . . . 17 |- ( ( ( v e. Q. /\ w e. Q. ) /\ ( v <Q z /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) ) -> ( 1Q .Q 1Q ) = ( ( ( *Q ` v ) .Q w ) .Q ( v .Q ( *Q ` w ) ) ) )
59	42, 58	syl5reqr 2128	. . . . . . . . . . . . . . . 16 |- ( ( ( v e. Q. /\ w e. Q. ) /\ ( v <Q z /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) ) -> ( ( ( *Q ` v ) .Q w ) .Q ( v .Q ( *Q ` w ) ) ) = 1Q )
60		mulclnq 6566	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( *Q ` v ) e. Q. /\ w e. Q. ) -> ( ( *Q ` v ) .Q w ) e. Q. )
61	33, 60	sylan 277	. . . . . . . . . . . . . . . . . 18 |- ( ( v e. Q. /\ w e. Q. ) -> ( ( *Q ` v ) .Q w ) e. Q. )
62		mulclnq 6566	. . . . . . . . . . . . . . . . . . 19 |- ( ( v e. Q. /\ ( *Q ` w ) e. Q. ) -> ( v .Q ( *Q ` w ) ) e. Q. )
63	53, 62	sylan2 280	. . . . . . . . . . . . . . . . . 18 |- ( ( v e. Q. /\ w e. Q. ) -> ( v .Q ( *Q ` w ) ) e. Q. )
64		recmulnqg 6581	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ( *Q ` v ) .Q w ) e. Q. /\ ( v .Q ( *Q ` w ) ) e. Q. ) -> ( ( *Q ` ( ( *Q ` v ) .Q w ) ) = ( v .Q ( *Q ` w ) ) <-> ( ( ( *Q ` v ) .Q w ) .Q ( v .Q ( *Q ` w ) ) ) = 1Q ) )
65	61, 63, 64	syl2anc 403	. . . . . . . . . . . . . . . . 17 |- ( ( v e. Q. /\ w e. Q. ) -> ( ( *Q ` ( ( *Q ` v ) .Q w ) ) = ( v .Q ( *Q ` w ) ) <-> ( ( ( *Q ` v ) .Q w ) .Q ( v .Q ( *Q ` w ) ) ) = 1Q ) )
66	65	adantr 270	. . . . . . . . . . . . . . . 16 |- ( ( ( v e. Q. /\ w e. Q. ) /\ ( v <Q z /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) ) -> ( ( *Q ` ( ( *Q ` v ) .Q w ) ) = ( v .Q ( *Q ` w ) ) <-> ( ( ( *Q ` v ) .Q w ) .Q ( v .Q ( *Q ` w ) ) ) = 1Q ) )
67	59, 66	mpbird 165	. . . . . . . . . . . . . . 15 |- ( ( ( v e. Q. /\ w e. Q. ) /\ ( v <Q z /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) ) -> ( *Q ` ( ( *Q ` v ) .Q w ) ) = ( v .Q ( *Q ` w ) ) )
68	67	eleq1d 2147	. . . . . . . . . . . . . 14 |- ( ( ( v e. Q. /\ w e. Q. ) /\ ( v <Q z /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) ) -> ( ( *Q ` ( ( *Q ` v ) .Q w ) ) e. ( 2nd ` A ) <-> ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) )
69	68	biimprd 156	. . . . . . . . . . . . 13 |- ( ( ( v e. Q. /\ w e. Q. ) /\ ( v <Q z /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) ) -> ( ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) -> ( *Q ` ( ( *Q ` v ) .Q w ) ) e. ( 2nd ` A ) ) )
70		breq2 3789	. . . . . . . . . . . . . . . . . 18 |- ( y = ( ( *Q ` v ) .Q w ) -> ( ( ( *Q ` z ) .Q w ) <Q y <-> ( ( *Q ` z ) .Q w ) <Q ( ( *Q ` v ) .Q w ) ) )
71		fveq2 5198	. . . . . . . . . . . . . . . . . . 19 |- ( y = ( ( *Q ` v ) .Q w ) -> ( *Q ` y ) = ( *Q ` ( ( *Q ` v ) .Q w ) ) )
72	71	eleq1d 2147	. . . . . . . . . . . . . . . . . 18 |- ( y = ( ( *Q ` v ) .Q w ) -> ( ( *Q ` y ) e. ( 2nd ` A ) <-> ( *Q ` ( ( *Q ` v ) .Q w ) ) e. ( 2nd ` A ) ) )
73	70, 72	anbi12d 456	. . . . . . . . . . . . . . . . 17 |- ( y = ( ( *Q ` v ) .Q w ) -> ( ( ( ( *Q ` z ) .Q w ) <Q y /\ ( *Q ` y ) e. ( 2nd ` A ) ) <-> ( ( ( *Q ` z ) .Q w ) <Q ( ( *Q ` v ) .Q w ) /\ ( *Q ` ( ( *Q ` v ) .Q w ) ) e. ( 2nd ` A ) ) ) )
74	73	spcegv 2686	. . . . . . . . . . . . . . . 16 |- ( ( ( *Q ` v ) .Q w ) e. Q. -> ( ( ( ( *Q ` z ) .Q w ) <Q ( ( *Q ` v ) .Q w ) /\ ( *Q ` ( ( *Q ` v ) .Q w ) ) e. ( 2nd ` A ) ) -> E. y ( ( ( *Q ` z ) .Q w ) <Q y /\ ( *Q ` y ) e. ( 2nd ` A ) ) ) )
75	61, 74	syl 14	. . . . . . . . . . . . . . 15 |- ( ( v e. Q. /\ w e. Q. ) -> ( ( ( ( *Q ` z ) .Q w ) <Q ( ( *Q ` v ) .Q w ) /\ ( *Q ` ( ( *Q ` v ) .Q w ) ) e. ( 2nd ` A ) ) -> E. y ( ( ( *Q ` z ) .Q w ) <Q y /\ ( *Q ` y ) e. ( 2nd ` A ) ) ) )
76		recexpr.1	. . . . . . . . . . . . . . . 16 |- B = <. { x | E. y ( x <Q y /\ ( *Q ` y ) e. ( 2nd ` A ) ) } , { x | E. y ( y <Q x /\ ( *Q ` y ) e. ( 1st ` A ) ) } >.
77	76	recexprlemell 6812	. . . . . . . . . . . . . . 15 |- ( ( ( *Q ` z ) .Q w ) e. ( 1st ` B ) <-> E. y ( ( ( *Q ` z ) .Q w ) <Q y /\ ( *Q ` y ) e. ( 2nd ` A ) ) )
78	75, 77	syl6ibr 160	. . . . . . . . . . . . . 14 |- ( ( v e. Q. /\ w e. Q. ) -> ( ( ( ( *Q ` z ) .Q w ) <Q ( ( *Q ` v ) .Q w ) /\ ( *Q ` ( ( *Q ` v ) .Q w ) ) e. ( 2nd ` A ) ) -> ( ( *Q ` z ) .Q w ) e. ( 1st ` B ) ) )
79	78	adantr 270	. . . . . . . . . . . . 13 |- ( ( ( v e. Q. /\ w e. Q. ) /\ ( v <Q z /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) ) -> ( ( ( ( *Q ` z ) .Q w ) <Q ( ( *Q ` v ) .Q w ) /\ ( *Q ` ( ( *Q ` v ) .Q w ) ) e. ( 2nd ` A ) ) -> ( ( *Q ` z ) .Q w ) e. ( 1st ` B ) ) )
80	39, 69, 79	syl2and 289	. . . . . . . . . . . 12 |- ( ( ( v e. Q. /\ w e. Q. ) /\ ( v <Q z /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) ) -> ( ( v <Q z /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) -> ( ( *Q ` z ) .Q w ) e. ( 1st ` B ) ) )
81	24, 80	mpd 13	. . . . . . . . . . 11 |- ( ( ( v e. Q. /\ w e. Q. ) /\ ( v <Q z /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) ) -> ( ( *Q ` z ) .Q w ) e. ( 1st ` B ) )
82	16, 21, 22, 23, 81	syl22anc 1170	. . . . . . . . . 10 |- ( ( ( A e. P. /\ w <Q 1Q ) /\ ( v e. ( 1st ` A ) /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) /\ v <Q z ) -> ( ( *Q ` z ) .Q w ) e. ( 1st ` B ) )
83	30	3ad2ant3 961	. . . . . . . . . . 11 |- ( ( ( A e. P. /\ w <Q 1Q ) /\ ( v e. ( 1st ` A ) /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) /\ v <Q z ) -> z e. Q. )
84		mulidnq 6579	. . . . . . . . . . . . . 14 |- ( w e. Q. -> ( w .Q 1Q ) = w )
85		mulcomnqg 6573	. . . . . . . . . . . . . . 15 |- ( ( w e. Q. /\ 1Q e. Q. ) -> ( w .Q 1Q ) = ( 1Q .Q w ) )
86	40, 85	mpan2 415	. . . . . . . . . . . . . 14 |- ( w e. Q. -> ( w .Q 1Q ) = ( 1Q .Q w ) )
87	84, 86	eqtr3d 2115	. . . . . . . . . . . . 13 |- ( w e. Q. -> w = ( 1Q .Q w ) )
88	87	adantl 271	. . . . . . . . . . . 12 |- ( ( z e. Q. /\ w e. Q. ) -> w = ( 1Q .Q w ) )
89		recidnq 6583	. . . . . . . . . . . . . 14 |- ( z e. Q. -> ( z .Q ( *Q ` z ) ) = 1Q )
90	89	oveq1d 5547	. . . . . . . . . . . . 13 |- ( z e. Q. -> ( ( z .Q ( *Q ` z ) ) .Q w ) = ( 1Q .Q w ) )
91	90	adantr 270	. . . . . . . . . . . 12 |- ( ( z e. Q. /\ w e. Q. ) -> ( ( z .Q ( *Q ` z ) ) .Q w ) = ( 1Q .Q w ) )
92		mulassnqg 6574	. . . . . . . . . . . . . 14 |- ( ( z e. Q. /\ ( *Q ` z ) e. Q. /\ w e. Q. ) -> ( ( z .Q ( *Q ` z ) ) .Q w ) = ( z .Q ( ( *Q ` z ) .Q w ) ) )
93	31, 92	syl3an2 1203	. . . . . . . . . . . . 13 |- ( ( z e. Q. /\ z e. Q. /\ w e. Q. ) -> ( ( z .Q ( *Q ` z ) ) .Q w ) = ( z .Q ( ( *Q ` z ) .Q w ) ) )
94	93	3anidm12 1226	. . . . . . . . . . . 12 |- ( ( z e. Q. /\ w e. Q. ) -> ( ( z .Q ( *Q ` z ) ) .Q w ) = ( z .Q ( ( *Q ` z ) .Q w ) ) )
95	88, 91, 94	3eqtr2d 2119	. . . . . . . . . . 11 |- ( ( z e. Q. /\ w e. Q. ) -> w = ( z .Q ( ( *Q ` z ) .Q w ) ) )
96	83, 21, 95	syl2anc 403	. . . . . . . . . 10 |- ( ( ( A e. P. /\ w <Q 1Q ) /\ ( v e. ( 1st ` A ) /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) /\ v <Q z ) -> w = ( z .Q ( ( *Q ` z ) .Q w ) ) )
97		oveq2 5540	. . . . . . . . . . . 12 |- ( x = ( ( *Q ` z ) .Q w ) -> ( z .Q x ) = ( z .Q ( ( *Q ` z ) .Q w ) ) )
98	97	eqeq2d 2092	. . . . . . . . . . 11 |- ( x = ( ( *Q ` z ) .Q w ) -> ( w = ( z .Q x ) <-> w = ( z .Q ( ( *Q ` z ) .Q w ) ) ) )
99	98	rspcev 2701	. . . . . . . . . 10 |- ( ( ( ( *Q ` z ) .Q w ) e. ( 1st ` B ) /\ w = ( z .Q ( ( *Q ` z ) .Q w ) ) ) -> E. x e. ( 1st ` B ) w = ( z .Q x ) )
100	82, 96, 99	syl2anc 403	. . . . . . . . 9 |- ( ( ( A e. P. /\ w <Q 1Q ) /\ ( v e. ( 1st ` A ) /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) /\ v <Q z ) -> E. x e. ( 1st ` B ) w = ( z .Q x ) )
101	100	3expia 1140	. . . . . . . 8 |- ( ( ( A e. P. /\ w <Q 1Q ) /\ ( v e. ( 1st ` A ) /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) ) -> ( v <Q z -> E. x e. ( 1st ` B ) w = ( z .Q x ) ) )
102	101	reximdv 2462	. . . . . . 7 |- ( ( ( A e. P. /\ w <Q 1Q ) /\ ( v e. ( 1st ` A ) /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) ) -> ( E. z e. ( 1st ` A ) v <Q z -> E. z e. ( 1st ` A ) E. x e. ( 1st ` B ) w = ( z .Q x ) ) )
103	76	recexprlempr 6822	. . . . . . . . 9 |- ( A e. P. -> B e. P. )
104		df-imp 6659	. . . . . . . . . 10 |- .P. = ( y e. P. , w e. P. |-> <. { u e. Q. | E. f e. Q. E. g e. Q. ( f e. ( 1st ` y ) /\ g e. ( 1st ` w ) /\ u = ( f .Q g ) ) } , { u e. Q. | E. f e. Q. E. g e. Q. ( f e. ( 2nd ` y ) /\ g e. ( 2nd ` w ) /\ u = ( f .Q g ) ) } >. )
105	104, 55	genpelvl 6702	. . . . . . . . 9 |- ( ( A e. P. /\ B e. P. ) -> ( w e. ( 1st ` ( A .P. B ) ) <-> E. z e. ( 1st ` A ) E. x e. ( 1st ` B ) w = ( z .Q x ) ) )
106	103, 105	mpdan 412	. . . . . . . 8 |- ( A e. P. -> ( w e. ( 1st ` ( A .P. B ) ) <-> E. z e. ( 1st ` A ) E. x e. ( 1st ` B ) w = ( z .Q x ) ) )
107	106	ad2antrr 471	. . . . . . 7 |- ( ( ( A e. P. /\ w <Q 1Q ) /\ ( v e. ( 1st ` A ) /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) ) -> ( w e. ( 1st ` ( A .P. B ) ) <-> E. z e. ( 1st ` A ) E. x e. ( 1st ` B ) w = ( z .Q x ) ) )
108	102, 107	sylibrd 167	. . . . . 6 |- ( ( ( A e. P. /\ w <Q 1Q ) /\ ( v e. ( 1st ` A ) /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) ) -> ( E. z e. ( 1st ` A ) v <Q z -> w e. ( 1st ` ( A .P. B ) ) ) )
109	12, 108	mpd 13	. . . . 5 |- ( ( ( A e. P. /\ w <Q 1Q ) /\ ( v e. ( 1st ` A ) /\ ( v .Q ( *Q ` w ) ) e. ( 2nd ` A ) ) ) -> w e. ( 1st ` ( A .P. B ) ) )
110	9, 109	rexlimddv 2481	. . . 4 |- ( ( A e. P. /\ w <Q 1Q ) -> w e. ( 1st ` ( A .P. B ) ) )
111	110	ex 113	. . 3 |- ( A e. P. -> ( w <Q 1Q -> w e. ( 1st ` ( A .P. B ) ) ) )
112	2, 111	syl5bi 150	. 2 |- ( A e. P. -> ( w e. ( 1st ` 1P ) -> w e. ( 1st ` ( A .P. B ) ) ) )
113	112	ssrdv 3005	1 |- ( A e. P. -> ( 1st ` 1P ) C_ ( 1st ` ( A .P. B ) ) )

Syntax hints:   -> wi 4   /\ wa 102   <-> wb 103   /\ w3a 919   = wceq 1284   E.wex 1421   e. wcel 1433   {cab 2067   E.wrex 2349   C_ wss 2973   <.cop 3401   class class class wbr 3785   ` cfv 4922  (class class class)co 5532   1stc1st 5785   2ndc2nd 5786   Q.cnq 6470   1Qc1q 6471   .Q cmq 6473   *Qcrq 6474   <Q cltq 6475   P.cnp 6481   1Pc1p 6482   .P. cmp 6484

This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 104  ax-ia2 105  ax-ia3 106  ax-in1 576  ax-in2 577  ax-io 662  ax-5 1376  ax-7 1377  ax-gen 1378  ax-ie1 1422  ax-ie2 1423  ax-8 1435  ax-10 1436  ax-11 1437  ax-i12 1438  ax-bndl 1439  ax-4 1440  ax-13 1444  ax-14 1445  ax-17 1459  ax-i9 1463  ax-ial 1467  ax-i5r 1468  ax-ext 2063  ax-coll 3893  ax-sep 3896  ax-nul 3904  ax-pow 3948  ax-pr 3964  ax-un 4188  ax-setind 4280  ax-iinf 4329

This theorem depends on definitions:  df-bi 115  df-dc 776  df-3or 920  df-3an 921  df-tru 1287  df-fal 1290  df-nf 1390  df-sb 1686  df-eu 1944  df-mo 1945  df-clab 2068  df-cleq 2074  df-clel 2077  df-nfc 2208  df-ne 2246  df-ral 2353  df-rex 2354  df-reu 2355  df-rab 2357  df-v 2603  df-sbc 2816  df-csb 2909  df-dif 2975  df-un 2977  df-in 2979  df-ss 2986  df-nul 3252  df-pw 3384  df-sn 3404  df-pr 3405  df-op 3407  df-uni 3602  df-int 3637  df-iun 3680  df-br 3786  df-opab 3840  df-mpt 3841  df-tr 3876  df-eprel 4044  df-id 4048  df-po 4051  df-iso 4052  df-iord 4121  df-on 4123  df-suc 4126  df-iom 4332  df-xp 4369  df-rel 4370  df-cnv 4371  df-co 4372  df-dm 4373  df-rn 4374  df-res 4375  df-ima 4376  df-iota 4887  df-fun 4924  df-fn 4925  df-f 4926  df-f1 4927  df-fo 4928  df-f1o 4929  df-fv 4930  df-ov 5535  df-oprab 5536  df-mpt2 5537  df-1st 5787  df-2nd 5788  df-recs 5943  df-irdg 5980  df-1o 6024  df-2o 6025  df-oadd 6028  df-omul 6029  df-er 6129  df-ec 6131  df-qs 6135  df-ni 6494  df-pli 6495  df-mi 6496  df-lti 6497  df-plpq 6534  df-mpq 6535  df-enq 6537  df-nqqs 6538  df-plqqs 6539  df-mqqs 6540  df-1nqqs 6541  df-rq 6542  df-ltnqqs 6543  df-enq0 6614  df-nq0 6615  df-0nq0 6616  df-plq0 6617  df-mq0 6618  df-inp 6656  df-i1p 6657  df-imp 6659

This theorem is referenced by:  recexprlemex  6827