Metamath Proof Explorer


Theorem cdlemg17

Description: Part of Lemma G of Crawley p. 117, lines 7 and 8. We show an argument whose value at G equals itself. TODO: fix comment. (Contributed by NM, 12-May-2013)

Ref Expression
Hypotheses cdlemg12.l โŠข โ‰ค = ( le โ€˜ ๐พ )
cdlemg12.j โŠข โˆจ = ( join โ€˜ ๐พ )
cdlemg12.m โŠข โˆง = ( meet โ€˜ ๐พ )
cdlemg12.a โŠข ๐ด = ( Atoms โ€˜ ๐พ )
cdlemg12.h โŠข ๐ป = ( LHyp โ€˜ ๐พ )
cdlemg12.t โŠข ๐‘‡ = ( ( LTrn โ€˜ ๐พ ) โ€˜ ๐‘Š )
cdlemg12b.r โŠข ๐‘… = ( ( trL โ€˜ ๐พ ) โ€˜ ๐‘Š )
Assertion cdlemg17 ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ( ๐บ โ€˜ ( ( ๐‘ƒ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘ƒ ) ) ) โˆง ( ๐‘„ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘„ ) ) ) ) ) = ( ( ๐‘ƒ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘ƒ ) ) ) โˆง ( ๐‘„ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘„ ) ) ) ) )

Proof

Step Hyp Ref Expression
1 cdlemg12.l โŠข โ‰ค = ( le โ€˜ ๐พ )
2 cdlemg12.j โŠข โˆจ = ( join โ€˜ ๐พ )
3 cdlemg12.m โŠข โˆง = ( meet โ€˜ ๐พ )
4 cdlemg12.a โŠข ๐ด = ( Atoms โ€˜ ๐พ )
5 cdlemg12.h โŠข ๐ป = ( LHyp โ€˜ ๐พ )
6 cdlemg12.t โŠข ๐‘‡ = ( ( LTrn โ€˜ ๐พ ) โ€˜ ๐‘Š )
7 cdlemg12b.r โŠข ๐‘… = ( ( trL โ€˜ ๐พ ) โ€˜ ๐‘Š )
8 simp11 โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) )
9 simp22 โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ๐บ โˆˆ ๐‘‡ )
10 simp12l โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ๐‘ƒ โˆˆ ๐ด )
11 eqid โŠข ( Base โ€˜ ๐พ ) = ( Base โ€˜ ๐พ )
12 11 4 atbase โŠข ( ๐‘ƒ โˆˆ ๐ด โ†’ ๐‘ƒ โˆˆ ( Base โ€˜ ๐พ ) )
13 10 12 syl โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ๐‘ƒ โˆˆ ( Base โ€˜ ๐พ ) )
14 simp21 โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ๐น โˆˆ ๐‘‡ )
15 1 4 5 6 ltrncoat โŠข ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ ) โˆง ๐‘ƒ โˆˆ ๐ด ) โ†’ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘ƒ ) ) โˆˆ ๐ด )
16 8 14 9 10 15 syl121anc โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘ƒ ) ) โˆˆ ๐ด )
17 11 4 atbase โŠข ( ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘ƒ ) ) โˆˆ ๐ด โ†’ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘ƒ ) ) โˆˆ ( Base โ€˜ ๐พ ) )
18 16 17 syl โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘ƒ ) ) โˆˆ ( Base โ€˜ ๐พ ) )
19 11 2 5 6 ltrnj โŠข ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ๐บ โˆˆ ๐‘‡ โˆง ( ๐‘ƒ โˆˆ ( Base โ€˜ ๐พ ) โˆง ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘ƒ ) ) โˆˆ ( Base โ€˜ ๐พ ) ) ) โ†’ ( ๐บ โ€˜ ( ๐‘ƒ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘ƒ ) ) ) ) = ( ( ๐บ โ€˜ ๐‘ƒ ) โˆจ ( ๐บ โ€˜ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘ƒ ) ) ) ) )
20 8 9 13 18 19 syl112anc โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ( ๐บ โ€˜ ( ๐‘ƒ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘ƒ ) ) ) ) = ( ( ๐บ โ€˜ ๐‘ƒ ) โˆจ ( ๐บ โ€˜ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘ƒ ) ) ) ) )
21 simp1 โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) )
22 simp23 โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ๐‘ƒ โ‰  ๐‘„ )
23 simp3 โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) )
24 1 2 3 4 5 6 7 cdlemg17b โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ( ๐บ โ€˜ ๐‘ƒ ) = ๐‘„ )
25 21 9 22 23 24 syl121anc โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ( ๐บ โ€˜ ๐‘ƒ ) = ๐‘„ )
26 25 fveq2d โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘ƒ ) ) = ( ๐น โ€˜ ๐‘„ ) )
27 26 fveq2d โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ( ๐บ โ€˜ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘ƒ ) ) ) = ( ๐บ โ€˜ ( ๐น โ€˜ ๐‘„ ) ) )
28 1 2 3 4 5 6 7 cdlemg17jq โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ( ๐บ โ€˜ ( ๐น โ€˜ ๐‘„ ) ) = ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘„ ) ) )
29 27 28 eqtrd โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ( ๐บ โ€˜ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘ƒ ) ) ) = ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘„ ) ) )
30 25 29 oveq12d โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ( ( ๐บ โ€˜ ๐‘ƒ ) โˆจ ( ๐บ โ€˜ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘ƒ ) ) ) ) = ( ๐‘„ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘„ ) ) ) )
31 20 30 eqtrd โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ( ๐บ โ€˜ ( ๐‘ƒ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘ƒ ) ) ) ) = ( ๐‘„ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘„ ) ) ) )
32 simp13l โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ๐‘„ โˆˆ ๐ด )
33 11 4 atbase โŠข ( ๐‘„ โˆˆ ๐ด โ†’ ๐‘„ โˆˆ ( Base โ€˜ ๐พ ) )
34 32 33 syl โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ๐‘„ โˆˆ ( Base โ€˜ ๐พ ) )
35 1 4 5 6 ltrncoat โŠข ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ ) โˆง ๐‘„ โˆˆ ๐ด ) โ†’ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘„ ) ) โˆˆ ๐ด )
36 8 14 9 32 35 syl121anc โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘„ ) ) โˆˆ ๐ด )
37 11 4 atbase โŠข ( ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘„ ) ) โˆˆ ๐ด โ†’ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘„ ) ) โˆˆ ( Base โ€˜ ๐พ ) )
38 36 37 syl โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘„ ) ) โˆˆ ( Base โ€˜ ๐พ ) )
39 11 2 5 6 ltrnj โŠข ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ๐บ โˆˆ ๐‘‡ โˆง ( ๐‘„ โˆˆ ( Base โ€˜ ๐พ ) โˆง ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘„ ) ) โˆˆ ( Base โ€˜ ๐พ ) ) ) โ†’ ( ๐บ โ€˜ ( ๐‘„ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘„ ) ) ) ) = ( ( ๐บ โ€˜ ๐‘„ ) โˆจ ( ๐บ โ€˜ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘„ ) ) ) ) )
40 8 9 34 38 39 syl112anc โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ( ๐บ โ€˜ ( ๐‘„ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘„ ) ) ) ) = ( ( ๐บ โ€˜ ๐‘„ ) โˆจ ( ๐บ โ€˜ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘„ ) ) ) ) )
41 1 2 3 4 5 6 7 cdlemg17bq โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ( ๐บ โ€˜ ๐‘„ ) = ๐‘ƒ )
42 41 fveq2d โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘„ ) ) = ( ๐น โ€˜ ๐‘ƒ ) )
43 42 fveq2d โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ( ๐บ โ€˜ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘„ ) ) ) = ( ๐บ โ€˜ ( ๐น โ€˜ ๐‘ƒ ) ) )
44 1 2 3 4 5 6 7 cdlemg17j โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ( ๐บ โ€˜ ( ๐น โ€˜ ๐‘ƒ ) ) = ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘ƒ ) ) )
45 43 44 eqtrd โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ( ๐บ โ€˜ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘„ ) ) ) = ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘ƒ ) ) )
46 41 45 oveq12d โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ( ( ๐บ โ€˜ ๐‘„ ) โˆจ ( ๐บ โ€˜ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘„ ) ) ) ) = ( ๐‘ƒ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘ƒ ) ) ) )
47 40 46 eqtrd โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ( ๐บ โ€˜ ( ๐‘„ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘„ ) ) ) ) = ( ๐‘ƒ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘ƒ ) ) ) )
48 31 47 oveq12d โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ( ( ๐บ โ€˜ ( ๐‘ƒ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘ƒ ) ) ) ) โˆง ( ๐บ โ€˜ ( ๐‘„ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘„ ) ) ) ) ) = ( ( ๐‘„ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘„ ) ) ) โˆง ( ๐‘ƒ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘ƒ ) ) ) ) )
49 simp11l โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ๐พ โˆˆ HL )
50 11 2 4 hlatjcl โŠข ( ( ๐พ โˆˆ HL โˆง ๐‘ƒ โˆˆ ๐ด โˆง ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘ƒ ) ) โˆˆ ๐ด ) โ†’ ( ๐‘ƒ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘ƒ ) ) ) โˆˆ ( Base โ€˜ ๐พ ) )
51 49 10 16 50 syl3anc โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ( ๐‘ƒ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘ƒ ) ) ) โˆˆ ( Base โ€˜ ๐พ ) )
52 11 2 4 hlatjcl โŠข ( ( ๐พ โˆˆ HL โˆง ๐‘„ โˆˆ ๐ด โˆง ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘„ ) ) โˆˆ ๐ด ) โ†’ ( ๐‘„ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘„ ) ) ) โˆˆ ( Base โ€˜ ๐พ ) )
53 49 32 36 52 syl3anc โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ( ๐‘„ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘„ ) ) ) โˆˆ ( Base โ€˜ ๐พ ) )
54 11 3 5 6 ltrnm โŠข ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ๐บ โˆˆ ๐‘‡ โˆง ( ( ๐‘ƒ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘ƒ ) ) ) โˆˆ ( Base โ€˜ ๐พ ) โˆง ( ๐‘„ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘„ ) ) ) โˆˆ ( Base โ€˜ ๐พ ) ) ) โ†’ ( ๐บ โ€˜ ( ( ๐‘ƒ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘ƒ ) ) ) โˆง ( ๐‘„ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘„ ) ) ) ) ) = ( ( ๐บ โ€˜ ( ๐‘ƒ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘ƒ ) ) ) ) โˆง ( ๐บ โ€˜ ( ๐‘„ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘„ ) ) ) ) ) )
55 8 9 51 53 54 syl112anc โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ( ๐บ โ€˜ ( ( ๐‘ƒ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘ƒ ) ) ) โˆง ( ๐‘„ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘„ ) ) ) ) ) = ( ( ๐บ โ€˜ ( ๐‘ƒ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘ƒ ) ) ) ) โˆง ( ๐บ โ€˜ ( ๐‘„ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘„ ) ) ) ) ) )
56 49 hllatd โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ๐พ โˆˆ Lat )
57 11 3 latmcom โŠข ( ( ๐พ โˆˆ Lat โˆง ( ๐‘ƒ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘ƒ ) ) ) โˆˆ ( Base โ€˜ ๐พ ) โˆง ( ๐‘„ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘„ ) ) ) โˆˆ ( Base โ€˜ ๐พ ) ) โ†’ ( ( ๐‘ƒ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘ƒ ) ) ) โˆง ( ๐‘„ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘„ ) ) ) ) = ( ( ๐‘„ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘„ ) ) ) โˆง ( ๐‘ƒ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘ƒ ) ) ) ) )
58 56 51 53 57 syl3anc โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ( ( ๐‘ƒ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘ƒ ) ) ) โˆง ( ๐‘„ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘„ ) ) ) ) = ( ( ๐‘„ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘„ ) ) ) โˆง ( ๐‘ƒ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘ƒ ) ) ) ) )
59 48 55 58 3eqtr4d โŠข ( ( ( ( ๐พ โˆˆ HL โˆง ๐‘Š โˆˆ ๐ป ) โˆง ( ๐‘ƒ โˆˆ ๐ด โˆง ยฌ ๐‘ƒ โ‰ค ๐‘Š ) โˆง ( ๐‘„ โˆˆ ๐ด โˆง ยฌ ๐‘„ โ‰ค ๐‘Š ) ) โˆง ( ๐น โˆˆ ๐‘‡ โˆง ๐บ โˆˆ ๐‘‡ โˆง ๐‘ƒ โ‰  ๐‘„ ) โˆง ( ( ๐บ โ€˜ ๐‘ƒ ) โ‰  ๐‘ƒ โˆง ( ๐‘… โ€˜ ๐บ ) โ‰ค ( ๐‘ƒ โˆจ ๐‘„ ) โˆง ยฌ โˆƒ ๐‘Ÿ โˆˆ ๐ด ( ยฌ ๐‘Ÿ โ‰ค ๐‘Š โˆง ( ๐‘ƒ โˆจ ๐‘Ÿ ) = ( ๐‘„ โˆจ ๐‘Ÿ ) ) ) ) โ†’ ( ๐บ โ€˜ ( ( ๐‘ƒ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘ƒ ) ) ) โˆง ( ๐‘„ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘„ ) ) ) ) ) = ( ( ๐‘ƒ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘ƒ ) ) ) โˆง ( ๐‘„ โˆจ ( ๐น โ€˜ ( ๐บ โ€˜ ๐‘„ ) ) ) ) )