1: % 810, processed by citealice (2005-10-21) on Thu Oct 27 23:25:16 IST 2005
2:
3: \ifx\shlhetal\undefinedcontrolsequence\let\shlhetal\relax\fi
4: % To: "Saharon Shelah's Office" <shlhetal@math.huji.ac.il>, Saharon Shelah <shelah@math.huji.ac.il>, <shani@math.huji.ac.il>
5: % Subject: sh810
6: % Date: Thu, 27 Oct 2005 10:28:25 -0400 (EDT)
7: % From: Alice Leonhardt <leonhard@math.rutgers.edu>
8: % Mime-Version: 1.0
9: % Content-Description: minor revisions
10: % X-sliced-and-diced-by: 'savemail' 2.0, Oct 2005
11:
12: % % \input amstex
13: % *** start including amstex.tex ***
14: %% @texfile{
15: %% filename = "amstex.tex",
16: %% version = "2.2",
17: %% date = "2001/10/04",
18: %% time = "09:08:48 EDT",
19: %% checksum = "54330 1806 2947 78920",
20: %% filetype = "AMS-TeX: documentstyle",
21: %% author = "American Mathematical Society",
22: %% copyright = "Copyright 1985, 1990, 1991, 2001
23: %% American Mathematical Society,
24: %% all rights reserved. Copying of this file is
25: %% authorized only if either:
26: %% (1) you make absolutely no changes to your copy
27: %% including name; OR
28: %% (2) if you do make changes, you first rename it
29: %% to some other name.",
30: %% address = "American Mathematical Society,
31: %% Technical Support,
32: %% Publications Technical Group,
33: %% P. O. Box 6248,
34: %% Providence, RI 02940,
35: %% USA",
36: %% telephone = "401-455-4080 or (in the USA and Canada)
37: %% 800-321-4AMS (321-4267)",
38: %% FAX = "401-331-3842",
39: %% email = "tech-support@ams.org (Internet)",
40: %% codetable = "ISO/ASCII",
41: %% keywords = "amstex, ams-tex, tex",
42: %% abstract = "This file contains the AMS-TeX Version 2.2
43: %% macro package. It is intended to be used in
44: %% conjunction with plain TeX. The macros defined
45: %% herein are chiefly oriented to the construction
46: %% of mathematical formulas, both display and
47: %% nondisplay, using AMS conventions for fonts,
48: %% spacing, and other details."
49: %% docstring = "The checksum field above contains a CRC-16
50: %% checksum as the first value, followed by the
51: %% equivalent of the standard UNIX wc (word
52: %% count) utility output of lines, words, and
53: %% characters. This is produced by Robert
54: %% Solovay's checksum utility.",
55: %% }
56: %% ====================================================================
57: \def\fmtname{AmS-TeX}
58: \let\plainfmtversion\fmtversion
59: \def\fmtversion{2.2}
60: \catcode`\@=11
61: \ifx\amstexloaded@\relax\catcode`\@=\active
62: \endinput\else\let\amstexloaded@\relax\fi
63: \newlinechar=`\^^J
64: \def\W@{\immediate\write\sixt@@n}
65: \def\CR@{\W@{^^J\fmtname - Version \fmtversion^^J}}
66: \CR@ \everyjob{\CR@}
67: \message{Loading definitions for}
68: \message{misc utility macros,}
69: \toksdef\toks@@=2
70: \long\def\rightappend@#1\to#2{\toks@{\\{#1}}\toks@@
71: =\expandafter{#2}\xdef#2{\the\toks@@\the\toks@}\toks@{}\toks@@{}}
72: \def\alloclist@{}
73: \newif\ifalloc@
74: \def\showallocations{{\def\\{\immediate\write\m@ne}\alloclist@}\alloc@true}
75: \def\alloc@#1#2#3#4#5{\global\advance\count1#1by\@ne
76: \ch@ck#1#4#2\allocationnumber=\count1#1
77: \global#3#5=\allocationnumber
78: \edef\next@{\string#5=\string#2\the\allocationnumber}%
79: \expandafter\rightappend@\next@\to\alloclist@}
80: \newcount\count@@
81: \newcount\count@@@
82: \def\FN@{\futurelet\next}
83: \def\DN@{\def\next@}
84: \def\DNii@{\def\nextii@}
85: \def\RIfM@{\relax\ifmmode}
86: \def\RIfMIfI@{\relax\ifmmode\ifinner}
87: \def\setboxz@h{\setbox\z@\hbox}
88: \def\wdz@{\wd\z@}
89: \def\boxz@{\box\z@}
90: \def\setbox@ne{\setbox\@ne}
91: \def\wd@ne{\wd\@ne}
92: \def\iterate{\body\expandafter\iterate\else\fi}
93: \def\err@#1{\errmessage{AmS-TeX error: #1}}
94: \newhelp\defaulthelp@{Sorry, I already gave what help I could...^^J
95: Maybe you should try asking a human?^^J
96: An error might have occurred before I noticed any problems.^^J
97: ``If all else fails, read the instructions.''}
98: \def\Err@{\errhelp\defaulthelp@\err@}
99: \def\eat@#1{}
100: \def\in@#1#2{\def\in@@##1#1##2##3\in@@{\ifx\in@##2\in@false\else\in@true\fi}%
101: \in@@#2#1\in@\in@@}
102: \newif\ifin@
103: \def\space@.{\futurelet\space@\relax}
104: \space@. %
105: \newhelp\athelp@
106: {Only certain combinations beginning with @ make sense to me.^^J
107: Perhaps you wanted \string\@\space for a printed @?^^J
108: I've ignored the character or group after @.}
109: {\catcode`\~=\active % just in case
110: \lccode`\~=`\@ \lowercase{\gdef~{\FN@\at@}}}
111: \def\at@{\let\next@\at@@
112: \ifcat\noexpand\next a\else\ifcat\noexpand\next0\else
113: \ifcat\noexpand\next\relax\else
114: \let\next\at@@@\fi\fi\fi
115: \next@}
116: \def\at@@#1{\expandafter
117: \ifx\csname\space @\string#1\endcsname\relax
118: \expandafter\at@@@ \else
119: \csname\space @\string#1\expandafter\endcsname\fi}
120: \def\at@@@#1{\errhelp\athelp@ \err@{\Invalid@@ @}}%%
121: \def\atdef@#1{\expandafter\def\csname\space @\string#1\endcsname}%%
122: \newhelp\defahelp@{If you typed \string\define\space cs instead of
123: \string\define\string\cs\space^^J
124: I've substituted an inaccessible control sequence so that your^^J
125: definition will be completed without mixing me up too badly.^^J
126: If you typed \string\define{\string\cs} the inaccessible control sequence^^J
127: was defined to be \string\cs, and the rest of your^^J
128: definition appears as input.}
129: \newhelp\defbhelp@{I've ignored your definition, because it might^^J
130: conflict with other uses that are important to me.}
131: \def\define{\FN@\define@}
132: \def\define@{\ifcat\noexpand\next\relax
133: \expandafter\define@@\else\errhelp\defahelp@ %1
134: \err@{\string\define\space must be followed by a control
135: sequence}\expandafter\def\expandafter\nextii@\fi} %2
136: \def\undefined@@@@@@@@@@{}
137: \def\preloaded@@@@@@@@@@{}
138: \def\next@@@@@@@@@@{}
139: \def\define@@#1{\ifx#1\relax\errhelp\defbhelp@ %1
140: \err@{\string#1\space is already defined}\DN@{\DNii@}\else
141: \expandafter\ifx\csname\expandafter\eat@\string %2
142: #1@@@@@@@@@@\endcsname\undefined@@@@@@@@@@\errhelp\defbhelp@
143: \err@{\string#1\space can't be defined}\DN@{\DNii@}\else
144: \expandafter\ifx\csname\expandafter\eat@\string#1\endcsname\relax %3
145: \global\let#1\undefined\DN@{\def#1}\else\errhelp\defbhelp@
146: \err@{\string#1\space is already defined}\DN@{\DNii@}\fi
147: \fi\fi\next@}
148: \let\redefine\def
149: \def\predefine#1#2{\let#1#2}
150: \def\undefine#1{\let#1\undefined}
151: \message{page layout,}
152: \newdimen\captionwidth@
153: \captionwidth@\hsize
154: \advance\captionwidth@-1.5in
155: \def\pagewidth#1{\hsize#1\relax
156: \captionwidth@\hsize\advance\captionwidth@-1.5in}
157: \def\pageheight#1{\vsize#1\relax}
158: \def\hcorrection#1{\advance\hoffset#1\relax}
159: \def\vcorrection#1{\advance\voffset#1\relax}
160: \message{accents/punctuation,}
161: \def\tie{\unskip\nobreak\ }
162: \let\graveaccent\`
163: \let\acuteaccent\'
164: \let\tildeaccent\~
165: \let\hataccent\^
166: \let\underscore\_
167: \let\B\=
168: \let\D\.
169: \let\ic@\/
170: \def\/{\unskip\ic@}
171: \def\textfonti{\the\textfont\@ne}
172: \def\t#1#2{{\edef\next@{\the\font}\textfonti\accent"7F \next@#1#2}}
173: \def~{\unskip\nobreak\ \ignorespaces}
174: \def\.{.\spacefactor\@m}
175: \atdef@;{\leavevmode\null;}
176: \atdef@:{\leavevmode\null:}
177: \atdef@?{\leavevmode\null?}
178: \edef\@{\string @}
179: \def\relaxnext@{\let\next\relax}
180: \atdef@-{\relaxnext@\leavevmode
181: \DN@{\ifx\next-\DN@-{\FN@\nextii@}\else
182: \DN@{\leavevmode\hbox{-}}\fi\next@}%
183: \DNii@{\ifx\next-\DN@-{\leavevmode\hbox{---}}\else
184: \DN@{\leavevmode\hbox{--}}\fi\next@}%
185: \FN@\next@}
186: \def\srdr@{\kern.16667em}
187: \def\drsr@{\kern.02778em}
188: \def\sldl@{\drsr@}
189: \def\dlsl@{\srdr@}
190: \atdef@"{\unskip\relaxnext@
191: \DN@{\ifx\next\space@\DN@. {\FN@\nextii@}\else
192: \DN@.{\FN@\nextii@}\fi\next@.}%
193: \DNii@{\ifx\next`\DN@`{\FN@\nextiii@}\else
194: \ifx\next\lq\DN@\lq{\FN@\nextiii@}\else
195: \DN@####1{\FN@\nextiv@}\fi\fi\next@}%
196: \def\nextiii@{\ifx\next`\DN@`{\sldl@``}\else\ifx\next\lq
197: \DN@\lq{\sldl@``}\else\DN@{\dlsl@`}\fi\fi\next@}%
198: \def\nextiv@{\ifx\next'\DN@'{\srdr@''}\else
199: \ifx\next\rq\DN@\rq{\srdr@''}\else\DN@{\drsr@'}\fi\fi\next@}%
200: \FN@\next@}
201: \def\flushpar{\par\noindent}
202: \def\textfontii{\the\textfont\tw@}
203: \def\lbrace@{\delimiter"4266308 }
204: \def\rbrace@{\delimiter"5267309 }
205: \def\{{\RIfM@\lbrace@\else{\textfontii f}\spacefactor\@m\fi}
206: \def\}{\RIfM@\rbrace@\else
207: \let\@sf\empty\ifhmode\edef\@sf{\spacefactor\the\spacefactor}\fi
208: {\textfontii g}\@sf\relax\fi}
209: \let\lbrace\{
210: \let\rbrace\}
211: \def\AmSTeX{{\textfontii A\kern-.1667em%
212: \lower.5ex\hbox{M}\kern-.125emS}-\TeX\spacefactor1000 }
213: \message{line and page breaks,}
214: \def\vmodeerr@#1{\Err@{\string#1\space not allowed between paragraphs}}
215: \def\mathmodeerr@#1{\Err@{\string#1\space not allowed in math mode}}
216: \def\linebreak{\RIfM@\mathmodeerr@\linebreak\else
217: \ifhmode\unskip\unkern\break\else\vmodeerr@\linebreak\fi\fi}
218: \def\slash{\unskip/\penalty\exhyphenpenalty}
219: \newskip\saveskip@
220: \def\allowlinebreak{\RIfM@\mathmodeerr@\allowlinebreak\else
221: \ifhmode\saveskip@\lastskip\unskip
222: \allowbreak\ifdim\saveskip@>\z@\hskip\saveskip@\fi
223: \else\vmodeerr@\allowlinebreak\fi\fi}
224: \def\nolinebreak{\RIfM@\mathmodeerr@\nolinebreak\else
225: \ifhmode\saveskip@\lastskip\unskip
226: \nobreak\ifdim\saveskip@>\z@\hskip\saveskip@\fi
227: \else\vmodeerr@\nolinebreak\fi\fi}
228: \def\newline{\relaxnext@
229: \DN@{\RIfM@\expandafter\mathmodeerr@\expandafter\newline\else
230: \ifhmode\ifx\next\par\else
231: \expandafter\unskip\expandafter\null\expandafter\hfill\expandafter\break\fi
232: \else
233: \expandafter\vmodeerr@\expandafter\newline\fi\fi}%
234: \FN@\next@}
235: \def\dmatherr@#1{\Err@{\string#1\space not allowed in display math mode}}
236: \def\nondmatherr@#1{\Err@{\string#1\space not allowed in non-display math
237: mode}}
238: \def\onlydmatherr@#1{\Err@{\string#1\space allowed only in display math mode}}
239: \def\nonmatherr@#1{\Err@{\string#1\space allowed only in math mode}}
240: \def\mathbreak{\RIfMIfI@\break\else
241: \dmatherr@\mathbreak\fi\else\nonmatherr@\mathbreak\fi}
242: \def\nomathbreak{\RIfMIfI@\nobreak\else
243: \dmatherr@\nomathbreak\fi\else\nonmatherr@\nomathbreak\fi}
244: \def\allowmathbreak{\RIfMIfI@\allowbreak\else
245: \dmatherr@\allowmathbreak\fi\else\nonmatherr@\allowmathbreak\fi}
246: \def\pagebreak{\RIfM@
247: \ifinner\nondmatherr@\pagebreak\else\postdisplaypenalty-\@M\fi
248: \else\ifvmode\removelastskip\break\else\vadjust{\break}\fi\fi}
249: \def\nopagebreak{\RIfM@
250: \ifinner\nondmatherr@\nopagebreak\else\postdisplaypenalty\@M\fi
251: \else\ifvmode\nobreak\else\vadjust{\nobreak}\fi\fi}
252: \def\nonvmodeerr@#1{\Err@{\string#1\space not allowed within a paragraph
253: or in math}}
254: \def\vnonvmode@#1#2{\relaxnext@\DNii@{\ifx\next\par\DN@{#1}\else
255: \DN@{#2}\fi\next@}%
256: \ifvmode\DN@{#1}\else
257: \DN@{\FN@\nextii@}\fi\next@}
258: \def\newpage{\vnonvmode@{\vfill\break}{\nonvmodeerr@\newpage}}
259: \def\smallpagebreak{\vnonvmode@\smallbreak{\nonvmodeerr@\smallpagebreak}}
260: \def\medpagebreak{\vnonvmode@\medbreak{\nonvmodeerr@\medpagebreak}}
261: \def\bigpagebreak{\vnonvmode@\bigbreak{\nonvmodeerr@\bigpagebreak}}
262: \def\NoBlackBoxes{\global\overfullrule\z@}
263: \def\BlackBoxes{\global\overfullrule5\p@}
264: \def\Invalid@#1{\def#1{\Err@{\Invalid@@\string#1}}}
265: \def\Invalid@@{Invalid use of }
266: \message{figures,}
267: \Invalid@\caption
268: \Invalid@\captionwidth
269: \newdimen\smallcaptionwidth@
270: \def\topspace{\mid@false\ins@}
271: \def\midspace{\mid@true\ins@}
272: \newif\ifmid@
273: \def\captionfont@{}
274: \def\ins@#1{\relaxnext@\allowbreak
275: \smallcaptionwidth@\captionwidth@\gdef\thespace@{#1}%
276: \DN@{\ifx\next\space@\DN@. {\FN@\nextii@}\else
277: \DN@.{\FN@\nextii@}\fi\next@.}%
278: \DNii@{\ifx\next\caption\DN@\caption{\FN@\nextiii@}%
279: \else\let\next@\nextiv@\fi\next@}%
280: \def\nextiv@{\vnonvmode@
281: {\ifmid@\expandafter\midinsert\else\expandafter\topinsert\fi
282: \vbox to\thespace@{}\endinsert}
283: {\ifmid@\nonvmodeerr@\midspace\else\nonvmodeerr@\topspace\fi}}%
284: \def\nextiii@{\ifx\next\captionwidth\expandafter\nextv@
285: \else\expandafter\nextvi@\fi}%
286: \def\nextv@\captionwidth##1##2{\smallcaptionwidth@##1\relax\nextvi@{##2}}%
287: \def\nextvi@##1{\def\thecaption@{\captionfont@##1}%
288: \DN@{\ifx\next\space@\DN@. {\FN@\nextvii@}\else
289: \DN@.{\FN@\nextvii@}\fi\next@.}%
290: \FN@\next@}%
291: \def\nextvii@{\vnonvmode@
292: {\ifmid@\expandafter\midinsert\else
293: \expandafter\topinsert\fi\vbox to\thespace@{}\nobreak\smallskip
294: \setboxz@h{\noindent\ignorespaces\thecaption@\unskip}%
295: \ifdim\wdz@>\smallcaptionwidth@\centerline{\vbox{\hsize\smallcaptionwidth@
296: \noindent\ignorespaces\thecaption@\unskip}}%
297: \else\centerline{\boxz@}\fi\endinsert}
298: {\ifmid@\nonvmodeerr@\midspace
299: \else\nonvmodeerr@\topspace\fi}}%
300: \FN@\next@}
301: \message{comments,}
302: \def\newcodes@{\catcode`\\12\catcode`\{12\catcode`\}12\catcode`\#12%
303: \catcode`\%12\relax}
304: \def\oldcodes@{\catcode`\\0\catcode`\{1\catcode`\}2\catcode`\#6%
305: \catcode`\%14\relax}
306: \def\comment{\newcodes@\endlinechar=10 \comment@}
307: {\lccode`\0=`\\
308: \lowercase{\gdef\comment@#1^^J{\comment@@#10endcomment\comment@@@}%
309: \gdef\comment@@#10endcomment{\FN@\comment@@@}%
310: \gdef\comment@@@#1\comment@@@{\ifx\next\comment@@@\let\next\comment@
311: \else\def\next{\oldcodes@\endlinechar=`\^^M\relax}%
312: \fi\next}}}
313: \def\pr@m@s{\ifx'\next\DN@##1{\prim@s}\else\let\next@\egroup\fi\next@}
314: \def\prime{{\null\prime@\null}}
315: \mathchardef\prime@="0230
316: \let\dsize\displaystyle
317: \let\tsize\textstyle
318: \let\ssize\scriptstyle
319: \let\sssize\scriptscriptstyle
320: \message{math spacing,}
321: \def\,{\RIfM@\mskip\thinmuskip\relax\else\kern.16667em\fi}
322: \def\!{\RIfM@\mskip-\thinmuskip\relax\else\kern-.16667em\fi}
323: \let\thinspace\,
324: \let\negthinspace\!
325: \def\medspace{\RIfM@\mskip\medmuskip\relax\else\kern.222222em\fi}
326: \def\negmedspace{\RIfM@\mskip-\medmuskip\relax\else\kern-.222222em\fi}
327: \def\thickspace{\RIfM@\mskip\thickmuskip\relax\else\kern.27777em\fi}
328: \let\;\thickspace
329: \def\negthickspace{\RIfM@\mskip-\thickmuskip\relax\else
330: \kern-.27777em\fi}
331: \atdef@,{\RIfM@\mskip.1\thinmuskip\else\leavevmode\null,\fi}
332: \atdef@!{\RIfM@\mskip-.1\thinmuskip\else\leavevmode\null!\fi}
333: \atdef@.{\RIfM@&&\else\leavevmode.\spacefactor3000 \fi}
334: \def\and{\DOTSB\;\mathchar"3026 \;}
335: \def\implies{\DOTSB\;\Longrightarrow\;}
336: \def\impliedby{\DOTSB\;\Longleftarrow\;}
337: \message{fractions,}
338: \def\frac#1#2{{#1\over#2}}
339: \def\dfrac#1#2{{\displaystyle{#1\over#2}}}
340: \def\tfrac#1#2{{\textstyle{#1\over#2}}}
341: \newdimen\ex@
342: \ex@.2326ex
343: \Invalid@\thickness
344: \def\thickfrac{\relaxnext@
345: \DN@{\ifx\next\thickness\let\next@\nextii@\else
346: \DN@{\nextii@\thickness1}\fi\next@}%
347: \DNii@\thickness##1##2##3{{##2\above##1\ex@##3}}%
348: \FN@\next@}
349: \def\fracwithdelims#1#2#3#4{{#3\overwithdelims#1#2#4}}
350: \def\thickfracwithdelims#1#2{\relaxnext@\def\ldelim@{#1}\def\rdelim@{#2}%
351: \DN@{\ifx\next\thickness\let\next@\nextii@\else
352: \DN@{\nextii@\thickness1}\fi\next@}%
353: \DNii@\thickness##1##2##3{{##2\abovewithdelims
354: \ldelim@\rdelim@##1\ex@##3}}%
355: \FN@\next@}
356: \def\binom#1#2{{#1\choose#2}}
357: \def\dbinom#1#2{{\displaystyle{#1\choose#2}}}
358: \def\tbinom#1#2{{\textstyle{#1\choose#2}}}
359: \def\:{\nobreak\hskip.1111em\mathpunct{}\nonscript\mkern-\thinmuskip{:}\hskip
360: .3333emplus.0555em\relax}
361: \def\snug{\unskip\kern-\mathsurround}
362: \message{smash commands,}
363: \def\topsmash{\top@true\bot@false\smash@}
364: \def\botsmash{\top@false\bot@true\smash@}
365: \newif\iftop@
366: \newif\ifbot@
367: \def\smash{\top@true\bot@true\smash@}
368: \def\smash@{\RIfM@\expandafter\mathpalette\expandafter\mathsm@sh\else
369: \expandafter\makesm@sh\fi}
370: \def\finsm@sh{\iftop@\ht\z@\z@\fi\ifbot@\dp\z@\z@\fi\leavevmode\boxz@}
371: \message{large operator symbols,}
372: \def\LimitsOnSums{\global\let\slimits@\displaylimits}
373: \def\NoLimitsOnSums{\global\let\slimits@\nolimits}
374: \LimitsOnSums
375: \mathchardef\coprod@="1360 \def\coprod{\DOTSB\coprod@\slimits@}
376: \mathchardef\bigvee@="1357 \def\bigvee{\DOTSB\bigvee@\slimits@}
377: \mathchardef\bigwedge@="1356 \def\bigwedge{\DOTSB\bigwedge@\slimits@}
378: \mathchardef\biguplus@="1355 \def\biguplus{\DOTSB\biguplus@\slimits@}
379: \mathchardef\bigcap@="1354 \def\bigcap{\DOTSB\bigcap@\slimits@}
380: \mathchardef\bigcup@="1353 \def\bigcup{\DOTSB\bigcup@\slimits@}
381: \mathchardef\prod@="1351 \def\prod{\DOTSB\prod@\slimits@}
382: \mathchardef\sum@="1350 \def\sum{\DOTSB\sum@\slimits@}
383: \mathchardef\bigotimes@="134E \def\bigotimes{\DOTSB\bigotimes@\slimits@}
384: \mathchardef\bigoplus@="134C \def\bigoplus{\DOTSB\bigoplus@\slimits@}
385: \mathchardef\bigodot@="134A \def\bigodot{\DOTSB\bigodot@\slimits@}
386: \mathchardef\bigsqcup@="1346 \def\bigsqcup{\DOTSB\bigsqcup@\slimits@}
387: \message{integrals,}
388: \def\LimitsOnInts{\global\let\ilimits@\displaylimits}
389: \def\NoLimitsOnInts{\global\let\ilimits@\nolimits}
390: \NoLimitsOnInts
391: \def\int{\DOTSI\intop\ilimits@}
392: \def\oint{\DOTSI\ointop\ilimits@}
393: \def\intic@{\mathchoice{\hskip.5em}{\hskip.4em}{\hskip.4em}{\hskip.4em}}
394: \def\negintic@{\mathchoice
395: {\hskip-.5em}{\hskip-.4em}{\hskip-.4em}{\hskip-.4em}}
396: \def\intkern@{\mathchoice{\!\!\!}{\!\!}{\!\!}{\!\!}}
397: \def\intdots@{\mathchoice{\plaincdots@}
398: {{\cdotp}\mkern1.5mu{\cdotp}\mkern1.5mu{\cdotp}}
399: {{\cdotp}\mkern1mu{\cdotp}\mkern1mu{\cdotp}}
400: {{\cdotp}\mkern1mu{\cdotp}\mkern1mu{\cdotp}}}
401: \newcount\intno@
402: \def\iint{\DOTSI\intno@\tw@\FN@\ints@}
403: \def\iiint{\DOTSI\intno@\thr@@\FN@\ints@}
404: \def\iiiint{\DOTSI\intno@4 \FN@\ints@}
405: \def\idotsint{\DOTSI\intno@\z@\FN@\ints@}
406: \def\ints@{\findlimits@\ints@@}
407: \newif\iflimtoken@
408: \newif\iflimits@
409: \def\findlimits@{\limtoken@true\ifx\next\limits\limits@true
410: \else\ifx\next\nolimits\limits@false\else
411: \limtoken@false\ifx\ilimits@\nolimits\limits@false\else
412: \ifinner\limits@false\else\limits@true\fi\fi\fi\fi}
413: \def\multint@{\int\ifnum\intno@=\z@\intdots@ %1
414: \else\intkern@\fi %2
415: \ifnum\intno@>\tw@\int\intkern@\fi %3
416: \ifnum\intno@>\thr@@\int\intkern@\fi %4
417: \int} %5
418: \def\multintlimits@{\intop\ifnum\intno@=\z@\intdots@\else\intkern@\fi
419: \ifnum\intno@>\tw@\intop\intkern@\fi
420: \ifnum\intno@>\thr@@\intop\intkern@\fi\intop}
421: \def\ints@@{\iflimtoken@ %1
422: \def\ints@@@{\iflimits@\negintic@\mathop{\intic@\multintlimits@}\limits %2
423: \else\multint@\nolimits\fi %3
424: \eat@} %4
425: \else %5
426: \def\ints@@@{\iflimits@\negintic@
427: \mathop{\intic@\multintlimits@}\limits\else
428: \multint@\nolimits\fi}\fi\ints@@@}
429: \def\LimitsOnNames{\global\let\nlimits@\displaylimits}
430: \def\NoLimitsOnNames{\global\let\nlimits@\nolimits@}
431: \LimitsOnNames
432: \def\nolimits@{\relaxnext@
433: \DN@{\ifx\next\limits\DN@\limits{\nolimits}\else
434: \let\next@\nolimits\fi\next@}%
435: \FN@\next@}
436: \message{operator names,}
437: \def\newmcodes@{\mathcode`\'"27\mathcode`\*"2A\mathcode`\."613A%
438: \mathcode`\-"2D\mathcode`\/"2F\mathcode`\:"603A }
439: \def\operatorname#1{\mathop{\newmcodes@\kern\z@\fam\z@#1}\nolimits@}
440: \def\operatornamewithlimits#1{\mathop{\newmcodes@\kern\z@\fam\z@#1}\nlimits@}
441: \def\qopname@#1{\mathop{\fam\z@#1}\nolimits@}
442: \def\qopnamewl@#1{\mathop{\fam\z@#1}\nlimits@}
443: \def\arccos{\qopname@{arccos}}
444: \def\arcsin{\qopname@{arcsin}}
445: \def\arctan{\qopname@{arctan}}
446: \def\arg{\qopname@{arg}}
447: \def\cos{\qopname@{cos}}
448: \def\cosh{\qopname@{cosh}}
449: \def\cot{\qopname@{cot}}
450: \def\coth{\qopname@{coth}}
451: \def\csc{\qopname@{csc}}
452: \def\deg{\qopname@{deg}}
453: \def\det{\qopnamewl@{det}}
454: \def\dim{\qopname@{dim}}
455: \def\exp{\qopname@{exp}}
456: \def\gcd{\qopnamewl@{gcd}}
457: \def\hom{\qopname@{hom}}
458: \def\inf{\qopnamewl@{inf}}
459: \def\injlim{\qopnamewl@{inj\,lim}}
460: \def\ker{\qopname@{ker}}
461: \def\lg{\qopname@{lg}}
462: \def\lim{\qopnamewl@{lim}}
463: \def\liminf{\qopnamewl@{lim\,inf}}
464: \def\limsup{\qopnamewl@{lim\,sup}}
465: \def\ln{\qopname@{ln}}
466: \def\log{\qopname@{log}}
467: \def\max{\qopnamewl@{max}}
468: \def\min{\qopnamewl@{min}}
469: \def\Pr{\qopnamewl@{Pr}}
470: \def\projlim{\qopnamewl@{proj\,lim}}
471: \def\sec{\qopname@{sec}}
472: \def\sin{\qopname@{sin}}
473: \def\sinh{\qopname@{sinh}}
474: \def\sup{\qopnamewl@{sup}}
475: \def\tan{\qopname@{tan}}
476: \def\tanh{\qopname@{tanh}}
477: \def\varinjlim{\mathop{\vtop{\ialign{##\crcr
478: \hfil\rm lim\hfil\crcr\noalign{\nointerlineskip}\rightarrowfill\crcr
479: \noalign{\nointerlineskip\kern-\ex@}\crcr}}}}
480: \def\varprojlim{\mathop{\vtop{\ialign{##\crcr
481: \hfil\rm lim\hfil\crcr\noalign{\nointerlineskip}\leftarrowfill\crcr
482: \noalign{\nointerlineskip\kern-\ex@}\crcr}}}}
483: \def\varliminf{\mathop{\underline{\vrule height\z@ depth.2exwidth\z@
484: \hbox{\rm lim}}}}
485: \def\varlimsup{\mathop{\overline{\hbox{\rm lim}}}}
486: \newdimen\buffer@
487: \buffer@\fontdimen13 \tenex
488: \newdimen\buffer
489: \buffer\buffer@
490: \def\ChangeBuffer#1{\fontdimen13 \tenex#1\relax
491: \global\buffer\fontdimen13 \tenex}
492: \def\ResetBuffer{\fontdimen13 \tenex\buffer@\global\buffer\buffer@}
493: \def\shave#1{\mathop{\hbox{$\m@th\fontdimen13 \tenex\z@ %1
494: \displaystyle{#1}$}}\fontdimen13 \tenex\buffer}
495: \def\topshave#1{\mathop{\topsmash{\displaystyle{#1}}\vphantom{\shave{#1}}}}
496: \def\botshave#1{\mathop{\botsmash{\displaystyle{#1}}\vphantom{\shave{#1}}}}
497: \message{multilevel sub/superscripts,}
498: \Invalid@\\
499: \def\Let@{\relax\iffalse{\fi\let\\=\cr\iffalse}\fi}
500: \Invalid@\vspace
501: \def\vspace@{\def\vspace##1{\crcr\noalign{\vskip##1\relax}}}
502: \def\multilimits@{\bgroup\vspace@\Let@
503: \baselineskip\fontdimen10 \scriptfont\tw@
504: \advance\baselineskip\fontdimen12 \scriptfont\tw@
505: \lineskip\thr@@\fontdimen8 \scriptfont\thr@@
506: \lineskiplimit\lineskip
507: \vbox\bgroup\ialign\bgroup\hfil$\m@th\scriptstyle{##}$\hfil\crcr}
508: \def\Sb{_\multilimits@}
509: \def\endSb{\crcr\egroup\egroup\egroup}
510: \def\Sp{^\multilimits@}
511: \let\endSp\endSb
512: \def\spreadlines#1{\RIfMIfI@\onlydmatherr@\spreadlines\else
513: \openup#1\relax\fi\else\onlydmatherr@\spreadlines\fi}
514: \def\Mathstrut@{\copy\Mathstrutbox@}
515: \newbox\Mathstrutbox@
516: \setbox\Mathstrutbox@\null
517: \setboxz@h{$\m@th($}
518: \ht\Mathstrutbox@\ht\z@
519: \dp\Mathstrutbox@\dp\z@
520: \message{matrices,}
521: \newdimen\spreadmlines@
522: \def\spreadmatrixlines#1{\RIfMIfI@
523: \onlydmatherr@\spreadmatrixlines\else
524: \spreadmlines@#1\relax\fi\else\onlydmatherr@\spreadmatrixlines\fi}
525: \def\matrix{\null\,\vcenter\bgroup\Let@\vspace@
526: \normalbaselines\openup\spreadmlines@\ialign
527: \bgroup\hfil$\m@th##$\hfil&&\quad\hfil$\m@th##$\hfil\crcr
528: \Mathstrut@\crcr\noalign{\kern-\baselineskip}}
529: \def\endmatrix{\crcr\Mathstrut@\crcr\noalign{\kern-\baselineskip}\egroup
530: \egroup\,}
531: \def\format{\crcr\egroup\iffalse{\fi\ifnum`}=0 \fi\format@}
532: \newtoks\hashtoks@
533: \hashtoks@{#}
534: \def\format@#1\\{\def\preamble@{#1}%
535: \def\l{$\m@th\the\hashtoks@$\hfil}%
536: \def\c{\hfil$\m@th\the\hashtoks@$\hfil}%
537: \def\r{\hfil$\m@th\the\hashtoks@$}%
538: \edef\preamble@@{\preamble@}\ifnum`{=0 \fi\iffalse}\fi
539: \ialign\bgroup\span\preamble@@\crcr}
540: \def\smallmatrix{\null\,\vcenter\bgroup\vspace@\Let@
541: \baselineskip9\ex@\lineskip\ex@
542: \ialign\bgroup\hfil$\m@th\scriptstyle{##}$\hfil&&\thickspace\hfil
543: $\m@th\scriptstyle{##}$\hfil\crcr}
544: \def\endsmallmatrix{\crcr\egroup\egroup\,}
545: \def\pmatrix{\left(\matrix}
546: \def\endpmatrix{\endmatrix\right)}
547: \def\bmatrix{\left[\matrix}
548: \def\endbmatrix{\endmatrix\right]}
549: \def\vmatrix{\left|\matrix}
550: \def\endvmatrix{\endmatrix\right|}
551: \def\Vmatrix{\left\|\matrix}
552: \def\endVmatrix{\endmatrix\right\|}
553: \def\hdots{\mathinner{\ldotp\ldotp\ldotp}}
554: \newmuskip\dotsspace@
555: \dotsspace@1.5mu
556: \def\strip@#1 {#1}
557: \def\spacehdots#1\for#2{\multispan{#2}\xleaders
558: \hbox{$\m@th\mkern\strip@#1 \dotsspace@.\mkern\strip@#1 \dotsspace@$}\hfill}
559: \def\hdotsfor#1{\spacehdots\@ne\for{#1}}
560: \def\multispan@#1{\omit\mscount#1\unskip\loop\ifnum\mscount>\@ne\sp@n\repeat}
561: \def\spaceinnerhdots#1\for#2\after#3{\multispan@{\strip@#2 }#3\xleaders
562: \hbox{$\m@th\mkern\strip@#1 \dotsspace@.\mkern\strip@#1 \dotsspace@$}\hfill}
563: \def\innerhdotsfor#1\after#2{\spaceinnerhdots\@ne\for#1\after{#2}}
564: \def\cases{\bgroup\spreadmlines@\jot\left\{\,\matrix\format\l&\quad\l\\}
565: \def\endcases{\endmatrix\right.\egroup}
566: \message{multiline displays,}
567: \newif\ifinany@
568: \newif\ifinalign@
569: \newif\ifingather@
570: \def\strut@{\copy\strutbox@}
571: \newbox\strutbox@
572: \setbox\strutbox@\hbox{\vrule height8\p@ depth3\p@ width\z@}
573: \def\topaligned{\null\,\vtop\aligned@}
574: \def\botaligned{\null\,\vbox\aligned@}
575: \def\aligned{\null\,\vcenter\aligned@}
576: \def\aligned@{\bgroup\vspace@\Let@
577: \ifinany@\else\openup\jot\fi\ialign
578: \bgroup\hfil\strut@$\m@th\displaystyle{##}$&
579: $\m@th\displaystyle{{}##}$\hfil\crcr}
580: \def\endaligned{\crcr\egroup\egroup}
581: \let\endtopaligned\endaligned
582: \let\endbotaligned\endaligned
583: \def\alignedat#1{\null\,\vcenter\bgroup\doat@{#1}\vspace@\Let@
584: \ifinany@\else\openup\jot\fi\ialign\bgroup\span\preamble@@\crcr}
585: \newcount\atcount@
586: \def\doat@#1{\toks@{\hfil\strut@$\m@th
587: \displaystyle{\the\hashtoks@}$&$\m@th\displaystyle
588: {{}\the\hashtoks@}$\hfil}% %1
589: \atcount@#1\relax\advance\atcount@\m@ne %2
590: \loop\ifnum\atcount@>\z@\toks@=\expandafter{\the\toks@&\hfil$\m@th
591: \displaystyle{\the\hashtoks@}$&$\m@th
592: \displaystyle{{}\the\hashtoks@}$\hfil}\advance
593: \atcount@\m@ne\repeat %3
594: \xdef\preamble@{\the\toks@}\xdef\preamble@@{\preamble@}}
595: \let\endalignedat\endaligned
596: \def\gathered{\null\,\vcenter\bgroup\vspace@\Let@
597: \ifinany@\else\openup\jot\fi\ialign
598: \bgroup\hfil\strut@$\m@th\displaystyle{##}$\hfil\crcr}
599: \def\endgathered{\crcr\egroup\egroup}
600: \newif\iftagsleft@
601: \def\TagsOnLeft{\global\tagsleft@true}
602: \def\TagsOnRight{\global\tagsleft@false}
603: \TagsOnLeft
604: \newif\ifmathtags@
605: \def\TagsAsMath{\global\mathtags@true}
606: \def\TagsAsText{\global\mathtags@false}
607: \TagsAsText
608: \def\tagform@#1{\hbox{\rm(\ignorespaces#1\unskip)}}
609: \def\thetag{\leavevmode\tagform@}
610: \def\tag#1$${\iftagsleft@\leqno\else\eqno\fi %1
611: \maketag@#1\maketag@ %2
612: $$} %3
613: \def\maketag@{\FN@\maketag@@}
614: \def\maketag@@{\ifx\next"\expandafter\maketag@@@\else\expandafter\maketag@@@@
615: \fi}
616: \def\maketag@@@"#1"#2\maketag@{\hbox{\rm#1}} %1
617: \def\maketag@@@@#1\maketag@{\ifmathtags@\tagform@{$\m@th#1$}\else
618: \tagform@{#1}\fi}
619: \interdisplaylinepenalty\@M
620: \def\allowdisplaybreaks{\RIfMIfI@
621: \onlydmatherr@\allowdisplaybreaks\else
622: \interdisplaylinepenalty\z@\fi\else\onlydmatherr@\allowdisplaybreaks\fi}
623: \Invalid@\allowdisplaybreak
624: \Invalid@\displaybreak
625: \Invalid@\intertext
626: \def\allowdisplaybreak@{\def\allowdisplaybreak{\crcr\noalign{\allowbreak}}}
627: \def\displaybreak@{\def\displaybreak{\crcr\noalign{\break}}}
628: \def\intertext@{\def\intertext##1{\crcr\noalign{%
629: \penalty\postdisplaypenalty \vskip\belowdisplayskip
630: \vbox{\normalbaselines\noindent##1}%
631: \penalty\predisplaypenalty \vskip\abovedisplayskip}}}
632: \newskip\centering@
633: \centering@\z@ plus\@m\p@
634: \def\align{\relax\ifingather@\DN@{\csname align (in
635: \string\gather)\endcsname}\else
636: \ifmmode\ifinner\DN@{\onlydmatherr@\align}\else
637: \let\next@\align@\fi
638: \else\DN@{\onlydmatherr@\align}\fi\fi\next@}
639: \newhelp\andhelp@
640: {An extra & here is so disastrous that you should probably exit^^J
641: and fix things up.}
642: \newif\iftag@
643: \newcount\and@
644: \def\align@{\inalign@true\inany@true
645: \vspace@\allowdisplaybreak@\displaybreak@\intertext@
646: \def\tag{\global\tag@true\ifnum\and@=\z@\DN@{&&}\else
647: \DN@{&}\fi\next@}%
648: \iftagsleft@\DN@{\csname align \endcsname}\else
649: \DN@{\csname align \space\endcsname}\fi\next@}
650: \def\Tag@{\iftag@\else\errhelp\andhelp@\err@{Extra & on this line}\fi}
651: \newdimen\lwidth@
652: \newdimen\rwidth@
653: \newdimen\maxlwidth@
654: \newdimen\maxrwidth@
655: \newdimen\totwidth@
656: \def\measure@#1\endalign{\lwidth@\z@\rwidth@\z@\maxlwidth@\z@\maxrwidth@\z@
657: \global\and@\z@ %1
658: \setbox@ne\vbox %2
659: {\everycr{\noalign{\global\tag@false\global\and@\z@}}\Let@ %3
660: \halign{\setboxz@h{$\m@th\displaystyle{\@lign##}$}% %4
661: \global\lwidth@\wdz@ %5
662: \ifdim\lwidth@>\maxlwidth@\global\maxlwidth@\lwidth@\fi %6
663: \global\advance\and@\@ne %7
664: &\setboxz@h{$\m@th\displaystyle{{}\@lign##}$}\global\rwidth@\wdz@ %8
665: \ifdim\rwidth@>\maxrwidth@\global\maxrwidth@\rwidth@\fi %9
666: \global\advance\and@\@ne %10
667: &\Tag@
668: \eat@{##}\crcr#1\crcr}}% %11
669: \totwidth@\maxlwidth@\advance\totwidth@\maxrwidth@} %12
670: \def\displ@y@{\global\dt@ptrue\openup\jot
671: \everycr{\noalign{\global\tag@false\global\and@\z@\ifdt@p\global\dt@pfalse
672: \vskip-\lineskiplimit\vskip\normallineskiplimit\else
673: \penalty\interdisplaylinepenalty\fi}}}
674: \def\black@#1{\noalign{\ifdim#1>\displaywidth
675: \dimen@\prevdepth\nointerlineskip %1
676: \vskip-\ht\strutbox@\vskip-\dp\strutbox@ %2
677: \vbox{\noindent\hbox to#1{\strut@\hfill}}% %3
678: \prevdepth\dimen@ %4
679: \fi}}
680: \expandafter\def\csname align \space\endcsname#1\endalign
681: {\measure@#1\endalign\global\and@\z@ %1
682: \ifingather@\everycr{\noalign{\global\and@\z@}}\else\displ@y@\fi %2
683: \Let@\tabskip\centering@ %3
684: \halign to\displaywidth
685: {\hfil\strut@\setboxz@h{$\m@th\displaystyle{\@lign##}$}% %4
686: \global\lwidth@\wdz@\boxz@\global\advance\and@\@ne %5
687: \tabskip\z@skip %6
688: &\setboxz@h{$\m@th\displaystyle{{}\@lign##}$}% %7
689: \global\rwidth@\wdz@\boxz@\hfill\global\advance\and@\@ne %8
690: \tabskip\centering@ %9
691: &\setboxz@h{\@lign\strut@\maketag@##\maketag@}% %10
692: \dimen@\displaywidth\advance\dimen@-\totwidth@
693: \divide\dimen@\tw@\advance\dimen@\maxrwidth@\advance\dimen@-\rwidth@ %11
694: \ifdim\dimen@<\tw@\wdz@\llap{\vtop{\normalbaselines\null\boxz@}}% %12
695: \else\llap{\boxz@}\fi %13
696: \tabskip\z@skip %14
697: \crcr#1\crcr %15
698: \black@\totwidth@}} %16
699: \newdimen\lineht@
700: \expandafter\def\csname align \endcsname#1\endalign{\measure@#1\endalign
701: \global\and@\z@
702: \ifdim\totwidth@>\displaywidth\let\displaywidth@\totwidth@\else
703: \let\displaywidth@\displaywidth\fi %1
704: \ifingather@\everycr{\noalign{\global\and@\z@}}\else\displ@y@\fi
705: \Let@\tabskip\centering@\halign to\displaywidth
706: {\hfil\strut@\setboxz@h{$\m@th\displaystyle{\@lign##}$}%
707: \global\lwidth@\wdz@\global\lineht@\ht\z@ %2
708: \boxz@\global\advance\and@\@ne
709: \tabskip\z@skip&\setboxz@h{$\m@th\displaystyle{{}\@lign##}$}%
710: \global\rwidth@\wdz@\ifdim\ht\z@>\lineht@\global\lineht@\ht\z@\fi %3
711: \boxz@\hfil\global\advance\and@\@ne
712: \tabskip\centering@&\kern-\displaywidth@ %4
713: \setboxz@h{\@lign\strut@\maketag@##\maketag@}%
714: \dimen@\displaywidth\advance\dimen@-\totwidth@
715: \divide\dimen@\tw@\advance\dimen@\maxlwidth@\advance\dimen@-\lwidth@
716: \ifdim\dimen@<\tw@\wdz@
717: \rlap{\vbox{\normalbaselines\boxz@\vbox to\lineht@{}}}\else
718: \rlap{\boxz@}\fi
719: \tabskip\displaywidth@\crcr#1\crcr\black@\totwidth@}}
720: \expandafter\def\csname align (in \string\gather)\endcsname
721: #1\endalign{\vcenter{\align@#1\endalign}}
722: \Invalid@\endalign
723: \newif\ifxat@
724: \def\alignat{\RIfMIfI@\DN@{\onlydmatherr@\alignat}\else
725: \DN@{\csname alignat \endcsname}\fi\else
726: \DN@{\onlydmatherr@\alignat}\fi\next@}
727: \newif\ifmeasuring@
728: \newbox\savealignat@
729: \expandafter\def\csname alignat \endcsname#1#2\endalignat %1
730: {\inany@true\xat@false
731: \def\tag{\global\tag@true\count@#1\relax\multiply\count@\tw@
732: \xdef\tag@{}\loop\ifnum\count@>\and@\xdef\tag@{&\tag@}\advance\count@\m@ne
733: \repeat\tag@}%
734: \vspace@\allowdisplaybreak@\displaybreak@\intertext@
735: \displ@y@\measuring@true %2
736: \setbox\savealignat@\hbox{$\m@th\displaystyle\Let@
737: \attag@{#1}% %3
738: \vbox{\halign{\span\preamble@@\crcr#2\crcr}}$}%
739: \measuring@false %4
740: \Let@\attag@{#1}% %5
741: \tabskip\centering@\halign to\displaywidth
742: {\span\preamble@@\crcr#2\crcr %6
743: \black@{\wd\savealignat@}}} %7
744: \Invalid@\endalignat
745: \def\xalignat{\RIfMIfI@
746: \DN@{\onlydmatherr@\xalignat}\else
747: \DN@{\csname xalignat \endcsname}\fi\else
748: \DN@{\onlydmatherr@\xalignat}\fi\next@}
749: \expandafter\def\csname xalignat \endcsname#1#2\endxalignat
750: {\inany@true\xat@true
751: \def\tag{\global\tag@true\def\tag@{}\count@#1\relax\multiply\count@\tw@
752: \loop\ifnum\count@>\and@\xdef\tag@{&\tag@}\advance\count@\m@ne\repeat\tag@}%
753: \vspace@\allowdisplaybreak@\displaybreak@\intertext@
754: \displ@y@\measuring@true\setbox\savealignat@\hbox{$\m@th\displaystyle\Let@
755: \attag@{#1}\vbox{\halign{\span\preamble@@\crcr#2\crcr}}$}%
756: \measuring@false\Let@
757: \attag@{#1}\tabskip\centering@\halign to\displaywidth
758: {\span\preamble@@\crcr#2\crcr\black@{\wd\savealignat@}}}
759: \def\attag@#1{\let\Maketag@\maketag@\let\TAG@\Tag@ %1
760: \let\Tag@=0\let\maketag@=0% %2
761: \ifmeasuring@\def\llap@##1{\setboxz@h{##1}\hbox to\tw@\wdz@{}}%
762: \def\rlap@##1{\setboxz@h{##1}\hbox to\tw@\wdz@{}}\else
763: \let\llap@\llap\let\rlap@\rlap\fi %3
764: \toks@{\hfil\strut@$\m@th\displaystyle{\@lign\the\hashtoks@}$\tabskip\z@skip
765: \global\advance\and@\@ne&$\m@th\displaystyle{{}\@lign\the\hashtoks@}$\hfil
766: \ifxat@\tabskip\centering@\fi\global\advance\and@\@ne}% %4
767: \iftagsleft@
768: \toks@@{\tabskip\centering@&\Tag@\kern-\displaywidth
769: \rlap@{\@lign\maketag@\the\hashtoks@\maketag@}%
770: \global\advance\and@\@ne\tabskip\displaywidth}\else
771: \toks@@{\tabskip\centering@&\Tag@\llap@{\@lign\maketag@
772: \the\hashtoks@\maketag@}\global\advance\and@\@ne\tabskip\z@skip}\fi %5
773: \atcount@#1\relax\advance\atcount@\m@ne
774: \loop\ifnum\atcount@>\z@
775: \toks@=\expandafter{\the\toks@&\hfil$\m@th\displaystyle{\@lign
776: \the\hashtoks@}$\global\advance\and@\@ne
777: \tabskip\z@skip&$\m@th\displaystyle{{}\@lign\the\hashtoks@}$\hfil\ifxat@
778: \tabskip\centering@\fi\global\advance\and@\@ne}\advance\atcount@\m@ne
779: \repeat %6
780: \xdef\preamble@{\the\toks@\the\toks@@}% %7
781: \xdef\preamble@@{\preamble@}% %8
782: \let\maketag@\Maketag@\let\Tag@\TAG@} %9
783: \Invalid@\endxalignat
784: \def\xxalignat{\RIfMIfI@
785: \DN@{\onlydmatherr@\xxalignat}\else\DN@{\csname xxalignat
786: \endcsname}\fi\else
787: \DN@{\onlydmatherr@\xxalignat}\fi\next@}
788: \expandafter\def\csname xxalignat \endcsname#1#2\endxxalignat{\inany@true
789: \vspace@\allowdisplaybreak@\displaybreak@\intertext@
790: \displ@y\setbox\savealignat@\hbox{$\m@th\displaystyle\Let@
791: \xxattag@{#1}\vbox{\halign{\span\preamble@@\crcr#2\crcr}}$}%
792: \Let@\xxattag@{#1}\tabskip\z@skip\halign to\displaywidth
793: {\span\preamble@@\crcr#2\crcr\black@{\wd\savealignat@}}}
794: \def\xxattag@#1{\toks@{\tabskip\z@skip\hfil\strut@
795: $\m@th\displaystyle{\the\hashtoks@}$&%
796: $\m@th\displaystyle{{}\the\hashtoks@}$\hfil\tabskip\centering@&}%
797: \atcount@#1\relax\advance\atcount@\m@ne\loop\ifnum\atcount@>\z@
798: \toks@=\expandafter{\the\toks@&\hfil$\m@th\displaystyle{\the\hashtoks@}$%
799: \tabskip\z@skip&$\m@th\displaystyle{{}\the\hashtoks@}$\hfil
800: \tabskip\centering@}\advance\atcount@\m@ne\repeat
801: \xdef\preamble@{\the\toks@\tabskip\z@skip}\xdef\preamble@@{\preamble@}}
802: \Invalid@\endxxalignat
803: \newdimen\gwidth@
804: \newdimen\gmaxwidth@
805: \def\gmeasure@#1\endgather{\gwidth@\z@\gmaxwidth@\z@\setbox@ne\vbox{\Let@
806: \halign{\setboxz@h{$\m@th\displaystyle{##}$}\global\gwidth@\wdz@
807: \ifdim\gwidth@>\gmaxwidth@\global\gmaxwidth@\gwidth@\fi
808: &\eat@{##}\crcr#1\crcr}}}
809: \def\gather{\RIfMIfI@\DN@{\onlydmatherr@\gather}\else
810: \ingather@true\inany@true\def\tag{&}%
811: \vspace@\allowdisplaybreak@\displaybreak@\intertext@
812: \displ@y\Let@
813: \iftagsleft@\DN@{\csname gather \endcsname}\else
814: \DN@{\csname gather \space\endcsname}\fi\fi
815: \else\DN@{\onlydmatherr@\gather}\fi\next@}
816: \expandafter\def\csname gather \space\endcsname#1\endgather
817: {\gmeasure@#1\endgather\tabskip\centering@
818: \halign to\displaywidth{\hfil\strut@\setboxz@h{$\m@th\displaystyle{##}$}%
819: \global\gwidth@\wdz@\boxz@\hfil&
820: \setboxz@h{\strut@{\maketag@##\maketag@}}%
821: \dimen@\displaywidth\advance\dimen@-\gwidth@
822: \ifdim\dimen@>\tw@\wdz@\llap{\boxz@}\else
823: \llap{\vtop{\normalbaselines\null\boxz@}}\fi
824: \tabskip\z@skip\crcr#1\crcr\black@\gmaxwidth@}}
825: \newdimen\glineht@
826: \expandafter\def\csname gather \endcsname#1\endgather{\gmeasure@#1\endgather
827: \ifdim\gmaxwidth@>\displaywidth\let\gdisplaywidth@\gmaxwidth@\else
828: \let\gdisplaywidth@\displaywidth\fi\tabskip\centering@\halign to\displaywidth
829: {\hfil\strut@\setboxz@h{$\m@th\displaystyle{##}$}%
830: \global\gwidth@\wdz@\global\glineht@\ht\z@\boxz@\hfil&\kern-\gdisplaywidth@
831: \setboxz@h{\strut@{\maketag@##\maketag@}}%
832: \dimen@\displaywidth\advance\dimen@-\gwidth@
833: \ifdim\dimen@>\tw@\wdz@\rlap{\boxz@}\else
834: \rlap{\vbox{\normalbaselines\boxz@\vbox to\glineht@{}}}\fi
835: \tabskip\gdisplaywidth@\crcr#1\crcr\black@\gmaxwidth@}}
836: \newif\ifctagsplit@
837: \def\CenteredTagsOnSplits{\global\ctagsplit@true}
838: \def\TopOrBottomTagsOnSplits{\global\ctagsplit@false}
839: \TopOrBottomTagsOnSplits
840: \def\split{\relax\ifinany@\let\next@\insplit@\else
841: \ifmmode\ifinner\def\next@{\onlydmatherr@\split}\else
842: \let\next@\outsplit@\fi\else
843: \def\next@{\onlydmatherr@\split}\fi\fi\next@}
844: \def\insplit@{\global\setbox\z@\vbox\bgroup\vspace@\Let@\ialign\bgroup
845: \hfil\strut@$\m@th\displaystyle{##}$&$\m@th\displaystyle{{}##}$\hfill\crcr}
846: \def\endsplit{\crcr\egroup\egroup\iftagsleft@\expandafter\lendsplit@\else
847: \expandafter\rendsplit@\fi}
848: \def\rendsplit@{\global\setbox9 \vbox
849: {\unvcopy\z@\global\setbox8 \lastbox\unskip}% %1
850: \setbox@ne\hbox{\unhcopy8 \unskip\global\setbox\tw@\lastbox
851: \unskip\global\setbox\thr@@\lastbox}% %2
852: \global\setbox7 \hbox{\unhbox\tw@\unskip}% %3
853: \ifinalign@\ifctagsplit@ %4
854: \gdef\split@{\hbox to\wd\thr@@{}&
855: \vcenter{\vbox{\moveleft\wd\thr@@\boxz@}}}% %5
856: \else\gdef\split@{&\vbox{\moveleft\wd\thr@@\box9}\crcr
857: \box\thr@@&\box7}\fi %6
858: \else %7
859: \ifctagsplit@\gdef\split@{\vcenter{\boxz@}}\else
860: \gdef\split@{\box9\crcr\hbox{\box\thr@@\box7}}\fi
861: \fi
862: \split@} %8
863: \def\lendsplit@{\global\setbox9\vtop{\unvcopy\z@}% %1
864: \setbox@ne\vbox{\unvcopy\z@\global\setbox8\lastbox}% %2
865: \setbox@ne\hbox{\unhcopy8\unskip\setbox\tw@\lastbox
866: \unskip\global\setbox\thr@@\lastbox}% %3
867: \ifinalign@\ifctagsplit@ %4
868: \gdef\split@{\hbox to\wd\thr@@{}&
869: \vcenter{\vbox{\moveleft\wd\thr@@\box9}}}% %5
870: \else %6
871: \gdef\split@{\hbox to\wd\thr@@{}&\vbox{\moveleft\wd\thr@@\box9}}\fi
872: \else
873: \ifctagsplit@\gdef\split@{\vcenter{\box9}}\else
874: \gdef\split@{\box9}\fi
875: \fi\split@}
876: \def\outsplit@#1$${\align\insplit@#1\endalign$$}
877: \newdimen\multlinegap@
878: \multlinegap@1em
879: \newdimen\multlinetaggap@
880: \multlinetaggap@1em
881: \def\MultlineGap#1{\global\multlinegap@#1\relax}
882: \def\multlinegap#1{\RIfMIfI@\onlydmatherr@\multlinegap\else
883: \multlinegap@#1\relax\fi\else\onlydmatherr@\multlinegap\fi}
884: \def\nomultlinegap{\multlinegap{\z@}}
885: \def\multline{\RIfMIfI@
886: \DN@{\onlydmatherr@\multline}\else
887: \DN@{\multline@}\fi\else
888: \DN@{\onlydmatherr@\multline}\fi\next@}
889: \newif\iftagin@
890: \def\tagin@#1{\tagin@false\in@\tag{#1}\ifin@\tagin@true\fi}
891: \def\multline@#1$${\inany@true\vspace@\allowdisplaybreak@\displaybreak@
892: \tagin@{#1}\iftagsleft@\DN@{\multline@l#1$$}\else
893: \DN@{\multline@r#1$$}\fi\next@}
894: \newdimen\mwidth@
895: \def\rmmeasure@#1\endmultline{%
896: \def\shoveleft##1{##1}\def\shoveright##1{##1}% %1
897: \setbox@ne\vbox{\Let@\halign{\setboxz@h
898: {$\m@th\@lign\displaystyle{}##$}\global\mwidth@\wdz@
899: \crcr#1\crcr}}}
900: \newdimen\mlineht@
901: \newif\ifzerocr@
902: \newif\ifonecr@
903: \def\lmmeasure@#1\endmultline{\global\zerocr@true\global\onecr@false
904: \everycr{\noalign{\ifonecr@\global\onecr@false\fi
905: \ifzerocr@\global\zerocr@false\global\onecr@true\fi}}% %1
906: \def\shoveleft##1{##1}\def\shoveright##1{##1}%
907: \setbox@ne\vbox{\Let@\halign{\setboxz@h
908: {$\m@th\@lign\displaystyle{}##$}\ifonecr@\global\mwidth@\wdz@
909: \global\mlineht@\ht\z@\fi\crcr#1\crcr}}}
910: \newbox\mtagbox@
911: \newdimen\ltwidth@
912: \newdimen\rtwidth@
913: \def\multline@l#1$${\iftagin@\DN@{\lmultline@@#1$$}\else
914: \DN@{\setbox\mtagbox@\null\ltwidth@\z@\rtwidth@\z@
915: \lmultline@@@#1$$}\fi\next@}
916: \def\lmultline@@#1\endmultline\tag#2$${%
917: \setbox\mtagbox@\hbox{\maketag@#2\maketag@}% %1
918: \lmmeasure@#1\endmultline\dimen@\mwidth@\advance\dimen@\wd\mtagbox@
919: \advance\dimen@\multlinetaggap@ %2
920: \ifdim\dimen@>\displaywidth\ltwidth@\z@\else\ltwidth@\wd\mtagbox@\fi %3
921: \lmultline@@@#1\endmultline$$}
922: \def\lmultline@@@{\displ@y
923: \def\shoveright##1{##1\hfilneg\hskip\multlinegap@}%
924: \def\shoveleft##1{\setboxz@h{$\m@th\displaystyle{}##1$}%
925: \setbox@ne\hbox{$\m@th\displaystyle##1$}%
926: \hfilneg
927: \iftagin@
928: \ifdim\ltwidth@>\z@\hskip\ltwidth@\hskip\multlinetaggap@\fi
929: \else\hskip\multlinegap@\fi\hskip.5\wd@ne\hskip-.5\wdz@##1}% %1
930: \halign\bgroup\Let@\hbox to\displaywidth
931: {\strut@$\m@th\displaystyle\hfil{}##\hfil$}\crcr
932: \hfilneg %2
933: \iftagin@ %3
934: \ifdim\ltwidth@>\z@ %4
935: \box\mtagbox@\hskip\multlinetaggap@ %5
936: \else
937: \rlap{\vbox{\normalbaselines\hbox{\strut@\box\mtagbox@}%
938: \vbox to\mlineht@{}}}\fi %6
939: \else\hskip\multlinegap@\fi} %7
940: \def\multline@r#1$${\iftagin@\DN@{\rmultline@@#1$$}\else
941: \DN@{\setbox\mtagbox@\null\ltwidth@\z@\rtwidth@\z@
942: \rmultline@@@#1$$}\fi\next@}
943: \def\rmultline@@#1\endmultline\tag#2$${\ltwidth@\z@
944: \setbox\mtagbox@\hbox{\maketag@#2\maketag@}%
945: \rmmeasure@#1\endmultline\dimen@\mwidth@\advance\dimen@\wd\mtagbox@
946: \advance\dimen@\multlinetaggap@
947: \ifdim\dimen@>\displaywidth\rtwidth@\z@\else\rtwidth@\wd\mtagbox@\fi
948: \rmultline@@@#1\endmultline$$}
949: \def\rmultline@@@{\displ@y
950: \def\shoveright##1{##1\hfilneg\iftagin@\ifdim\rtwidth@>\z@
951: \hskip\rtwidth@\hskip\multlinetaggap@\fi\else\hskip\multlinegap@\fi}%
952: \def\shoveleft##1{\setboxz@h{$\m@th\displaystyle{}##1$}%
953: \setbox@ne\hbox{$\m@th\displaystyle##1$}%
954: \hfilneg\hskip\multlinegap@\hskip.5\wd@ne\hskip-.5\wdz@##1}%
955: \halign\bgroup\Let@\hbox to\displaywidth
956: {\strut@$\m@th\displaystyle\hfil{}##\hfil$}\crcr
957: \hfilneg\hskip\multlinegap@}
958: \def\endmultline{\iftagsleft@\expandafter\lendmultline@\else
959: \expandafter\rendmultline@\fi}
960: \def\lendmultline@{\hfilneg\hskip\multlinegap@\crcr\egroup}
961: \def\rendmultline@{\iftagin@ %1
962: \ifdim\rtwidth@>\z@ %2
963: \hskip\multlinetaggap@\box\mtagbox@ %3
964: \else\llap{\vtop{\normalbaselines\null\hbox{\strut@\box\mtagbox@}}}\fi %4
965: \else\hskip\multlinegap@\fi %5
966: \hfilneg\crcr\egroup}
967: \def\bmod{\mskip-\medmuskip\mkern5mu\mathbin{\fam\z@ mod}\penalty900
968: \mkern5mu\mskip-\medmuskip}
969: \def\pmod#1{\allowbreak\ifinner\mkern8mu\else\mkern18mu\fi
970: ({\fam\z@ mod}\,\,#1)}
971: \def\pod#1{\allowbreak\ifinner\mkern8mu\else\mkern18mu\fi(#1)}
972: \def\mod#1{\allowbreak\ifinner\mkern12mu\else\mkern18mu\fi{\fam\z@ mod}\,\,#1}
973: \message{continued fractions,}
974: \newcount\cfraccount@
975: \def\cfrac{\bgroup\bgroup\advance\cfraccount@\@ne\strut
976: \iffalse{\fi\def\\{\over\displaystyle}\iffalse}\fi}
977: \def\lcfrac{\bgroup\bgroup\advance\cfraccount@\@ne\strut
978: \iffalse{\fi\def\\{\hfill\over\displaystyle}\iffalse}\fi}
979: \def\rcfrac{\bgroup\bgroup\advance\cfraccount@\@ne\strut\hfill
980: \iffalse{\fi\def\\{\over\displaystyle}\iffalse}\fi}
981: \def\gloop@#1\repeat{\gdef\body{#1}\iterate}
982: \def\endcfrac{\gloop@\ifnum\cfraccount@>\z@\global\advance\cfraccount@\m@ne
983: \egroup\hskip-\nulldelimiterspace\egroup\repeat}
984: \message{compound symbols,}
985: \def\binrel@#1{\setboxz@h{\thinmuskip0mu
986: \medmuskip\m@ne mu\thickmuskip\@ne mu$#1\m@th$}%
987: \setbox@ne\hbox{\thinmuskip0mu\medmuskip\m@ne mu\thickmuskip
988: \@ne mu${}#1{}\m@th$}%
989: \setbox\tw@\hbox{\hskip\wd@ne\hskip-\wdz@}}
990: \def\overset#1\to#2{\binrel@{#2}\ifdim\wd\tw@<\z@
991: \mathbin{\mathop{\kern\z@#2}\limits^{#1}}\else\ifdim\wd\tw@>\z@
992: \mathrel{\mathop{\kern\z@#2}\limits^{#1}}\else
993: {\mathop{\kern\z@#2}\limits^{#1}}{}\fi\fi}
994: \def\underset#1\to#2{\binrel@{#2}\ifdim\wd\tw@<\z@
995: \mathbin{\mathop{\kern\z@#2}\limits_{#1}}\else\ifdim\wd\tw@>\z@
996: \mathrel{\mathop{\kern\z@#2}\limits_{#1}}\else
997: {\mathop{\kern\z@#2}\limits_{#1}}{}\fi\fi}
998: \def\oversetbrace#1\to#2{\overbrace{#2}^{#1}}
999: \def\undersetbrace#1\to#2{\underbrace{#2}_{#1}}
1000: \def\sideset#1\and#2\to#3{%
1001: \setbox@ne\hbox{$\dsize{\vphantom{#3}}#1{#3}\m@th$}%
1002: \setbox\tw@\hbox{$\dsize{#3}#2\m@th$}%
1003: \hskip\wd@ne\hskip-\wd\tw@\mathop{\hskip\wd\tw@\hskip-\wd@ne
1004: {\vphantom{#3}}#1{#3}#2}}
1005: \def\rightarrowfill@#1{\setboxz@h{$#1-\m@th$}\ht\z@\z@
1006: $#1\m@th\copy\z@\mkern-6mu\cleaders
1007: \hbox{$#1\mkern-2mu\box\z@\mkern-2mu$}\hfill
1008: \mkern-6mu\mathord\rightarrow$}
1009: \def\leftarrowfill@#1{\setboxz@h{$#1-\m@th$}\ht\z@\z@
1010: $#1\m@th\mathord\leftarrow\mkern-6mu\cleaders
1011: \hbox{$#1\mkern-2mu\copy\z@\mkern-2mu$}\hfill
1012: \mkern-6mu\box\z@$}
1013: \def\leftrightarrowfill@#1{\setboxz@h{$#1-\m@th$}\ht\z@\z@
1014: $#1\m@th\mathord\leftarrow\mkern-6mu\cleaders
1015: \hbox{$#1\mkern-2mu\box\z@\mkern-2mu$}\hfill
1016: \mkern-6mu\mathord\rightarrow$}
1017: \def\overrightarrow{\mathpalette\overrightarrow@}
1018: \def\overrightarrow@#1#2{\vbox{\ialign{##\crcr\rightarrowfill@#1\crcr
1019: \noalign{\kern-\ex@\nointerlineskip}$\m@th\hfil#1#2\hfil$\crcr}}}
1020: \let\overarrow\overrightarrow
1021: \def\overleftarrow{\mathpalette\overleftarrow@}
1022: \def\overleftarrow@#1#2{\vbox{\ialign{##\crcr\leftarrowfill@#1\crcr
1023: \noalign{\kern-\ex@\nointerlineskip}$\m@th\hfil#1#2\hfil$\crcr}}}
1024: \def\overleftrightarrow{\mathpalette\overleftrightarrow@}
1025: \def\overleftrightarrow@#1#2{\vbox{\ialign{##\crcr\leftrightarrowfill@#1\crcr
1026: \noalign{\kern-\ex@\nointerlineskip}$\m@th\hfil#1#2\hfil$\crcr}}}
1027: \def\underrightarrow{\mathpalette\underrightarrow@}
1028: \def\underrightarrow@#1#2{\vtop{\ialign{##\crcr$\m@th\hfil#1#2\hfil$\crcr
1029: \noalign{\nointerlineskip}\rightarrowfill@#1\crcr}}}
1030: \let\underarrow\underrightarrow
1031: \def\underleftarrow{\mathpalette\underleftarrow@}
1032: \def\underleftarrow@#1#2{\vtop{\ialign{##\crcr$\m@th\hfil#1#2\hfil$\crcr
1033: \noalign{\nointerlineskip}\leftarrowfill@#1\crcr}}}
1034: \def\underleftrightarrow{\mathpalette\underleftrightarrow@}
1035: \def\underleftrightarrow@#1#2{\vtop{\ialign{##\crcr$\m@th\hfil#1#2\hfil$\crcr
1036: \noalign{\nointerlineskip}\leftrightarrowfill@#1\crcr}}}
1037: \message{various kinds of dots,}
1038: \let\DOTSI\relax
1039: \let\DOTSB\relax
1040: \let\DOTSX\relax
1041: \newif\ifmath@
1042: {\uccode`7=`\\ \uccode`8=`m \uccode`9=`a \uccode`0=`t \uccode`!=`h
1043: \uppercase{\gdef\math@#1#2#3#4#5#6\math@{\global\math@false\ifx 7#1\ifx 8#2%
1044: \ifx 9#3\ifx 0#4\ifx !#5\xdef\meaning@{#6}\global\math@true\fi\fi\fi\fi\fi}}}
1045: \newif\ifmathch@
1046: {\uccode`7=`c \uccode`8=`h \uccode`9=`\"
1047: \uppercase{\gdef\mathch@#1#2#3#4#5#6\mathch@{\global\mathch@false
1048: \ifx 7#1\ifx 8#2\ifx 9#5\global\mathch@true\xdef\meaning@{9#6}\fi\fi\fi}}}
1049: \newcount\classnum@
1050: \def\getmathch@#1.#2\getmathch@{\classnum@#1 \divide\classnum@4096
1051: \ifcase\number\classnum@\or\or\gdef\thedots@{\dotsb@}\or
1052: \gdef\thedots@{\dotsb@}\fi}
1053: \newif\ifmathbin@
1054: {\uccode`4=`b \uccode`5=`i \uccode`6=`n
1055: \uppercase{\gdef\mathbin@#1#2#3{\relaxnext@
1056: \DNii@##1\mathbin@{\ifx\space@\next\global\mathbin@true\fi}%
1057: \global\mathbin@false\DN@##1\mathbin@{}%
1058: \ifx 4#1\ifx 5#2\ifx 6#3\DN@{\FN@\nextii@}\fi\fi\fi\next@}}}
1059: \newif\ifmathrel@
1060: {\uccode`4=`r \uccode`5=`e \uccode`6=`l
1061: \uppercase{\gdef\mathrel@#1#2#3{\relaxnext@
1062: \DNii@##1\mathrel@{\ifx\space@\next\global\mathrel@true\fi}%
1063: \global\mathrel@false\DN@##1\mathrel@{}%
1064: \ifx 4#1\ifx 5#2\ifx 6#3\DN@{\FN@\nextii@}\fi\fi\fi\next@}}}
1065: \newif\ifmacro@
1066: {\uccode`5=`m \uccode`6=`a \uccode`7=`c
1067: \uppercase{\gdef\macro@#1#2#3#4\macro@{\global\macro@false
1068: \ifx 5#1\ifx 6#2\ifx 7#3\global\macro@true
1069: \xdef\meaning@{\macro@@#4\macro@@}\fi\fi\fi}}}
1070: \def\macro@@#1->#2\macro@@{#2}
1071: \newif\ifDOTS@
1072: \newcount\DOTSCASE@
1073: {\uccode`6=`\\ \uccode`7=`D \uccode`8=`O \uccode`9=`T \uccode`0=`S
1074: \uppercase{\gdef\DOTS@#1#2#3#4#5{\global\DOTS@false\DN@##1\DOTS@{}%
1075: \ifx 6#1\ifx 7#2\ifx 8#3\ifx 9#4\ifx 0#5\let\next@\DOTS@@\fi\fi\fi\fi\fi
1076: \next@}}}
1077: {\uccode`3=`B \uccode`4=`I \uccode`5=`X
1078: \uppercase{\gdef\DOTS@@#1{\relaxnext@
1079: \DNii@##1\DOTS@{\ifx\space@\next\global\DOTS@true\fi}%
1080: \DN@{\FN@\nextii@}%
1081: \ifx 3#1\global\DOTSCASE@\z@\else
1082: \ifx 4#1\global\DOTSCASE@\@ne\else
1083: \ifx 5#1\global\DOTSCASE@\tw@\else\DN@##1\DOTS@{}%
1084: \fi\fi\fi\next@}}}
1085: \newif\ifnot@
1086: {\uccode`5=`\\ \uccode`6=`n \uccode`7=`o \uccode`8=`t
1087: \uppercase{\gdef\not@#1#2#3#4{\relaxnext@
1088: \DNii@##1\not@{\ifx\space@\next\global\not@true\fi}%
1089: \global\not@false\DN@##1\not@{}%
1090: \ifx 5#1\ifx 6#2\ifx 7#3\ifx 8#4\DN@{\FN@\nextii@}\fi\fi\fi
1091: \fi\next@}}}
1092: \newif\ifkeybin@
1093: \def\keybin@{\keybin@true
1094: \ifx\next+\else\ifx\next=\else\ifx\next<\else\ifx\next>\else\ifx\next-\else
1095: \ifx\next*\else\ifx\next:\else\keybin@false\fi\fi\fi\fi\fi\fi\fi}
1096: \def\dots{\RIfM@\expandafter\mdots@\else\expandafter\tdots@\fi}
1097: \def\tdots@{\unskip\relaxnext@
1098: \DN@{$\m@th\mathinner{\ldotp\ldotp\ldotp}\,
1099: \ifx\next,\,$\else\ifx\next.\,$\else\ifx\next;\,$\else\ifx\next:\,$\else
1100: \ifx\next?\,$\else\ifx\next!\,$\else$ \fi\fi\fi\fi\fi\fi}%
1101: \ \FN@\next@}
1102: \def\mdots@{\FN@\mdots@@}
1103: \def\mdots@@{\gdef\thedots@{\dotso@}% %1
1104: \ifx\next\boldkey\gdef\thedots@\boldkey{\boldkeydots@}\else %2
1105: \ifx\next\boldsymbol\gdef\thedots@\boldsymbol{\boldsymboldots@}\else %3
1106: \ifx,\next\gdef\thedots@{\dotsc}% %4
1107: \else\ifx\not\next\gdef\thedots@{\dotsb@}% %5
1108: \else\keybin@
1109: \ifkeybin@\gdef\thedots@{\dotsb@}% %6
1110: \else\xdef\meaning@{\meaning\next..........}\xdef\meaning@@{\meaning@}% %7
1111: \expandafter\math@\meaning@\math@
1112: \ifmath@
1113: \expandafter\mathch@\meaning@\mathch@
1114: \ifmathch@\expandafter\getmathch@\meaning@\getmathch@\fi %8
1115: \else\expandafter\macro@\meaning@@\macro@ %9
1116: \ifmacro@ %10
1117: \expandafter\not@\meaning@\not@\ifnot@\gdef\thedots@{\dotsb@}% %11
1118: \else\expandafter\DOTS@\meaning@\DOTS@
1119: \ifDOTS@
1120: \ifcase\number\DOTSCASE@\gdef\thedots@{\dotsb@}%
1121: \or\gdef\thedots@{\dotsi}\else\fi %12
1122: \else\expandafter\math@\meaning@\math@ %13
1123: \ifmath@\expandafter\mathbin@\meaning@\mathbin@
1124: \ifmathbin@\gdef\thedots@{\dotsb@}% %14
1125: \else\expandafter\mathrel@\meaning@\mathrel@
1126: \ifmathrel@\gdef\thedots@{\dotsb@}% %15
1127: \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
1128: \thedots@}
1129: \def\plainldots@{\mathinner{\ldotp\ldotp\ldotp}}
1130: \def\plaincdots@{\mathinner{\cdotp\cdotp\cdotp}}
1131: \def\dotsi{\!\plaincdots@}
1132: \let\dotsb@\plaincdots@
1133: \newif\ifextra@
1134: \newif\ifrightdelim@
1135: \def\rightdelim@{\global\rightdelim@true %1
1136: \ifx\next)\else %2
1137: \ifx\next]\else
1138: \ifx\next\rbrack\else
1139: \ifx\next\}\else
1140: \ifx\next\rbrace\else
1141: \ifx\next\rangle\else
1142: \ifx\next\rceil\else
1143: \ifx\next\rfloor\else
1144: \ifx\next\rgroup\else
1145: \ifx\next\rmoustache\else
1146: \ifx\next\right\else
1147: \ifx\next\bigr\else
1148: \ifx\next\biggr\else
1149: \ifx\next\Bigr\else %3
1150: \ifx\next\Biggr\else\global\rightdelim@false
1151: \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}
1152: \def\extra@{%
1153: \global\extra@false\rightdelim@\ifrightdelim@\global\extra@true %1
1154: \else\ifx\next$\global\extra@true %2
1155: \else\xdef\meaning@{\meaning\next..........}% %3
1156: \expandafter\macro@\meaning@\macro@\ifmacro@ %4
1157: \expandafter\DOTS@\meaning@\DOTS@
1158: \ifDOTS@
1159: \ifnum\DOTSCASE@=\tw@\global\extra@true %5
1160: \fi\fi\fi\fi\fi}
1161: \newif\ifbold@
1162: \def\dotso@{\relaxnext@
1163: \ifbold@
1164: \let\next\delayed@
1165: \DNii@{\extra@\plainldots@\ifextra@\,\fi}%
1166: \else
1167: \DNii@{\DN@{\extra@\plainldots@\ifextra@\,\fi}\FN@\next@}%
1168: \fi
1169: \nextii@}
1170: \def\extrap@#1{%
1171: \ifx\next,\DN@{#1\,}\else
1172: \ifx\next;\DN@{#1\,}\else
1173: \ifx\next.\DN@{#1\,}\else\extra@
1174: \ifextra@\DN@{#1\,}\else
1175: \let\next@#1\fi\fi\fi\fi\next@}
1176: \def\ldots{\DN@{\extrap@\plainldots@}%
1177: \FN@\next@}
1178: \def\cdots{\DN@{\extrap@\plaincdots@}%
1179: \FN@\next@}
1180: \let\dotso\ldots
1181: \let\dotsb\cdots
1182: \let\dotsm\dotsb
1183: \def\dotsc{\relaxnext@
1184: \DN@{\ifx\next;\plainldots@\,\else
1185: \ifx\next.\plainldots@\,\else\extra@\plainldots@
1186: \ifextra@\,\fi\fi\fi}%
1187: \FN@\next@}
1188: \def\cdot{\mathchar"2201 }
1189: \def\longrightarrow{\DOTSB\relbar\joinrel\rightarrow}
1190: \def\Longrightarrow{\DOTSB\Relbar\joinrel\Rightarrow}
1191: \def\longleftarrow{\DOTSB\leftarrow\joinrel\relbar}
1192: \def\Longleftarrow{\DOTSB\Leftarrow\joinrel\Relbar}
1193: \def\longleftrightarrow{\DOTSB\leftarrow\joinrel\rightarrow}
1194: \def\Longleftrightarrow{\DOTSB\Leftarrow\joinrel\Rightarrow}
1195: \def\mapsto{\DOTSB\mapstochar\rightarrow}
1196: \def\longmapsto{\DOTSB\mapstochar\longrightarrow}
1197: \def\hookrightarrow{\DOTSB\lhook\joinrel\rightarrow}
1198: \def\hookleftarrow{\DOTSB\leftarrow\joinrel\rhook}
1199: \def\doteq{\DOTSB\buildrel\textstyle.\over=}
1200: \def\iff{\DOTSB\;\Longleftrightarrow\;}
1201: \message{special superscripts,}
1202: \def\dddot#1{{\mathop{#1}\limits^{\vbox to-1.4\ex@{\kern-\tw@\ex@
1203: \hbox{\rm...}\vss}}}}
1204: \def\ddddot#1{{\mathop{#1}\limits^{\vbox to-1.4\ex@{\kern-\tw@\ex@
1205: \hbox{\rm....}\vss}}}}
1206: \def\sphat{^{\mathchoice{}{}%
1207: {\,\,\botsmash{\hbox{\lower4\ex@\hbox{$\m@th\widehat{\null}$}}}}%
1208: {\,\botsmash{\hbox{\lower3\ex@\hbox{$\m@th\hat{\null}$}}}}}}
1209: \def\spcheck{^\vee}
1210: \def\sptilde{^\sim}
1211: \def\spacute{^{\!\botsmash{\hbox{\lower\@ne ex\hbox{\'{}}}}}}
1212: \def\spgrave{^{\mathchoice{}{}{}{\!}%
1213: \botsmash{\hbox{\lower\@ne ex\hbox{\`{}}}}}}
1214: \def\spdot{^{\hbox{\raise\ex@\hbox{\rm.}}}}
1215: \def\spddot{^{\hbox{\raise\ex@\hbox{\rm..}}}}
1216: \def\spdddot{^{\hbox{\raise\ex@\hbox{\rm...}}}}
1217: \def\spddddot{^{\hbox{\raise\ex@\hbox{\rm....}}}}
1218: \def\spbreve{^{\!\botsmash{\hbox{\lower4\ex@\hbox{\u{}}}}}}
1219: \def\spbar{^-}
1220: \def\spvec{^\rightarrow}
1221: \message{\string\text,}
1222: \def\textonlyfont@#1#2{\def#1{\RIfM@
1223: \Err@{Use \string#1\space only in text}\else#2\fi}}
1224: \textonlyfont@\rm\tenrm
1225: \textonlyfont@\it\tenit
1226: \textonlyfont@\sl\tensl
1227: \textonlyfont@\bf\tenbf
1228: \def\oldnos#1{\RIfM@{\mathcode`\,="013B \fam\@ne#1}\else
1229: \leavevmode\hbox{$\m@th\mathcode`\,="013B \fam\@ne#1$}\fi}
1230: \def\text{\RIfM@\expandafter\text@\else\expandafter\text@@\fi}
1231: \def\text@@#1{\leavevmode\hbox{#1}}
1232: \def\mathhexbox@#1#2#3{\text{$\m@th\mathchar"#1#2#3$}}
1233: \def\dag{{\mathhexbox@279}}
1234: \def\ddag{{\mathhexbox@27A}}
1235: \def\S{{\mathhexbox@278}}
1236: \def\P{{\mathhexbox@27B}}
1237: \newif\iffirstchoice@
1238: \firstchoice@true
1239: \def\text@#1{\mathchoice
1240: {\hbox{\everymath{\displaystyle}\def\textfonti{\the\textfont\@ne}%
1241: \def\textfontii{\the\textfont\tw@}\textdef@@ T#1}}
1242: {\hbox{\firstchoice@false
1243: \everymath{\textstyle}\def\textfonti{\the\textfont\@ne}%
1244: \def\textfontii{\the\textfont\tw@}\textdef@@ T#1}}
1245: {\hbox{\firstchoice@false
1246: \everymath{\scriptstyle}\def\textfonti{\the\scriptfont\@ne}%
1247: \def\textfontii{\the\scriptfont\tw@}\textdef@@ S\rm#1}}
1248: {\hbox{\firstchoice@false
1249: \everymath{\scriptscriptstyle}\def\textfonti
1250: {\the\scriptscriptfont\@ne}%
1251: \def\textfontii{\the\scriptscriptfont\tw@}\textdef@@ s\rm#1}}}
1252: \def\textdef@@#1{\textdef@#1\rm\textdef@#1\bf\textdef@#1\sl\textdef@#1\it}
1253: \def\rmfam{0}
1254: \def\textdef@#1#2{%
1255: \DN@{\csname\expandafter\eat@\string#2fam\endcsname}%
1256: \if S#1\edef#2{\the\scriptfont\next@\relax}%
1257: \else\if s#1\edef#2{\the\scriptscriptfont\next@\relax}%
1258: \else\edef#2{\the\textfont\next@\relax}\fi\fi}
1259: \scriptfont\itfam\tenit \scriptscriptfont\itfam\tenit
1260: \scriptfont\slfam\tensl \scriptscriptfont\slfam\tensl
1261: \newif\iftopfolded@
1262: \newif\ifbotfolded@
1263: \def\topfoldedtext{\topfolded@true\botfolded@false\foldedtext@}
1264: \def\botfoldedtext{\botfolded@true\topfolded@false\foldedtext@}
1265: \def\foldedtext{\topfolded@false\botfolded@false\foldedtext@}
1266: \Invalid@\foldedwidth
1267: \def\foldedtext@{\relaxnext@
1268: \DN@{\ifx\next\foldedwidth\let\next@\nextii@\else
1269: \DN@{\nextii@\foldedwidth{.3\hsize}}\fi\next@}%
1270: \DNii@\foldedwidth##1##2{\setbox\z@\vbox
1271: {\normalbaselines\hsize##1\relax
1272: \tolerance1600 \noindent\ignorespaces##2}\ifbotfolded@\boxz@\else
1273: \iftopfolded@\vtop{\unvbox\z@}\else\vcenter{\boxz@}\fi\fi}%
1274: \FN@\next@}
1275: \message{math font commands,}
1276: \def\bold{\RIfM@\expandafter\bold@\else
1277: \expandafter\nonmatherr@\expandafter\bold\fi}
1278: \def\bold@#1{{\bold@@{#1}}}
1279: \def\bold@@#1{\fam\bffam\relax#1}
1280: \def\slanted{\RIfM@\expandafter\slanted@\else
1281: \expandafter\nonmatherr@\expandafter\slanted\fi}
1282: \def\slanted@#1{{\slanted@@{#1}}}
1283: \def\slanted@@#1{\fam\slfam\relax#1}
1284: \def\roman{\RIfM@\expandafter\roman@\else
1285: \expandafter\nonmatherr@\expandafter\roman\fi}
1286: \def\roman@#1{{\roman@@{#1}}}
1287: \def\roman@@#1{\fam\rmfam\relax#1}
1288: \def\italic{\RIfM@\expandafter\italic@\else
1289: \expandafter\nonmatherr@\expandafter\italic\fi}
1290: \def\italic@#1{{\italic@@{#1}}}
1291: \def\italic@@#1{\fam\itfam\relax#1}
1292: \def\Cal{\RIfM@\expandafter\Cal@\else
1293: \expandafter\nonmatherr@\expandafter\Cal\fi}
1294: \def\Cal@#1{{\Cal@@{#1}}}
1295: \def\Cal@@#1{\noaccents@\fam\tw@#1}
1296: \mathchardef\Gamma="0000
1297: \mathchardef\Delta="0001
1298: \mathchardef\Theta="0002
1299: \mathchardef\Lambda="0003
1300: \mathchardef\Xi="0004
1301: \mathchardef\Pi="0005
1302: \mathchardef\Sigma="0006
1303: \mathchardef\Upsilon="0007
1304: \mathchardef\Phi="0008
1305: \mathchardef\Psi="0009
1306: \mathchardef\Omega="000A
1307: \mathchardef\varGamma="0100
1308: \mathchardef\varDelta="0101
1309: \mathchardef\varTheta="0102
1310: \mathchardef\varLambda="0103
1311: \mathchardef\varXi="0104
1312: \mathchardef\varPi="0105
1313: \mathchardef\varSigma="0106
1314: \mathchardef\varUpsilon="0107
1315: \mathchardef\varPhi="0108
1316: \mathchardef\varPsi="0109
1317: \mathchardef\varOmega="010A
1318: \let\alloc@@\alloc@
1319: \def\hexnumber@#1{\ifcase#1 0\or 1\or 2\or 3\or 4\or 5\or 6\or 7\or 8\or
1320: 9\or A\or B\or C\or D\or E\or F\fi}
1321: \def\loadmsam{%
1322: \font@\tenmsa=msam10
1323: \font@\sevenmsa=msam7
1324: \font@\fivemsa=msam5
1325: \alloc@@8\fam\chardef\sixt@@n\msafam
1326: \textfont\msafam=\tenmsa
1327: \scriptfont\msafam=\sevenmsa
1328: \scriptscriptfont\msafam=\fivemsa
1329: \edef\next{\hexnumber@\msafam}%
1330: \mathchardef\dabar@"0\next39
1331: \edef\dashrightarrow{\mathrel{\dabar@\dabar@\mathchar"0\next4B}}%
1332: \edef\dashleftarrow{\mathrel{\mathchar"0\next4C\dabar@\dabar@}}%
1333: \let\dasharrow\dashrightarrow
1334: \edef\ulcorner{\delimiter"4\next70\next70 }%
1335: \edef\urcorner{\delimiter"5\next71\next71 }%
1336: \edef\llcorner{\delimiter"4\next78\next78 }%
1337: \edef\lrcorner{\delimiter"5\next79\next79 }%
1338: \edef\yen{{\noexpand\mathhexbox@\next55}}%
1339: \edef\checkmark{{\noexpand\mathhexbox@\next58}}%
1340: \edef\circledR{{\noexpand\mathhexbox@\next72}}%
1341: \edef\maltese{{\noexpand\mathhexbox@\next7A}}%
1342: \global\let\loadmsam\empty}%
1343: \def\loadmsbm{%
1344: \font@\tenmsb=msbm10 \font@\sevenmsb=msbm7 \font@\fivemsb=msbm5
1345: \alloc@@8\fam\chardef\sixt@@n\msbfam
1346: \textfont\msbfam=\tenmsb
1347: \scriptfont\msbfam=\sevenmsb \scriptscriptfont\msbfam=\fivemsb
1348: \global\let\loadmsbm\empty
1349: }
1350: \def\widehat#1{\ifx\undefined\msbfam \DN@{362}%
1351: \else \setboxz@h{$\m@th#1$}%
1352: \edef\next@{\ifdim\wdz@>\tw@ em%
1353: \hexnumber@\msbfam 5B%
1354: \else 362\fi}\fi
1355: \mathaccent"0\next@{#1}}
1356: \def\widetilde#1{\ifx\undefined\msbfam \DN@{365}%
1357: \else \setboxz@h{$\m@th#1$}%
1358: \edef\next@{\ifdim\wdz@>\tw@ em%
1359: \hexnumber@\msbfam 5D%
1360: \else 365\fi}\fi
1361: \mathaccent"0\next@{#1}}
1362: \message{\string\newsymbol,}
1363: \def\newsymbol#1#2#3#4#5{\define#1{}%
1364: \count@#2\relax \advance\count@\m@ne % to push case 0 to the \else clause
1365: \ifcase\count@
1366: \ifx\undefined\msafam\loadmsam\fi \let\next@\msafam
1367: \or \ifx\undefined\msbfam\loadmsbm\fi \let\next@\msbfam
1368: \else \Err@{\Invalid@@\string\newsymbol}\let\next@\tw@\fi
1369: \mathchardef#1="#3\hexnumber@\next@#4#5\space}
1370: \def\UseAMSsymbols{\loadmsam\loadmsbm \input amssym.tex }
1371: \def\Bbb{\RIfM@\expandafter\Bbb@\else
1372: \expandafter\nonmatherr@\expandafter\Bbb\fi}
1373: \def\Bbb@#1{{\Bbb@@{#1}}}
1374: \def\Bbb@@#1{\noaccents@\fam\msbfam\relax#1}
1375: \message{bold Greek and bold symbols,}
1376: \def\loadbold{%
1377: \font@\tencmmib=cmmib10 \font@\sevencmmib=cmmib7 \font@\fivecmmib=cmmib5
1378: \skewchar\tencmmib'177 \skewchar\sevencmmib'177 \skewchar\fivecmmib'177
1379: \alloc@@8\fam\chardef\sixt@@n\cmmibfam
1380: \textfont\cmmibfam\tencmmib
1381: \scriptfont\cmmibfam\sevencmmib \scriptscriptfont\cmmibfam\fivecmmib
1382: \font@\tencmbsy=cmbsy10 \font@\sevencmbsy=cmbsy7 \font@\fivecmbsy=cmbsy5
1383: \skewchar\tencmbsy'60 \skewchar\sevencmbsy'60 \skewchar\fivecmbsy'60
1384: \alloc@@8\fam\chardef\sixt@@n\cmbsyfam
1385: \textfont\cmbsyfam\tencmbsy
1386: \scriptfont\cmbsyfam\sevencmbsy \scriptscriptfont\cmbsyfam\fivecmbsy
1387: \let\loadbold\empty
1388: }
1389: \def\boldnotloaded#1{\Err@{\ifcase#1\or First\else Second\fi
1390: bold symbol font not loaded}}
1391: \def\mathchari@#1#2#3{\ifx\undefined\cmmibfam
1392: \boldnotloaded@\@ne
1393: \else\mathchar"#1\hexnumber@\cmmibfam#2#3\space \fi}
1394: \def\mathcharii@#1#2#3{\ifx\undefined\cmbsyfam
1395: \boldnotloaded\tw@
1396: \else \mathchar"#1\hexnumber@\cmbsyfam#2#3\space\fi}
1397: \edef\bffam@{\hexnumber@\bffam}
1398: \def\boldkey#1{\ifcat\noexpand#1A%
1399: \ifx\undefined\cmmibfam \boldnotloaded\@ne
1400: \else {\fam\cmmibfam#1}\fi
1401: \else
1402: \ifx#1!\mathchar"5\bffam@21 \else
1403: \ifx#1(\mathchar"4\bffam@28 \else\ifx#1)\mathchar"5\bffam@29 \else
1404: \ifx#1+\mathchar"2\bffam@2B \else\ifx#1:\mathchar"3\bffam@3A \else
1405: \ifx#1;\mathchar"6\bffam@3B \else\ifx#1=\mathchar"3\bffam@3D \else
1406: \ifx#1?\mathchar"5\bffam@3F \else\ifx#1[\mathchar"4\bffam@5B \else
1407: \ifx#1]\mathchar"5\bffam@5D \else
1408: \ifx#1,\mathchari@63B \else
1409: \ifx#1-\mathcharii@200 \else
1410: \ifx#1.\mathchari@03A \else
1411: \ifx#1/\mathchari@03D \else
1412: \ifx#1<\mathchari@33C \else
1413: \ifx#1>\mathchari@33E \else
1414: \ifx#1*\mathcharii@203 \else
1415: \ifx#1|\mathcharii@06A \else
1416: \ifx#10\bold0\else\ifx#11\bold1\else\ifx#12\bold2\else\ifx#13\bold3\else
1417: \ifx#14\bold4\else\ifx#15\bold5\else\ifx#16\bold6\else\ifx#17\bold7\else
1418: \ifx#18\bold8\else\ifx#19\bold9\else
1419: \Err@{\string\boldkey\space can't be used with #1}%
1420: \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
1421: \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}
1422: \def\boldsymbol#1{%
1423: \DN@{\Err@{You can't use \string\boldsymbol\space with \string#1}#1}%
1424: \ifcat\noexpand#1A%
1425: \let\next@\relax
1426: \ifx\undefined\cmmibfam \boldnotloaded\@ne
1427: \else {\fam\cmmibfam#1}\fi
1428: \else
1429: \xdef\meaning@{\meaning#1.........}%
1430: \expandafter\math@\meaning@\math@
1431: \ifmath@
1432: \expandafter\mathch@\meaning@\mathch@
1433: \ifmathch@
1434: \expandafter\boldsymbol@@\meaning@\boldsymbol@@
1435: \fi
1436: \else
1437: \expandafter\macro@\meaning@\macro@
1438: \expandafter\delim@\meaning@\delim@
1439: \ifdelim@
1440: \expandafter\delim@@\meaning@\delim@@
1441: \else
1442: \boldsymbol@{#1}%
1443: \fi
1444: \fi
1445: \fi
1446: \next@}
1447: \def\mathhexboxii@#1#2{\ifx\undefined\cmbsyfam
1448: \boldnotloaded\tw@
1449: \else \mathhexbox@{\hexnumber@\cmbsyfam}{#1}{#2}\fi}
1450: \def\boldsymbol@#1{\let\next@\relax\let\next#1%
1451: \ifx\next\cdot\mathcharii@201 \else
1452: \ifx\next\prime{{\null\mathcharii@030 \null}}\else
1453: \ifx\next\lbrack\mathchar"4\bffam@5B \else
1454: \ifx\next\rbrack\mathchar"5\bffam@5D \else
1455: \ifx\next\{\mathcharii@466 \else
1456: \ifx\next\lbrace\mathcharii@466 \else
1457: \ifx\next\}\mathcharii@567 \else
1458: \ifx\next\rbrace\mathcharii@567 \else
1459: \ifx\next\surd{{\mathcharii@170}}\else
1460: \ifx\next\S{{\mathhexboxii@78}}\else
1461: \ifx\next\P{{\mathhexboxii@7B}}\else
1462: \ifx\next\dag{{\mathhexboxii@79}}\else
1463: \ifx\next\ddag{{\mathhexboxii@7A}}\else
1464: \DN@{\Err@{You can't use \string\boldsymbol\space with \string#1}#1}%
1465: \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}
1466: \def\boldsymbol@@#1.#2\boldsymbol@@{\classnum@#1 \count@@@\classnum@ %1
1467: \divide\classnum@4096 \count@\classnum@ %2
1468: \multiply\count@4096 \advance\count@@@-\count@ \count@@\count@@@ %3
1469: \divide\count@@@\@cclvi \count@\count@@ %4
1470: \multiply\count@@@\@cclvi \advance\count@@-\count@@@ %5
1471: \divide\count@@@\@cclvi %6
1472: \multiply\classnum@4096 \advance\classnum@\count@@ %7
1473: \ifnum\count@@@=\z@ %8
1474: \count@"\bffam@ \multiply\count@\@cclvi
1475: \advance\classnum@\count@
1476: \DN@{\mathchar\number\classnum@}%
1477: \else
1478: \ifnum\count@@@=\@ne %9
1479: \ifx\undefined\cmmibfam \DN@{\boldnotloaded\@ne}%
1480: \else \count@\cmmibfam \multiply\count@\@cclvi
1481: \advance\classnum@\count@
1482: \DN@{\mathchar\number\classnum@}\fi
1483: \else
1484: \ifnum\count@@@=\tw@ %10
1485: \ifx\undefined\cmbsyfam
1486: \DN@{\boldnotloaded\tw@}%
1487: \else
1488: \count@\cmbsyfam \multiply\count@\@cclvi
1489: \advance\classnum@\count@
1490: \DN@{\mathchar\number\classnum@}%
1491: \fi
1492: \fi
1493: \fi
1494: \fi}
1495: \newif\ifdelim@
1496: \newcount\delimcount@
1497: {\uccode`6=`\\ \uccode`7=`d \uccode`8=`e \uccode`9=`l
1498: \uppercase{\gdef\delim@#1#2#3#4#5\delim@
1499: {\delim@false\ifx 6#1\ifx 7#2\ifx 8#3\ifx 9#4\delim@true
1500: \xdef\meaning@{#5}\fi\fi\fi\fi}}}
1501: \def\delim@@#1"#2#3#4#5#6\delim@@{\if#32%
1502: \let\next@\relax
1503: \ifx\undefined\cmbsyfam \boldnotloaded\@ne
1504: \else \mathcharii@#2#4#5\space \fi\fi}
1505: \def\vert{\delimiter"026A30C }
1506: \def\Vert{\delimiter"026B30D }
1507: \let\|\Vert
1508: \def\backslash{\delimiter"026E30F }
1509: \def\boldkeydots@#1{\bold@true\let\next=#1\let\delayed@=#1\mdots@@
1510: \boldkey#1\bold@false} % = required!
1511: \def\boldsymboldots@#1{\bold@true\let\next#1\let\delayed@#1\mdots@@
1512: \boldsymbol#1\bold@false}
1513: \message{Euler fonts,}
1514: \def\loadeufm{\loadmathfont{eufm}}
1515: \def\loadeufb{\loadmathfont{eufb}}
1516: \def\loadeusm{\loadmathfont{eusm}}
1517: \def\loadeusb{\loadmathfont{eusb}}
1518: \def\loadeurm{\loadmathfont{eurm}}
1519: \def\loadeurb{\loadmathfont{eurb}}
1520: \def\frak{\mathfont@\frak}
1521: \def\frakfam{\eufmfam}
1522: \let\goth\frak
1523: \def\loadmathfont#1{%
1524: \expandafter\font@\csname ten#1\endcsname=#110
1525: \expandafter\font@\csname seven#1\endcsname=#17
1526: \expandafter\font@\csname five#1\endcsname=#15
1527: \edef\next{\noexpand\alloc@@8\fam\chardef\sixt@@n
1528: \expandafter\noexpand\csname#1fam\endcsname}%
1529: \next
1530: \textfont\csname#1fam\endcsname \csname ten#1\endcsname
1531: \scriptfont\csname#1fam\endcsname \csname seven#1\endcsname
1532: \scriptscriptfont\csname#1fam\endcsname \csname five#1\endcsname
1533: \expandafter\def\csname #1\expandafter\endcsname\expandafter{%
1534: \expandafter\mathfont@\csname#1\endcsname}%
1535: \expandafter\gdef\csname load#1\endcsname{}%
1536: }
1537: \def\mathfont@#1{\RIfM@\expandafter\mathfont@@\expandafter#1\else
1538: \expandafter\nonmatherr@\expandafter#1\fi}
1539: \def\mathfont@@#1#2{{\mathfont@@@#1{#2}}}
1540: \def\mathfont@@@#1#2{\noaccents@
1541: \fam\csname\expandafter\eat@\string#1fam\endcsname
1542: \relax#2}
1543: \message{math accents,}
1544: \def\accentclass@{7}
1545: \def\noaccents@{\def\accentclass@{0}}
1546: \def\makeacc@#1#2{\def#1{\mathaccent"\accentclass@#2 }}
1547: \makeacc@\hat{05E}
1548: \makeacc@\check{014}
1549: \makeacc@\tilde{07E}
1550: \makeacc@\acute{013}
1551: \makeacc@\grave{012}
1552: \makeacc@\dot{05F}
1553: \makeacc@\ddot{07F}
1554: \makeacc@\breve{015}
1555: \makeacc@\bar{016}
1556: \def\vec{\mathaccent"017E }
1557: \newcount\skewcharcount@
1558: \newcount\familycount@
1559: \def\theskewchar@{\familycount@\@ne
1560: \global\skewcharcount@\the\skewchar\textfont\@ne %1
1561: \ifnum\fam>\m@ne\ifnum\fam<16
1562: \global\familycount@\the\fam\relax
1563: \global\skewcharcount@\the\skewchar\textfont\the\fam\relax\fi\fi %2
1564: \ifnum\skewcharcount@>\m@ne
1565: \ifnum\skewcharcount@<128
1566: \multiply\familycount@256
1567: \global\advance\skewcharcount@\familycount@
1568: \global\advance\skewcharcount@28672
1569: \mathchar\skewcharcount@\else
1570: \global\skewcharcount@\m@ne\fi\else
1571: \global\skewcharcount@\m@ne\fi} %3
1572: \newcount\pointcount@
1573: \def\getpoints@#1.#2\getpoints@{\pointcount@#1 }
1574: \newdimen\accentdimen@
1575: \newcount\accentmu@
1576: \def\dimentomu@{\multiply\accentdimen@ 100
1577: \expandafter\getpoints@\the\accentdimen@\getpoints@
1578: \multiply\pointcount@18
1579: \divide\pointcount@\@m
1580: \global\accentmu@\pointcount@}
1581: \def\Makeacc@#1#2{\def#1{\RIfM@\DN@{\mathaccent@
1582: {"\accentclass@#2 }}\else\DN@{\nonmatherr@{#1}}\fi\next@}}
1583: \def\unbracefonts@{\let\Cal@\Cal@@\let\roman@\roman@@\let\bold@\bold@@
1584: \let\slanted@\slanted@@}
1585: \def\mathaccent@#1#2{\ifnum\fam=\m@ne\xdef\thefam@{1}\else
1586: \xdef\thefam@{\the\fam}\fi %1
1587: \accentdimen@\z@ %2
1588: \setboxz@h{\unbracefonts@$\m@th\fam\thefam@\relax#2$}% %3
1589: \ifdim\accentdimen@=\z@\DN@{\mathaccent#1{#2}}% %4
1590: \setbox@ne\hbox{\unbracefonts@$\m@th\fam\thefam@\relax#2\theskewchar@$}% %5a
1591: \setbox\tw@\hbox{$\m@th\ifnum\skewcharcount@=\m@ne\else
1592: \mathchar\skewcharcount@\fi$}% %5b
1593: \global\accentdimen@\wd@ne\global\advance\accentdimen@-\wdz@
1594: \global\advance\accentdimen@-\wd\tw@ %5c
1595: \global\multiply\accentdimen@\tw@
1596: \dimentomu@\global\advance\accentmu@\@ne %5d
1597: \else\DN@{{\mathaccent#1{#2\mkern\accentmu@ mu}%
1598: \mkern-\accentmu@ mu}{}}\fi %6
1599: \next@}\Makeacc@\Hat{05E}
1600: \Makeacc@\Check{014}
1601: \Makeacc@\Tilde{07E}
1602: \Makeacc@\Acute{013}
1603: \Makeacc@\Grave{012}
1604: \Makeacc@\Dot{05F}
1605: \Makeacc@\Ddot{07F}
1606: \Makeacc@\Breve{015}
1607: \Makeacc@\Bar{016}
1608: \def\Vec{\RIfM@\DN@{\mathaccent@{"017E }}\else
1609: \DN@{\nonmatherr@\Vec}\fi\next@}
1610: \def\accentedsymbol#1#2{\csname newbox\expandafter\endcsname
1611: \csname\expandafter\eat@\string#1@box\endcsname
1612: \expandafter\setbox\csname\expandafter\eat@
1613: \string#1@box\endcsname\hbox{$\m@th#2$}\define
1614: #1{\copy\csname\expandafter\eat@\string#1@box\endcsname{}}}
1615: \message{roots,}
1616: \def\sqrt#1{\radical"270370 {#1}}
1617: \let\underline@\underline
1618: \let\overline@\overline
1619: \def\underline#1{\underline@{#1}}
1620: \def\overline#1{\overline@{#1}}
1621: \Invalid@\leftroot
1622: \Invalid@\uproot
1623: \newcount\uproot@
1624: \newcount\leftroot@
1625: \def\root{\relaxnext@
1626: \DN@{\ifx\next\uproot\let\next@\nextii@\else
1627: \ifx\next\leftroot\let\next@\nextiii@\else
1628: \let\next@\plainroot@\fi\fi\next@}%
1629: \DNii@\uproot##1{\uproot@##1\relax\FN@\nextiv@}%
1630: \def\nextiv@{\ifx\next\space@\DN@. {\FN@\nextv@}\else
1631: \DN@.{\FN@\nextv@}\fi\next@.}%
1632: \def\nextv@{\ifx\next\leftroot\let\next@\nextvi@\else
1633: \let\next@\plainroot@\fi\next@}%
1634: \def\nextvi@\leftroot##1{\leftroot@##1\relax\plainroot@}%
1635: \def\nextiii@\leftroot##1{\leftroot@##1\relax\FN@\nextvii@}%
1636: \def\nextvii@{\ifx\next\space@
1637: \DN@. {\FN@\nextviii@}\else
1638: \DN@.{\FN@\nextviii@}\fi\next@.}%
1639: \def\nextviii@{\ifx\next\uproot\let\next@\nextix@\else
1640: \let\next@\plainroot@\fi\next@}%
1641: \def\nextix@\uproot##1{\uproot@##1\relax\plainroot@}%
1642: \bgroup\uproot@\z@\leftroot@\z@\FN@\next@}
1643: \def\plainroot@#1\of#2{\setbox\rootbox\hbox{$\m@th\scriptscriptstyle{#1}$}%
1644: \mathchoice{\r@@t\displaystyle{#2}}{\r@@t\textstyle{#2}}
1645: {\r@@t\scriptstyle{#2}}{\r@@t\scriptscriptstyle{#2}}\egroup}
1646: \def\r@@t#1#2{\setboxz@h{$\m@th#1\sqrt{#2}$}%
1647: \dimen@\ht\z@\advance\dimen@-\dp\z@
1648: \setbox@ne\hbox{$\m@th#1\mskip\uproot@ mu$}\advance\dimen@ 1.667\wd@ne
1649: \mkern-\leftroot@ mu\mkern5mu\raise.6\dimen@\copy\rootbox
1650: \mkern-10mu\mkern\leftroot@ mu\boxz@}
1651: \def\boxed#1{\setboxz@h{$\m@th\displaystyle{#1}$}\dimen@.4\ex@
1652: \advance\dimen@3\ex@\advance\dimen@\dp\z@
1653: \hbox{\lower\dimen@\hbox{%
1654: \vbox{\hrule height.4\ex@
1655: \hbox{\vrule width.4\ex@\hskip3\ex@\vbox{\vskip3\ex@\boxz@\vskip3\ex@}%
1656: \hskip3\ex@\vrule width.4\ex@}\hrule height.4\ex@}%
1657: }}}
1658: \message{commutative diagrams,}
1659: \let\ampersand@\relax
1660: \newdimen\minaw@
1661: \minaw@11.11128\ex@
1662: \newdimen\minCDaw@
1663: \minCDaw@2.5pc
1664: \def\minCDarrowwidth#1{\RIfMIfI@\onlydmatherr@\minCDarrowwidth
1665: \else\minCDaw@#1\relax\fi\else\onlydmatherr@\minCDarrowwidth\fi}
1666: \newif\ifCD@
1667: \def\CD{\bgroup\vspace@\relax\iffalse{\fi\let\ampersand@&\iffalse}\fi
1668: \CD@true\vcenter\bgroup\Let@\tabskip\z@skip\baselineskip20\ex@
1669: \lineskip3\ex@\lineskiplimit3\ex@\halign\bgroup
1670: &\hfill$\m@th##$\hfill\crcr}
1671: \def\endCD{\crcr\egroup\egroup\egroup}
1672: \newdimen\bigaw@
1673: \atdef@>#1>#2>{\ampersand@ %1
1674: \setboxz@h{$\m@th\ssize\;{#1}\;\;$}% %2
1675: \setbox@ne\hbox{$\m@th\ssize\;{#2}\;\;$}% %3
1676: \setbox\tw@\hbox{$\m@th#2$}% %4
1677: \ifCD@\global\bigaw@\minCDaw@\else\global\bigaw@\minaw@\fi %5
1678: \ifdim\wdz@>\bigaw@\global\bigaw@\wdz@\fi
1679: \ifdim\wd@ne>\bigaw@\global\bigaw@\wd@ne\fi %6
1680: \ifCD@\enskip\fi %7
1681: \ifdim\wd\tw@>\z@
1682: \mathrel{\mathop{\hbox to\bigaw@{\rightarrowfill@\displaystyle}}%
1683: \limits^{#1}_{#2}}% %8
1684: \else\mathrel{\mathop{\hbox to\bigaw@{\rightarrowfill@\displaystyle}}%
1685: \limits^{#1}}\fi %9
1686: \ifCD@\enskip\fi %10
1687: \ampersand@} %11
1688: \atdef@<#1<#2<{\ampersand@\setboxz@h{$\m@th\ssize\;\;{#1}\;$}%
1689: \setbox@ne\hbox{$\m@th\ssize\;\;{#2}\;$}\setbox\tw@\hbox{$\m@th#2$}%
1690: \ifCD@\global\bigaw@\minCDaw@\else\global\bigaw@\minaw@\fi
1691: \ifdim\wdz@>\bigaw@\global\bigaw@\wdz@\fi
1692: \ifdim\wd@ne>\bigaw@\global\bigaw@\wd@ne\fi
1693: \ifCD@\enskip\fi
1694: \ifdim\wd\tw@>\z@
1695: \mathrel{\mathop{\hbox to\bigaw@{\leftarrowfill@\displaystyle}}%
1696: \limits^{#1}_{#2}}\else
1697: \mathrel{\mathop{\hbox to\bigaw@{\leftarrowfill@\displaystyle}}%
1698: \limits^{#1}}\fi
1699: \ifCD@\enskip\fi\ampersand@}
1700: \begingroup
1701: \catcode`\~=\active \lccode`\~=`\@
1702: \lowercase{%
1703: \global\atdef@)#1)#2){~>#1>#2>}
1704: \global\atdef@(#1(#2({~<#1<#2<}}
1705: \endgroup
1706: \atdef@ A#1A#2A{\llap{$\m@th\vcenter{\hbox
1707: {$\ssize#1$}}$}\Big\uparrow\rlap{$\m@th\vcenter{\hbox{$\ssize#2$}}$}&&}
1708: \atdef@ V#1V#2V{\llap{$\m@th\vcenter{\hbox
1709: {$\ssize#1$}}$}\Big\downarrow\rlap{$\m@th\vcenter{\hbox{$\ssize#2$}}$}&&}
1710: \atdef@={&\enskip\mathrel
1711: {\vbox{\hrule width\minCDaw@\vskip3\ex@\hrule width
1712: \minCDaw@}}\enskip&}
1713: \atdef@|{\Big\Vert&&}
1714: \atdef@\vert{\Big\Vert&&}
1715: \def\pretend#1\haswidth#2{\setboxz@h{$\m@th\scriptstyle{#2}$}\hbox
1716: to\wdz@{\hfill$\m@th\scriptstyle{#1}$\hfill}}
1717: \message{poor man's bold,}
1718: \def\pmb{\RIfM@\expandafter\mathpalette\expandafter\pmb@\else
1719: \expandafter\pmb@@\fi}
1720: \def\pmb@@#1{\leavevmode\setboxz@h{#1}%
1721: \dimen@-\wdz@
1722: \kern-.5\ex@\copy\z@
1723: \kern\dimen@\kern.25\ex@\raise.4\ex@\copy\z@
1724: \kern\dimen@\kern.25\ex@\box\z@
1725: }
1726: \def\binrel@@#1{\ifdim\wd2<\z@\mathbin{#1}\else\ifdim\wd\tw@>\z@
1727: \mathrel{#1}\else{#1}\fi\fi}
1728: \newdimen\pmbraise@
1729: % Note: because of the use of \mathpalette, if \pmb@ is
1730: % applied to a single math italic character (or a single
1731: % character from some other slanted math font), the italic
1732: % correction will be added. This will cause subscripts
1733: % to fall too far away from the character in some
1734: % cases, e.g., $\pmb{T}_1$ or $\pmb{\Cal T}_1$.
1735: \def\pmb@#1#2{\setbox\thr@@\hbox{$\m@th#1{#2}$}%
1736: \setbox4\hbox{$\m@th#1\mkern.5mu$}\pmbraise@\wd4\relax
1737: \binrel@{#2}%
1738: \dimen@-\wd\thr@@
1739: \binrel@@{%
1740: \mkern-.8mu\copy\thr@@
1741: \kern\dimen@\mkern.4mu\raise\pmbraise@\copy\thr@@
1742: \kern\dimen@\mkern.4mu\box\thr@@
1743: }}
1744: \def\documentstyle#1{\W@{}\input #1.sty\relax}
1745: \message{syntax check,}
1746: \font\dummyft@=dummy
1747: \fontdimen1 \dummyft@=\z@
1748: \fontdimen2 \dummyft@=\z@
1749: \fontdimen3 \dummyft@=\z@
1750: \fontdimen4 \dummyft@=\z@
1751: \fontdimen5 \dummyft@=\z@
1752: \fontdimen6 \dummyft@=\z@
1753: \fontdimen7 \dummyft@=\z@
1754: \fontdimen8 \dummyft@=\z@
1755: \fontdimen9 \dummyft@=\z@
1756: \fontdimen10 \dummyft@=\z@
1757: \fontdimen11 \dummyft@=\z@
1758: \fontdimen12 \dummyft@=\z@
1759: \fontdimen13 \dummyft@=\z@
1760: \fontdimen14 \dummyft@=\z@
1761: \fontdimen15 \dummyft@=\z@
1762: \fontdimen16 \dummyft@=\z@
1763: \fontdimen17 \dummyft@=\z@
1764: \fontdimen18 \dummyft@=\z@
1765: \fontdimen19 \dummyft@=\z@
1766: \fontdimen20 \dummyft@=\z@
1767: \fontdimen21 \dummyft@=\z@
1768: \fontdimen22 \dummyft@=\z@
1769: \def\fontlist@{\\{\tenrm}\\{\sevenrm}\\{\fiverm}\\{\teni}\\{\seveni}%
1770: \\{\fivei}\\{\tensy}\\{\sevensy}\\{\fivesy}\\{\tenex}\\{\tenbf}\\{\sevenbf}%
1771: \\{\fivebf}\\{\tensl}\\{\tenit}}
1772: \def\font@#1=#2 {\rightappend@#1\to\fontlist@\font#1=#2 }
1773: \def\dodummy@{{\def\\##1{\global\let##1\dummyft@}\fontlist@}}
1774: \def\nopages@{\output{\setbox\z@\box\@cclv \deadcycles\z@}%
1775: \alloc@5\toks\toksdef\@cclvi\output}
1776: \let\galleys\nopages@
1777: \newif\ifsyntax@
1778: \newcount\countxviii@
1779: \def\syntax{\syntax@true\dodummy@\countxviii@\count18
1780: \loop\ifnum\countxviii@>\m@ne\textfont\countxviii@=\dummyft@
1781: \scriptfont\countxviii@=\dummyft@\scriptscriptfont\countxviii@=\dummyft@
1782: \advance\countxviii@\m@ne\repeat %1
1783: \dummyft@\tracinglostchars\z@\nopages@\frenchspacing\hbadness\@M}
1784: \def\first@#1#2\end{#1}
1785: \def\printoptions{\W@{Do you want S(yntax check),
1786: G(alleys) or P(ages)?}%
1787: \message{Type S, G or P, followed by <return>: }%
1788: \begingroup % to localize the following change to \endlinechar:
1789: \endlinechar\m@ne % to prevent a space or \par in \ans@ from ^^M
1790: \read\m@ne to\ans@
1791: % Define \ans@ to uppercase itself, and default to P if the user
1792: % just pressed <return>.
1793: \edef\ans@{\uppercase{\def\noexpand\ans@{%
1794: \expandafter\first@\ans@ P\end}}}%
1795: % Cast the new definition of \ans@ outside the group
1796: \expandafter\endgroup\ans@
1797: \if\ans@ P% fine, no action needs to be taken
1798: \else \if\ans@ S\syntax
1799: \else \if\ans@ G\galleys
1800: \else\message{? Unknown option: \ans@; using the `pages' option.}%
1801: \fi\fi\fi}
1802: \def\alloc@#1#2#3#4#5{\global\advance\count1#1by\@ne
1803: \ch@ck#1#4#2\allocationnumber=\count1#1
1804: \global#3#5=\allocationnumber
1805: \ifalloc@\wlog{\string#5=\string#2\the\allocationnumber}\fi}
1806: \def\document{\def\alloclist@{}\def\fontlist@{}}
1807: \let\enddocument\bye
1808: \let\plainproclaim\proclaim
1809: \let\plainfootnote\footnote
1810: \let\proclaim\undefined
1811: \let\footnote\undefined
1812: \let\=\undefined
1813: \let\>\undefined
1814: \let\cal\undefined
1815: \let\mit\undefined
1816: \let\oldstyle\undefined
1817: \catcode`\@=\active
1818: \message{... finished}
1819:
1820: % *** end including amstex.tex ***
1821: % % \input mathdefs
1822: % *** start including mathdefs.tex ***
1823: \expandafter\ifx\csname mathdefs.tex\endcsname\relax
1824: \expandafter\gdef\csname mathdefs.tex\endcsname{}
1825: \else \message{Hey! Apparently you were trying to
1826: \string\input{mathdefs.tex} twice. This does not make sense.}
1827: \errmessage{Please edit your file (probably \jobname.tex) and remove
1828: any duplicate ``\string\input'' lines}\endinput\fi
1829:
1830:
1831: %mathdefs.tex v1.3.2
1832:
1833: %%% Changes from v1.0: footnote macros, warning for duplicated tags,
1834: %%% control sequences \( and \verbatimtags.
1835: %%% From v1.2: \pretags, redefinition of \( using \ifinner, multi-part
1836: %%% equation numbering, control sequences \[, \references, and
1837: %%% \resetbracket.
1838: %%% From v1.3: \rm in \lastpart; write root of multi-part tag to .tgs
1839:
1840: %See file texdefs.doc for documentation.
1841:
1842: \catcode`\X=12\catcode`\@=11
1843:
1844: %Minor control sequences:
1845: \def\n@wcount{\alloc@0\count\countdef\insc@unt}
1846: \def\n@wwrite{\alloc@7\write\chardef\sixt@@n}
1847: \def\n@wread{\alloc@6\read\chardef\sixt@@n}
1848: \def\r@s@t{\relax}\def\v@idline{\par}\def\@mputate#1/{#1}
1849: \def\l@c@l#1X{\firstpart.#1}\def\gl@b@l#1X{#1}\def\t@d@l#1X{{}}
1850:
1851: %Creation of tag families and output of assignments and citations:
1852: \def\crossrefs#1{\ifx\all#1\let\tr@ce=\all\else\def\tr@ce{#1,}\fi
1853: \n@wwrite\cit@tionsout\openout\cit@tionsout=\jobname.cit
1854: \write\cit@tionsout{\tr@ce}\expandafter\setfl@gs\tr@ce,}
1855: \def\setfl@gs#1,{\def\@{#1}\ifx\@\empty\let\next=\relax
1856: \else\let\next=\setfl@gs\expandafter\xdef
1857: \csname#1tr@cetrue\endcsname{}\fi\next}
1858: \def\m@ketag#1#2{\expandafter\n@wcount\csname#2tagno\endcsname
1859: \csname#2tagno\endcsname=0\let\tail=\all\xdef\all{\tail#2,}
1860: \ifx#1\l@c@l\let\tail=\r@s@t\xdef\r@s@t{\csname#2tagno\endcsname=0\tail}\fi
1861: \expandafter\gdef\csname#2cite\endcsname##1{\expandafter
1862: \ifx\csname#2tag##1\endcsname\relax?\else\csname#2tag##1\endcsname\fi
1863: \expandafter\ifx\csname#2tr@cetrue\endcsname\relax\else
1864: \write\cit@tionsout{#2tag ##1 cited on page \folio.}\fi}
1865: \expandafter\gdef\csname#2page\endcsname##1{\expandafter
1866: \ifx\csname#2page##1\endcsname\relax?\else\csname#2page##1\endcsname\fi
1867: \expandafter\ifx\csname#2tr@cetrue\endcsname\relax\else
1868: \write\cit@tionsout{#2tag ##1 cited on page \folio.}\fi}
1869: \expandafter\gdef\csname#2tag\endcsname##1{\expandafter
1870: \ifx\csname#2check##1\endcsname\relax
1871: \expandafter\xdef\csname#2check##1\endcsname{}%
1872: \else\immediate\write16{Warning: #2tag ##1 used more than once.}\fi
1873: \multit@g{#1}{#2}##1/X%
1874: \write\t@gsout{#2tag ##1 assigned number \csname#2tag##1\endcsname\space
1875: on page \number\count0.}%
1876: \csname#2tag##1\endcsname}}
1877:
1878:
1879: \def\multit@g#1#2#3/#4X{\def\t@mp{#4}\ifx\t@mp\empty%
1880: \global\advance\csname#2tagno\endcsname by 1
1881: \expandafter\xdef\csname#2tag#3\endcsname
1882: {#1\number\csname#2tagno\endcsnameX}%
1883: \else\expandafter\ifx\csname#2last#3\endcsname\relax
1884: \expandafter\n@wcount\csname#2last#3\endcsname
1885: \global\advance\csname#2tagno\endcsname by 1
1886: \expandafter\xdef\csname#2tag#3\endcsname
1887: {#1\number\csname#2tagno\endcsnameX}
1888: \write\t@gsout{#2tag #3 assigned number \csname#2tag#3\endcsname\space
1889: on page \number\count0.}\fi
1890: \global\advance\csname#2last#3\endcsname by 1
1891: \def\t@mp{\expandafter\xdef\csname#2tag#3/}%
1892: \expandafter\t@mp\@mputate#4\endcsname
1893: {\csname#2tag#3\endcsname\lastpart{\csname#2last#3\endcsname}}\fi}
1894: \def\t@gs#1{\def\all{}\m@ketag#1e\m@ketag#1s\m@ketag\t@d@l p
1895: \let\realscite\scite
1896: \let\realstag\stag
1897: \m@ketag\gl@b@l r \n@wread\t@gsin
1898: \openin\t@gsin=\jobname.tgs \re@der \closein\t@gsin
1899: \n@wwrite\t@gsout\openout\t@gsout=\jobname.tgs }
1900: \outer\def\localtags{\t@gs\l@c@l}
1901: \outer\def\globaltags{\t@gs\gl@b@l}
1902: \outer\def\newlocaltag#1{\m@ketag\l@c@l{#1}}
1903: \outer\def\newglobaltag#1{\m@ketag\gl@b@l{#1}}
1904:
1905: %Reading in tag information:
1906: \newif\ifpr@
1907: \def\m@kecs #1tag #2 assigned number #3 on page #4.%
1908: {\expandafter\gdef\csname#1tag#2\endcsname{#3}
1909: \expandafter\gdef\csname#1page#2\endcsname{#4}
1910: \ifpr@\expandafter\xdef\csname#1check#2\endcsname{}\fi}
1911: \def\re@der{\ifeof\t@gsin\let\next=\relax\else
1912: \read\t@gsin to\t@gline\ifx\t@gline\v@idline\else
1913: \expandafter\m@kecs \t@gline\fi\let \next=\re@der\fi\next}
1914: \def\pretags#1{\pr@true\pret@gs#1,,}
1915: \def\pret@gs#1,{\def\@{#1}\ifx\@\empty\let\n@xtfile=\relax
1916: \else\let\n@xtfile=\pret@gs \openin\t@gsin=#1.tgs \message{#1} \re@der
1917: \closein\t@gsin\fi \n@xtfile}
1918:
1919: %Sections and subsections; local numbering:
1920: \newcount\sectno\sectno=0\newcount\subsectno\subsectno=0
1921: \newif\ifultr@local \def\ultralocal{\ultr@localtrue}
1922: \def\firstpart{\number\sectno}
1923: \def\lastpart#1{\ifcase#1 \or a\or b\or c\or d\or e\or f\or g\or h\or
1924: i\or k\or l\or m\or n\or o\or p\or q\or r\or s\or t\or u\or v\or w\or
1925: x\or y\or z \fi}
1926: \def\closeup{\vskip-\bigskipamount}
1927: \def\resetall{\global\advance\sectno by 1\subsectno=0
1928: \gdef\firstpart{\number\sectno}\r@s@t}
1929: \def\resetsub{\global\advance\subsectno by 1
1930: \gdef\firstpart{\number\sectno.\number\subsectno}\r@s@t}
1931: \def\newsection#1\par{\resetall\vskip0pt plus.3\vsize\penalty-250
1932: \vskip0pt plus-.3\vsize\bigskip\bigskip
1933: \message{#1}\leftline{\bf#1}\nobreak\bigskip}
1934: \def\subsection#1\par{\ifultr@local\resetsub\fi
1935: \vskip0pt plus.2\vsize\penalty-250\vskip0pt plus-.2\vsize
1936: \bigskip\smallskip\message{#1}\leftline{\bf#1}\nobreak\medskip}
1937:
1938: %jj tags:
1939: % On Andrzej's request: we want to be able
1940: % to show tags as in noverbatim, with verbatim in the margin,
1941: % and cites as in verbatim, with nonverbatim in the margin
1942: % mg -- July 2000
1943:
1944: \newdimen\marginshift
1945:
1946: \newdimen\margindelta
1947: \newdimen\marginmax
1948: \newdimen\marginmin
1949:
1950: \def\margininit{
1951: \marginmax=3 true cm % how much room, approximately
1952:
1953: \margindelta=0.1 true cm % distance between entries
1954: \marginmin=0.1true cm % where will leftmost entry be
1955: \marginshift=\marginmin
1956: } % we cannot execute this right now, since
1957: % there may be a \magnification coming later in the
1958: % main file. So we call \margininit at the end of
1959: % alice2jlem
1960:
1961: \def\t@gsjj#1,{\def\@{#1}\ifx\@\empty\let\next=\relax\else\let\next=\t@gsjj
1962: \def\@@{p}\ifx\@\@@\else
1963: \expandafter\gdef\csname#1cite\endcsname##1{\citejj{##1}}
1964: \expandafter\gdef\csname#1page\endcsname##1{?}
1965: \expandafter\gdef\csname#1tag\endcsname##1{\tagjj{##1}}\fi\fi\next}
1966: \newif\ifshowstuffinmargin
1967: \showstuffinmarginfalse
1968: \def\jjtags{\ifx\shlhetal\relax
1969: % so this is a public version --> no-op
1970: \else
1971: \ifx\shlhetal\undefinedcontrolseq
1972: % again, this is a public version --> no-op
1973: \else
1974: \showstuffinmargintrue
1975: \ifx\all\relax\else\expandafter\t@gsjj\all,\fi\fi \fi
1976: }
1977:
1978: % \def\zeigentag#1{\def\xxy{#1}\show\xxy\show\realstag\realstag#1\mginpar{\hbox{$\langle$}#1\hbox{$\rangle$}}}
1979: % \def\zeigencite#1{\hbox{$\langle$}#1\hbox{$\rangle$}\mginpar{\realscite#1}}
1980:
1981:
1982: \def\tagjj#1{\realstag{#1}\oldmginpar{\zeigen{#1}}}
1983: % \def\citejj#1{\zeigen{#1}\mginpar{\rechnen{#1}}}
1984: \def\citejj#1{\rechnen{#1}\mginpar{\zeigen{#1}}} % modified Sep 02, saharon's suggestion
1985:
1986: % \def\rechnen#1{rechnen(\expandafter\ifx\csname stag#1\endcsname\relax ??\else
1987: % \csname stag#1\endcsname\fi)endrech }
1988: \def\rechnen#1{\expandafter\ifx\csname stag#1\endcsname\relax ??\else
1989: \csname stag#1\endcsname\fi}
1990:
1991: % \def\zeigentag#1{//#1--\csname stag#1\endcsname::}
1992:
1993: \newdimen\theight
1994:
1995:
1996:
1997: \def\marginfont{\sevenrm}
1998:
1999:
2000:
2001: \def\trymarginbox#1{\setbox0=\hbox{\marginfont\hskip\marginshift #1}%
2002: \global\marginshift\wd0
2003: \global\advance\marginshift\margindelta}
2004:
2005:
2006: \def \oldmginpar#1{%
2007: \ifvmode\setbox0\hbox to \hsize{\hfill\rlap{\marginfont\quad#1}}%
2008: \ht0 0cm
2009: \dp0 0cm
2010: \box0\vskip-\baselineskip
2011: \else
2012: \vadjust{\trymarginbox{#1}%
2013: \ifdim\marginshift>\marginmax \global\marginshift\marginmin
2014: \trymarginbox{#1}%
2015: \fi
2016: \theight=\ht0
2017: \advance\theight by \dp0 \advance\theight by \lineskip
2018: \kern -\theight \vbox to \theight{\rightline{\rlap{\box0}}%
2019: \vss}}\fi}
2020:
2021: \newdimen\upordown
2022: \global\upordown=8pt
2023: \font\tinyfont=cmtt8 % scaled 700
2024: \def\mginpar#1{\smash{\hbox to 0cm{\kern-10pt\raise7pt\hbox{\tinyfont #1}\hss}}}
2025: % testing, october 2005, mg
2026: \def\mginpar#1{{\hbox to 0cm{\kern-10pt\raise\upordown\hbox{\tinyfont #1}\hss}}\global\upordown-\upordown}
2027:
2028:
2029: % \def\mginpar#1{mg-#1-mg }
2030:
2031:
2032:
2033: %Verbatim tags:
2034: \def\t@gsoff#1,{\def\@{#1}\ifx\@\empty\let\next=\relax\else\let\next=\t@gsoff
2035: \def\@@{p}\ifx\@\@@\else
2036: \expandafter\gdef\csname#1cite\endcsname##1{\zeigen{##1}}
2037: \expandafter\gdef\csname#1page\endcsname##1{?}
2038: \expandafter\gdef\csname#1tag\endcsname##1{\zeigen{##1}}\fi\fi\next}
2039: \def\verbatimtags{\showstuffinmarginfalse
2040: \ifx\all\relax\else\expandafter\t@gsoff\all,\fi}
2041: %%% \def\zeigen#1{zeigen(\hbox{$\langle$}#1\hbox{$\rangle$})endz }
2042: \def\zeigen#1{\hbox{$\scriptstyle\langle$}#1\hbox{$\scriptstyle\rangle$}}
2043:
2044: % % \def\margincite#1{\ifshowstuffinmargin\mginpar{\rechnen{#1}}\fi}
2045: % changed, april 2003, mg: we now have always the verbatim tag in the margin
2046: \def\margincite#1{\ifshowstuffinmargin\mginpar{\zeigen{#1}}\fi}
2047:
2048: \def\margintag#1{\ifshowstuffinmargin\oldmginpar{\zeigen{#1}}\fi}
2049:
2050: \def\marginplain#1{\ifshowstuffinmargin\mginpar{{#1}}\fi}
2051: \def\marginbf#1{\marginplain{{\bf \ \ #1}}}
2052:
2053:
2054: %Equation numbering:
2055: \def\(#1){\edef\dot@g{\ifmmode\ifinner(\hbox{\noexpand\etag{#1}})
2056: \else\noexpand\eqno(\hbox{\noexpand\etag{#1}})\fi
2057: \else(\noexpand\ecite{#1})\fi}\dot@g}
2058:
2059: %Reference numbering:
2060: \newif\ifbr@ck
2061: \def\eat#1{}
2062: \def\[#1]{\br@cktrue[\br@cket#1'X]}
2063: \def\br@cket#1'#2X{\def\temp{#2}\ifx\temp\empty\let\next\eat
2064: \else\let\next\br@cket\fi
2065: \ifbr@ck\br@ckfalse\br@ck@t#1,X\else\br@cktrue#1\fi\next#2X}
2066: \def\br@ck@t#1,#2X{\def\temp{#2}\ifx\temp\empty\let\neext\eat
2067: \else\let\neext\br@ck@t\def\temp{,}\fi
2068: \def\teemp{#1}\ifx\teemp\empty\else\rcite{#1}\fi\temp\neext#2X}
2069: \def\resetbr@cket{\gdef\[##1]{[\rtag{##1}]}}
2070: \def\references{\resetbr@cket\newsection References\par}
2071:
2072: %Footnotes:
2073: \newtoks\symb@ls\newtoks\s@mb@ls\newtoks\p@gelist\n@wcount\ftn@mber
2074: \ftn@mber=1\newif\ifftn@mbers\ftn@mbersfalse\newif\ifbyp@ge\byp@gefalse
2075: \def\defm@rk{\ifftn@mbers\n@mberm@rk\else\symb@lm@rk\fi}
2076: \def\n@mberm@rk{\xdef\m@rk{{\the\ftn@mber}}%
2077: \global\advance\ftn@mber by 1 }
2078: \def\rot@te#1{\let\temp=#1\global#1=\expandafter\r@t@te\the\temp,X}
2079: \def\r@t@te#1,#2X{{#2#1}\xdef\m@rk{{#1}}}
2080: \def\b@@st#1{{$^{#1}$}}\def\str@p#1{#1}
2081: \def\symb@lm@rk{\ifbyp@ge\rot@te\p@gelist\ifnum\expandafter\str@p\m@rk=1
2082: \s@mb@ls=\symb@ls\fi\write\f@nsout{\number\count0}\fi \rot@te\s@mb@ls}
2083: \def\byp@ge{\byp@getrue\n@wwrite\f@nsin\openin\f@nsin=\jobname.fns
2084: \n@wcount\currentp@ge\currentp@ge=0\p@gelist={0}
2085: \re@dfns\closein\f@nsin\rot@te\p@gelist
2086: \n@wread\f@nsout\openout\f@nsout=\jobname.fns }
2087: \def\m@kelist#1X#2{{#1,#2}}
2088: \def\re@dfns{\ifeof\f@nsin\let\next=\relax\else\read\f@nsin to \f@nline
2089: \ifx\f@nline\v@idline\else\let\t@mplist=\p@gelist
2090: \ifnum\currentp@ge=\f@nline
2091: \global\p@gelist=\expandafter\m@kelist\the\t@mplistX0
2092: \else\currentp@ge=\f@nline
2093: \global\p@gelist=\expandafter\m@kelist\the\t@mplistX1\fi\fi
2094: \let\next=\re@dfns\fi\next}
2095: \def\symbols#1{\symb@ls={#1}\s@mb@ls=\symb@ls}
2096: \def\bigsymbol{\textstyle}
2097: \symbols{\bigsymbol\ast,\dagger,\ddagger,\sharp,\flat,\natural,\star}
2098: \def\ftnumbers{\ftn@mberstrue} \def\ftsymbols{\ftn@mbersfalse}
2099: \def\paginal{\byp@ge} \def\resetftnumbers{\ftn@mber=1}
2100: \def\ftnote#1{\defm@rk\expandafter\expandafter\expandafter\footnote
2101: \expandafter\b@@st\m@rk{#1}}
2102:
2103: %Miscellaneous macros:
2104: \long\def\jump#1\endjump{}
2105: \def\ssum{\mathop{\lower .1em\hbox{$\textstyle\Sigma$}}\nolimits}
2106: \def\down#1{_{{}_{\scriptstyle #1}}}
2107: \def\qed{\nobreak\kern 1em \vrule height .5em width .5em depth 0em}
2108: \def\newneq{\hbox{\rlap{\hbox to 1\wd9{\hss$=$\hss}}\raise .1em
2109: \hbox to 1\wd9{\hss$\scriptscriptstyle/$\hss}}}
2110: \def\subsetne{\setbox9 = \hbox{$\subset$}\mathrel{\hbox{\rlap
2111: {\lower .4em \newneq}\raise .13em \hbox{$\subset$}}}}
2112: \def\supsetne{\setbox9 = \hbox{$\subset$}\mathrel{\hbox{\rlap
2113: {\lower .4em \newneq}\raise .13em \hbox{$\supset$}}}}
2114:
2115: %Blackboard bold:
2116: \def\vbar{\mathchoice{\vrule height6.3ptdepth-.5ptwidth.8pt\kern-.8pt}
2117: {\vrule height6.3ptdepth-.5ptwidth.8pt\kern-.8pt}
2118: {\vrule height4.1ptdepth-.35ptwidth.6pt\kern-.6pt}
2119: {\vrule height3.1ptdepth-.25ptwidth.5pt\kern-.5pt}}
2120: \def\f@dge{\mathchoice{}{}{\mkern.5mu}{\mkern.8mu}}
2121: \def\b@c#1#2{{\rm \mkern#2mu\vbar\mkern-#2mu#1}}
2122: \def\b@b#1{{\rm I\mkern-3.5mu #1}}
2123: \def\b@a#1#2{{\rm #1\mkern-#2mu\f@dge #1}}
2124: \def\bb#1{{\count4=`#1 \advance\count4by-64 \ifcase\count4\or\b@a A{11.5}\or
2125: \b@b B\or\b@c C{5}\or\b@b D\or\b@b E\or\b@b F \or\b@c G{5}\or\b@b H\or
2126: \b@b I\or\b@c J{3}\or\b@b K\or\b@b L \or\b@b M\or\b@b N\or\b@c O{5} \or
2127: \b@b P\or\b@c Q{5}\or\b@b R\or\b@a S{8}\or\b@a T{10.5}\or\b@c U{5}\or
2128: \b@a V{12}\or\b@a W{16.5}\or\b@a X{11}\or\b@a Y{11.7}\or\b@a Z{7.5}\fi}}
2129:
2130: \catcode`\X=11 \catcode`\@=12
2131:
2132:
2133: % Sep 2003, mg:
2134:
2135: % % \input 300stuff
2136: % *** start including 300stuff.tex ***
2137:
2138: % definitions needed to process the 300x papers (plus 88 etc)
2139:
2140: \let\thischap\jobname
2141:
2142:
2143:
2144: \def\partof#1{\csname returnthe#1part\endcsname}
2145: \def\chapof#1{\csname returnthe#1chap\endcsname}
2146:
2147: \def\setchapter#1,#2,#3;{%
2148: \expandafter\def\csname returnthe#1part\endcsname{#2}%
2149: \expandafter\def\csname returnthe#1chap\endcsname{#3}%
2150: }
2151:
2152: \setchapter 300a,A,II.A;
2153: \setchapter 300b,A,II.B;
2154: \setchapter 300c,A,II.C;
2155: \setchapter 300d,A,II.D;
2156: \setchapter 300e,A,II.E;
2157: \setchapter 300f,A,II.F;
2158: \setchapter 300g,A,II.G;
2159: \setchapter E53,B,N;
2160: \setchapter 88r,B,I;
2161: \setchapter 600,B,III;
2162: \setchapter 705,B,IV;
2163: \setchapter 734,B,V;
2164:
2165:
2166: % \def\cprefix#1{% \cprefix{300b} generates A.II. or II. or "nothing"
2167: % %\leavevmode\vrule width 2cm height 1cm depth 0cm
2168: % \edef\theotherpart{\partof{#1}}\edef\theotherchap{\chapof{#1}}%
2169: % \ifx\theotherpart\thispart
2170: % \ifx\theotherchap\thischap % nothing
2171: % \else % same part, different chap
2172: % \theotherchap%
2173: % \fi
2174: % \else % different part
2175: % \theotherpart.\theotherchap\fi}
2176:
2177:
2178: \def\cprefix#1{% \cprefix{300b} generates II. or "nothing"
2179: %\leavevmode\vrule width 2cm height 1cm depth 0cm
2180: \edef\theotherpart{\partof{#1}}\edef\theotherchap{\chapof{#1}}%
2181: \ifx\theotherpart\thispart
2182: \ifx\theotherchap\thischap % nothing
2183: \else % same part, different chap
2184: \theotherchap%
2185: \fi
2186: \else % different part
2187: \theotherchap\fi}
2188:
2189:
2190: % \sectioncite[\S4]{300b} -> II.\S4 or A.II.\S4
2191: \def\sectioncite[#1]#2{%
2192: \cprefix{#2}#1}
2193:
2194: \def\chaptercite#1{Chapter \cprefix{#1}}
2195:
2196: % now define \thispart
2197: \edef\thispart{\partof{\thischap}}
2198: \edef\thischap{\chapof{\thischap}}
2199:
2200: \def\lastpage of '#1' is #2.{\expandafter\def\csname lastpage#1\endcsname{#2}}
2201:
2202: % *** end including 300stuff.tex ***
2203:
2204: \def\spuriousreset{}
2205:
2206: % *** end including mathdefs.tex ***
2207: % % \input citeadd
2208: % *** start including citeadd.tex ***
2209: % citeadd -- a few additions for
2210: % files from alice that were procesed with "citealice"
2211:
2212: \expandafter\ifx\csname citeadd.tex\endcsname\relax
2213: \expandafter\gdef\csname citeadd.tex\endcsname{}
2214: \else \message{Hey! Apparently you were trying to
2215: \string\input{citeadd.tex} twice. This does not make sense.}
2216: \errmessage{Please edit your file (probably \jobname.tex) and remove
2217: any duplicate ``\string\input'' lines}\endinput\fi
2218:
2219:
2220:
2221:
2222:
2223: \def\sciteu{\sciteerror{undefined}}
2224: \def\sciteuphantom{\complainaboutcitation{undefined}}
2225:
2226: \def\scitet{\sciteerror{ambiguous}}
2227: \def\scitetphantom{\complainaboutcitation{ambiguous}}
2228:
2229:
2230:
2231:
2232: \def\sciteerror#1#2{{\mathortextbf{\scite{#2}}}\complainaboutcitation{#1}{#2}}
2233: \def\mathortextbf#1{\hbox{\bf #1}}
2234: \def\complainaboutcitation#1#2{%
2235: \vadjust{\line{\llap{---$\!\!>$ }\qquad scite$\{$#2$\}$ #1\hfil}}}
2236:
2237:
2238:
2239:
2240:
2241: % *** end including citeadd.tex ***
2242: \sectno=-1 % start with sect 0
2243: \localtags
2244: \jjtags
2245: \NoBlackBoxes
2246: \define\mr{\medskip\roster}
2247: \define\sn{\smallskip\noindent}
2248: \define\mn{\medskip\noindent}
2249: \define\bn{\bigskip\noindent}
2250: \define\ub{\underbar}
2251: \define\wilog{\text{without loss of generality}}
2252: \define\ermn{\endroster\medskip\noindent}
2253: \define\dbca{\dsize\bigcap}
2254: \define\dbcu{\dsize\bigcup}
2255: \define \nl{\newline}
2256: % (citealice) \define\green{GREEN STARTS HERE}
2257: % (citealice) \define\endgreen{GREEN ENDS HERE}
2258: \magnification=\magstep 1
2259: \documentstyle{amsppt}
2260: % % \input alice2000
2261: % *** start including alice2000.tex ***
2262: % This file should be inputted whenever we use amsppt.sty and
2263: % old tex.
2264: % Here we redefine \subjclass (use 1991 instead of 2000, otherwise
2265: % the following definition comes directly from
2266: %%
2267: %% `amsppt.sty', generated
2268: %% on <1997/2/2> with the docstrip utility (2.2i).
2269: %%
2270: %% The original source files were:
2271: %%
2272: %% amsppt.doc
2273: %%% ====================================================================
2274: %%% @AMSTeX-style-file{
2275: %%% filename = "amsppt.sty",
2276: %%% version = "2.1h",
2277: %%% date = "1997/02/02",
2278: %%% time = "09:27:44 EST",
2279: %%% checksum = "56844 3264 16617 137829",
2280: %%% author = "American Mathematical Society",
2281: %%% address = "PO Box 6248, Providence, RI 02940-6248, USA",
2282: %%% telephone = "401-455-4080 or (in the USA) 800-321-4AMS",
2283:
2284: { % the braces make the catcode-change local.
2285: \catcode`@11
2286:
2287: \ifx\alicetwothousandloaded@\relax
2288: \endinput\else\global\let\alicetwothousandloaded@\relax\fi
2289:
2290:
2291: \gdef\subjclass{\let\savedef@\subjclass
2292: \def\subjclass##1\endsubjclass{\let\subjclass\savedef@
2293: \toks@{\def\usualspace{{\rm\enspace}}\eightpoint}%
2294: \toks@@{##1\unskip.}%
2295: \edef\thesubjclass@{\the\toks@
2296: \frills@{{\noexpand\rm2000 {\noexpand\it Mathematics Subject
2297: Classification}.\noexpand\enspace}}%
2298: \the\toks@@}}%
2299: \nofrillscheck\subjclass}
2300: }
2301:
2302: % *** end including alice2000.tex ***
2303: % % \input alice2jlem
2304: % *** start including alice2jlem.tex ***
2305: %% # Keywords Input file to be used for texing Alice's files
2306:
2307: \expandafter\ifx\csname alice2jlem.tex\endcsname\relax
2308: \expandafter\xdef\csname alice2jlem.tex\endcsname{\the\catcode`@}
2309: \else \message{Hey! Apparently you were trying to
2310: \string\input{alice2jlem.tex} twice. This does not make sense.}
2311: \errmessage{Please edit your file (probably \jobname.tex) and remove
2312: any duplicate ``\string\input'' lines}\endinput\fi
2313:
2314:
2315:
2316: % % \input bib4plain
2317: % *** start including bib4plain.tex ***
2318: \expandafter\ifx\csname bib4plain.tex\endcsname\relax
2319: \expandafter\gdef\csname bib4plain.tex\endcsname{}
2320: \else \message{Hey! Apparently you were trying to \string\input
2321: bib4plain.tex twice. This does not make sense.}
2322: \errmessage{Please edit your file (probably \jobname.tex) and remove
2323: any duplicate ``\string\input'' lines}\endinput\fi
2324:
2325:
2326: % This file should be inputted if you want to use
2327: % bibtex fom within plain TeX.
2328: \def\makeatletter{\catcode`\@11 } % Not really need for standard
2329: \def\makeatother{\catcode`\@12 } % bibtex files, but these commands
2330: \def\renewcommand{\newcommand} % are used in our literal-unsrt.bst
2331: % and other files.
2332: % The above lines were written by Martin.Goldstern@tuwien.ac.at
2333: % The rest is just the file btxmac.tex.
2334: % (except for one small change below, regarding undefined citations)
2335:
2336: %% @texfile{
2337: %% author = "Karl Berry and Oren Patashnik",
2338: %% version = "0.99j",
2339: %% date = "14 Mar 1992",
2340: %% filename = "btxmac.tex",
2341: %% address = "Please use electronic mail",
2342: %% checksum = "834 4503 33061",
2343: %% email = "opbibtex@cs.stanford.edu",
2344: %% codetable = "ISO/ASCII",
2345: %% supported = "yes",
2346: %% docstring = "Defines macros that make BibTeX work with plain TeX",
2347: %% }
2348: % BibTeX-for-TeX macros, version 0.99j, for BibTeX 0.99c, TeX 3.0 or later.
2349: % Copyright (C) 1990--92 by Karl Berry and Oren Patashnik; all rights reserved.
2350: % You may copy this file provided: that it's accompanied by the
2351: % "BibTeXing" document, whose text is contained in the file `btxdoc.tex';
2352: % that any documentation you write for these macros also gives a
2353: % reference for "BibTeXing"; and that either you make absolutely no
2354: % changes to your copy, or if you do make changes, (1) you name the file
2355: % something other than `btxmac.tex' and you remove all occurrences of
2356: % `btxmac.tex' from the file, (2) you put, somewhere in the first twenty
2357: % lines of the file, your name, along with an electronic address at which
2358: % others who might use the file may reach you, and (3) you remove each
2359: % occurrence of Oren's name and electronic address from this file. These
2360: % restrictions help ensure that all standard versions of these macros are
2361: % identical, and that Oren doesn't get deluged with inappropriate e-mail.
2362: %
2363: % This file, btxmac.tex, contains TeX macros that allow BibTeX, a
2364: % bibliography program that was originally designed for use with LaTeX,
2365: % to work with plain TeX. Please report any bugs (outright goofs,
2366: % improvable macros, misfeatures, or unclear documentation) to Oren
2367: % Patashnik (opbibtex@cs.stanford.edu). These macros will become frozen
2368: % shortly after BibTeX version 1.00 is released.
2369: %
2370: % AMS-TEX WARNING: We tried very hard, for version .99i of these macros,
2371: % to make them compatible with AmS-TeX. We succeeded to the extent
2372: % that, if you use one of the standard bibliography styles, you probably
2373: % won't notice any problems with version 0.99i of btxmac.tex. But
2374: % ultimately we failed, in that the inherent incompatibilities between
2375: % plain TeX and AmS-TeX kept making these macros break, for certain
2376: % inputs or certain styles. Examples: (1) AmS-TeX treats at-signs as
2377: % special, in ways that plain TeX and LaTeX don't, so that, for example,
2378: % you can't have any `@' characters in an argument to the \cite command,
2379: % the way you can in TeX or LaTeX; (2) AmS-TeX decided that plain TeX's
2380: % and LaTeX's macron-accent control sequence `\=' should be undefined;
2381: % so you'll need to define `\=' to be `\B' to get the xampl.bib example
2382: % suggested below to work with AmS-TeX; (3) AmS-TeX redefines the tie
2383: % character `~' of plain TeX, and AmS-TeX's `amsppt' style redefines
2384: % plain TeX's `\nobreak' macro, so that if you use an author-date style
2385: % like `apalike' and you have a multiple-author reference for which the
2386: % author-date style automatically produces a citation in the text like
2387: % `(Jones et~al., 1992)' you will throw AmS-TeX's `amsppt' style into
2388: % an infinite loop, exceeding its input stack size. In practice, such
2389: % incompatibilities surface infrequently; but it is now clear to us that
2390: % it's not worth the effort (perhaps it's not even possible) to make the
2391: % btxmac.tex macros robust when used both with plain TeX and Ams-TeX.
2392: % If the BibTeX/AmS-TeX results attainable with the current btxmac.tex
2393: % macros are sufficient, fine. But if there's a demand for more robust
2394: % BibTeX/AmS-TeX behavior, then someone who's very familiar with the
2395: % AmS-TeX package should probably make an amsbtxmc.tex version of the
2396: % macros (remembering to follow the copyright restrictions above).
2397: % Until then, if you're an AmS-TeX user, or a LaTeX or plain TeX user
2398: % sharing files with an AmS-TeX user, beware.
2399: % END OF AMS-TEX WARNING.
2400: %
2401: % To use these macros you should be familiar with how BibTeX interacts
2402: % with LaTeX, since BibTeX's interaction with TeX is very similar; that
2403: % interaction is explained in the LaTeX manual. It also helps to
2404: % have read "BibTeXing", the documentation that accompanies BibTeX.
2405: % Then, if you want, you should redefine any of the macros that begin
2406: % with `\bbl' or `\biblabel' or `\print' that you need to get formatting
2407: % different from the default (the default settings are designed to
2408: % accompany a bibliography style like BibTeX's standard style `plain').
2409: % The macros you might want to change are described briefly a few
2410: % paragraphs hence. [To get started without reading any documentation,
2411: % try running the nine-line .tex file below through TeX and BibTeX.
2412: % Remember the general scheme: Running (La)TeX writes information on
2413: % the .aux (auxiliary) file; then running BibTeX reads information from
2414: % the .aux, .bst (style), and .bib (database) files, and writes
2415: % information (the bibliography) on a .bbl file; then running (La)TeX
2416: % incorporates the bibliography; then running (La)TeX once more fixes
2417: % the remaining forward references into the bibliography. Thus, to get
2418: % everything incorporated into your output, you'll have to run (La)TeX,
2419: % BibTeX, (La)TeX, (La)TeX. (Standup, sitdown, fight, fight, fight.)]
2420: %
2421: % These macros can stand alone or they can be \input into a macro
2422: % package, like Eplain, that is sufficiently compatible with plain TeX.
2423: % To use these macros to format the 0.99 version of the xampl.bib file
2424: % that's distributed with BibTeX (that version of the file has no
2425: % self-identification), you'll need to define \mbox, which is a LaTeX
2426: % command, to be \hbox, as in the example below.
2427: %
2428: % Here's a nine-line plain TeX file for trying out btxmac.tex; of course
2429: % you'll have to remove the comment characters at the beginning of each
2430: % line, and, depending on your system, you might have to take steps so
2431: % that BibTeX can "see" the files xampl.bib and plain.bst (BibTeX will
2432: % give you two empty-field warning messages that you should ignore).
2433: %
2434: % \def\mbox#1{\leavevmode\hbox{#1}}
2435: % \input btxmac
2436: % \noindent This cites Aamport's gnominious article~\cite{article-full}.
2437: % \medskip
2438: % \leftline{\bf References}
2439: % \nocite{*} % put all database entries into the reference list
2440: % \bibliography{xampl} % specify the database files; here, just xampl.bib
2441: % \bibliographystyle{plain} % specify plain.bst as the style file
2442: % \bye
2443: %
2444: %
2445: % HISTORY
2446: %
2447: % Karl Berry wrote the original version of these macros in 1989 and
2448: % 1990, for use in his `Eplain' package. Oren Patashnik modified them
2449: % slightly in July 1990, as part of the official BibTeX distribution.
2450: %
2451: % 1-Aug-90 Version 0.99a, not released to the general public.
2452: % 14-Aug-90 0.99b, first general release.
2453: % 26-Aug-90 0.99c, made \@undefinedmessage work with other macro packages.
2454: % 6-Sep-90 0.99d, allowed for general formatting of bibliography labels,
2455: % for general formatting of (in-text) citations, and for
2456: % changing certain catcodes while reading the .aux file.
2457: % 14-Nov-90 0.99e, changed the way \@setletters works, made some \new...'s
2458: % non-outer, and changed the way Eplain reads this file.
2459: % 12-Dec-90 0.99f, made \@resetnumerals change the `,' and `.' catcodes; and
2460: % added \biblabelextrahang, \@getoptionalarg, and \bblsc.
2461: % 11-Mar-91 0.99g, made a few minor changes required by the way Eplain reads
2462: % this file, but no functional changes.
2463: % 24-Apr-91 0.99h, inhibited the reading and writing of the .aux file if it
2464: % isn't used or if the \noauxfile macro is defined, and
2465: % removed some .aux-file-opening detritus; printed the
2466: % cite-key of undefined citations in \tt font; changed the
2467: % catcode of `_' inside \cite; and called \@resetnumerals
2468: % from inside a group.
2469: % 29-Feb-92 0.99i, made these macros semi-compatible with AmS-TeX; removed
2470: % \@resetnumerals, \@setletters, \@tokstostring, and
2471: % friends; changed the way \cite handles catcodes; changed
2472: % \@getoptionalarg, and had \bibitem and \newcommand use
2473: % it; added \@futurenonspacelet and (to facilitate the use
2474: % of multiple reference lists) \bblfilebasename; changed
2475: % \biblabelprint to use the new macros \biblabelprecontents
2476: % and \biblabelpostcontents, and to, by default, right-
2477: % justify numeric labels; and renamed \biblabelextrahang to
2478: % the more descriptive \biblabelextraspace.
2479: % 14-Mar-92 0.99j, made 0.99i's use of `\\' local to btxmac.tex.
2480: %
2481: %
2482: % The LaTeX-related commands defined in this file include (a) the four
2483: % commands that a user types (\bibliography, \bibliographystyle, \cite,
2484: % and \nocite); (b) the three commands that BibTeX looks for in the .aux
2485: % file (\bibdata, \bibstyle, and \citation---there is a fourth command
2486: % that BibTeX looks for, but that command is related to LaTeX's \include
2487: % facility, so these macros ignore that command); and (c) a LaTeX
2488: % command (\newcommand) that's written by one of the four standard
2489: % bibliography styles (alpha). The definitions here are not exactly the
2490: % same as the corresponding LaTeX definitions (those eight LaTeX
2491: % definitions depend on a significant fraction of LaTeX itself). But
2492: % the only substantial differences are with \newcommand, which here,
2493: % without complaining, lets you redefine a preexisting control sequence
2494: % (in LaTeX, \newcommand won't let you redefine a preexisting command),
2495: % and which here doesn't make the control sequences it defines \long (in
2496: % LaTeX, that happens automatically); there may also be other minor
2497: % differences. To summarize: Unless you know what you're doing, you
2498: % shouldn't define any control sequences with these eight names:
2499: %
2500: % \bibdata
2501: % \bibliography
2502: % \bibliographystyle
2503: % \bibstyle
2504: % \citation
2505: % \cite
2506: % \newcommand
2507: % \nocite
2508: %
2509: % There are three other commands written by one or more of the four
2510: % standard (plain, abbrv, alpha, unsrt) or four semistandard (acm,
2511: % apalike, ieeetr, siam) bibliography styles; they take effect only
2512: % within the bibliography, and are redefinable, as explained later:
2513: %
2514: % \em
2515: % \newblock
2516: % \sc
2517: %
2518: % There's one control sequence you might want to use (but not redefine)
2519: % in redefining \biblabelprint:
2520: %
2521: % \biblabelwidth
2522: %
2523: % There are fifteen other control sequences (explained later in more detail)
2524: % that the macros of this file will use if you define them---you should
2525: % define them after the \input btxmac command but before the \bibliography
2526: % command. The first six begin with `\bbl' and affect fonts, spacing,
2527: % perhaps other characteristics of the bibliography, and which .bbl files
2528: % get read; the next five begin with `\biblabel' and determine how labels
2529: % are formatted in the bibliography; and the last four begin with `\print'
2530: % and determine how the in-text citations are formatted:
2531: %
2532: % \bblem
2533: % \bblfilebasename
2534: % \bblhook
2535: % \bblnewblock
2536: % \bblrm
2537: % \bblsc
2538: % \biblabelcontents
2539: % \biblabelprecontents
2540: % \biblabelprint
2541: % \biblabelpostcontents
2542: % \biblabelextraspace
2543: % \printbetweencitations
2544: % \printcitefinish
2545: % \printcitenote
2546: % \printcitestart
2547: %
2548: % If it's defined before the \input btxmac command, the control sequence
2549: % below inhibits the reading and writing of the .aux file(s), and the
2550: % issuing of related warning messages. Any definition will do. This
2551: % feature might help when you're working on draft stages of a document:
2552: %
2553: % \noauxfile
2554: %
2555: %
2556: % Here's another control sequence (it's described later) that you
2557: % probably won't want to redefine unless you are writing another macro
2558: % package; if you do redefine it, however, do it before the \input btxmac
2559: % command (and notice that it has an `@' in its name):
2560: %
2561: % \@undefinedmessage
2562: %
2563: % Any other control sequence in this file that might conflict with
2564: % something you've defined will have an `@' in its name, so such conflicts
2565: % are unlikely; but if you're worried about a specific control sequence
2566: % name, do a text search of this file to look for it.
2567: %
2568: %
2569: % So to start things off we turn `@' into a letter (category code 11),
2570: % keeping track of the old category code for future restoration.
2571: % (Simply resetting it to 12 when we leave these macros is
2572: % insufficient.) The use of `\cite' as a temporary control sequence is
2573: % a kludge, but it's a reasonably simple way to accomplish what we need
2574: % without possibly overwriting something (without an `@' in its name)
2575: % that might already be defined.
2576: %
2577: \edef\cite{\the\catcode`@}%
2578: \catcode`@ = 11
2579: \let\@oldatcatcode = \cite
2580: \chardef\@letter = 11
2581: \chardef\@other = 12
2582: %
2583: %
2584: % Next come some things that will be useful later.
2585: %
2586: % Make an outer definition into an inner one (due to Chris Thompson).
2587: % The arguments should be the control sequence to be defined, and the
2588: % new of the \outer control sequence, as characters; the control
2589: % sequence #1 is defined to be just the same as \csname#2\endcsname, but
2590: % not \outer. For example, \@innerdef\innernewcount{newcount} would
2591: % define \innernewcount to be a non-outer version of \newcount.
2592: %
2593: \def\@innerdef#1#2{\edef#1{\expandafter\noexpand\csname #2\endcsname}}%
2594: %
2595: % We use \@innerdef to make some of our allocations local, because
2596: % Eplain includes our code inside a conditional. We put @'s in the
2597: % names to minimize the (already small) chance of conflicts.
2598: %
2599: \@innerdef\@innernewcount{newcount}%
2600: \@innerdef\@innernewdimen{newdimen}%
2601: \@innerdef\@innernewif{newif}%
2602: \@innerdef\@innernewwrite{newwrite}%
2603: %
2604: %
2605: % Swallow one parameter.
2606: %
2607: \def\@gobble#1{}%
2608: %
2609: %
2610: % Use TeX 3.0's \inputlineno to get the line number, for better error
2611: % messages, but if we're using an old version of TeX, don't do anything.
2612: %
2613: \ifx\inputlineno\@undefined
2614: \let\@linenumber = \empty % Pre-3.0.
2615: \else
2616: \def\@linenumber{\the\inputlineno:\space}%
2617: \fi
2618: %
2619: %
2620: % The following macro \@futurenonspacelet (from the TeXbook) behaves
2621: % essentially like \futurelet except that it discards any implicit or
2622: % explicit space tokens that intervene before a nonspace is scanned:
2623: %
2624: \def\@futurenonspacelet#1{\def\cs{#1}%
2625: \afterassignment\@stepone\let\@nexttoken=
2626: }%
2627: \begingroup % The grouping here avoids stepping on an outside use of `\\'.
2628: \def\\{\global\let\@stoken= }%
2629: \\ % now \@stoken is a space token (\\ is a control symbol, so that
2630: % space after it is seen).
2631: \endgroup
2632: \def\@stepone{\expandafter\futurelet\cs\@steptwo}%
2633: \def\@steptwo{\expandafter\ifx\cs\@stoken\let\@@next=\@stepthree
2634: \else\let\@@next=\@nexttoken\fi \@@next}%
2635: \def\@stepthree{\afterassignment\@stepone\let\@@next= }%
2636: %
2637: %
2638: % \@getoptionalarg\CS gets an optional argument from the input, enclosed
2639: % in brackets, then expands \CS. We set \@optionalarg to \empty if we
2640: % don't find one, otherwise to the text of the argument. This assumes
2641: % the brackets don't have a funny category code.
2642: %
2643: \def\@getoptionalarg#1{%
2644: \let\@optionaltemp = #1%
2645: \let\@optionalnext = \relax
2646: \@futurenonspacelet\@optionalnext\@bracketcheck
2647: }%
2648: %
2649: % The \expandafter's in this macro let us avoid the use of \aftergroup,
2650: % which is somewhat more expensive.
2651: %
2652: \def\@bracketcheck{%
2653: \ifx [\@optionalnext
2654: \expandafter\@@getoptionalarg
2655: \else
2656: \let\@optionalarg = \empty
2657: % We can't do the \temp after the \fi, because then the \temp gets
2658: % in the way of reading the optional argument from the input, if
2659: % we do have one.
2660: \expandafter\@optionaltemp
2661: \fi
2662: }%
2663: %
2664: \def\@@getoptionalarg[#1]{%
2665: \def\@optionalarg{#1}%
2666: \@optionaltemp
2667: }%
2668: %
2669: %
2670: % From LaTeX.
2671: %
2672: \def\@nnil{\@nil}%
2673: \def\@fornoop#1\@@#2#3{}%
2674: %
2675: \def\@for#1:=#2\do#3{%
2676: \edef\@fortmp{#2}%
2677: \ifx\@fortmp\empty \else
2678: \expandafter\@forloop#2,\@nil,\@nil\@@#1{#3}%
2679: \fi
2680: }%
2681: %
2682: \def\@forloop#1,#2,#3\@@#4#5{\def#4{#1}\ifx #4\@nnil \else
2683: #5\def#4{#2}\ifx #4\@nnil \else#5\@iforloop #3\@@#4{#5}\fi\fi
2684: }%
2685: %
2686: \def\@iforloop#1,#2\@@#3#4{\def#3{#1}\ifx #3\@nnil
2687: \let\@nextwhile=\@fornoop \else
2688: #4\relax\let\@nextwhile=\@iforloop\fi\@nextwhile#2\@@#3{#4}%
2689: }%
2690: %
2691: %
2692: % This macro tests if a file \jobname.#1 exists, and sets \if@fileexists
2693: % appropriately. If an optional argument is given, it is used as the
2694: % root part of the filename instead of \jobname.
2695: %
2696: \@innernewif\if@fileexists
2697: %
2698: \def\@testfileexistence{\@getoptionalarg\@finishtestfileexistence}%
2699: \def\@finishtestfileexistence#1{%
2700: \begingroup
2701: \def\extension{#1}%
2702: \immediate\openin0 =
2703: \ifx\@optionalarg\empty\jobname\else\@optionalarg\fi
2704: \ifx\extension\empty \else .#1\fi
2705: \space
2706: \ifeof 0
2707: \global\@fileexistsfalse
2708: \else
2709: \global\@fileexiststrue
2710: \fi
2711: \immediate\closein0
2712: \endgroup
2713: }%
2714: %
2715: %
2716: %% [[[start of BibTeX-specific stuff]]]
2717: %
2718: % Now come the four main LaTeX commands and their associated .aux
2719: % commands. Just as in LaTeX, \bibliographystyle defines the BibTeX
2720: % style name (.bst file, that is), and \bibliography defines the
2721: % database (.bib) file(s). The corresponding .aux-file commands are
2722: % \bibstyle and \bibdata, which are there only for BibTeX's (but not
2723: % LaTeX's) use.
2724: %
2725: \def\bibliographystyle#1{%
2726: \@readauxfile
2727: \@writeaux{\string\bibstyle{#1}}%
2728: }%
2729: \let\bibstyle = \@gobble
2730: %
2731: % As well as writing the \bibdata command to tell BibTeX which .bib
2732: % files to read, we read the .bbl file that BibTeX (or a person,
2733: % conceivably) has produced. We use \bblfilebasename as the root of the
2734: % filename to read; this defaults to \jobname.
2735: %
2736: \let\bblfilebasename = \jobname
2737: \def\bibliography#1{%
2738: \@readauxfile
2739: \@writeaux{\string\bibdata{#1}}%
2740: \@testfileexistence[\bblfilebasename]{bbl}%
2741: \if@fileexists
2742: % We just output a non-discardable item (the `whatsit' with the
2743: % \bibdata command). This means that the glue that will be
2744: % inserted next (\parskip or \baselineskip, most likely) will be a
2745: % legal breakpoint. Most likely, this is after some kind of
2746: % heading, where we don't want to allow a page break. So:
2747: \nobreak
2748: \@readbblfile
2749: \fi
2750: }%
2751: \let\bibdata = \@gobble
2752: %
2753: % The \nocite{label,label,...} command writes its argument to \@auxfile,
2754: % unless instructed not to, but produces no text in the document. Both
2755: % the \nocite and \cite commands produce \citation commands in the .aux file.
2756: %
2757: \def\nocite#1{%
2758: \@readauxfile
2759: \@writeaux{\string\citation{#1}}%
2760: }%
2761: %
2762: \@innernewif\if@notfirstcitation
2763: %
2764: % \cite[note]{label,label,...} produces the citations for the labels as
2765: % well. If the optional argument `note' is present, it's added after
2766: % the labels. Since \cite calls \nocite to do its .aux-file writing,
2767: % \cite doesn't need to call \@readauxfile (\nocite does).
2768: %
2769: \def\cite{\@getoptionalarg\@cite}%
2770: %
2771: % Typeset the citations for the labels in #1, followed by the note, if
2772: % it exists. To change the citation's format in the text, redefine one
2773: % or more `\print...' macros, whose defaults appear later in this file.
2774: %
2775: \def\@cite#1{%
2776: % Remember the optional argument, in case one of the macros we call
2777: % below ends up looking for an optional argument itself. For
2778: % example, if a \cite[note] triggers reading the .aux file, then the
2779: % [note] would be clobbered, since \@testfileexistence looks for an
2780: % optional arg.
2781: \let\@citenotetext = \@optionalarg
2782: % Start printing the text, beginning with a left bracket by default.
2783: \printcitestart
2784: % It's complicated, but because \nocite puts a `whatsit' onto the list,
2785: % \nocite should follow \printcitestart. It's conceivable, but very
2786: % unlikely, that this `whatsit' will cause a problem (glue that doesn't
2787: % disappear when you want it to is the most likely symptom), requiring
2788: % a change either to \printcitestart or to the label that the .bst file
2789: % produces.
2790: \nocite{#1}%
2791: \@notfirstcitationfalse
2792: \@for \@citation :=#1\do
2793: {%
2794: \expandafter\@onecitation\@citation\@@
2795: }%
2796: \ifx\empty\@citenotetext\else
2797: \printcitenote{\@citenotetext}%
2798: \fi
2799: \printcitefinish
2800: }%
2801: %
2802: \newif\ifweareinprivate
2803: \weareinprivatetrue
2804: \ifx\shlhetal\undefinedcontrolseq\weareinprivatefalse\fi
2805: \ifx\shlhetal\relax\weareinprivatefalse\fi
2806: \def\@onecitation#1\@@{%
2807: \if@notfirstcitation
2808: \printbetweencitations
2809: \fi
2810: %
2811: \expandafter \ifx \csname\@citelabel{#1}\endcsname \relax
2812: \if@citewarning
2813: \message{\@linenumber Undefined citation `#1'.}%
2814: \fi
2815: % Give it a dummy definition:
2816: \ifweareinprivate
2817: \expandafter\gdef\csname\@citelabel{#1}\endcsname{%
2818: % Change: marginal remark added, goldstrn@math.huji.ac.il,
2819: % goldstern@tuwien.ac.at, May 1996 mg
2820: % !!! change !!!
2821: \strut
2822: \vadjust{\vskip-\dp\strutbox
2823: \vbox to 0pt{\vss\parindent0cm \leftskip=\hsize
2824: \advance\leftskip3mm
2825: \advance\hsize 4cm\strut\openup-4pt
2826: \rightskip 0cm plus 1cm minus 0.5cm ? #1 ?\strut}}
2827: {\tt
2828: \escapechar = -1
2829: \nobreak\hskip0pt\pfeilsw%\special{ps:100 0 0 setrgbcolor }%
2830: \expandafter\string\csname#1\endcsname
2831: %\special{ps:0 0 0 setrgbcolor }
2832: \pfeilso
2833: \nobreak\hskip0pt
2834: }%
2835: }%
2836: \else % ifweareinprivate = false
2837: \expandafter\gdef\csname\@citelabel{#1}\endcsname{%
2838: {\tt\expandafter\string\csname#1\endcsname}
2839: }%
2840: \fi % ifweareinprivate
2841: \fi
2842: % Now produce the text, whether it was undefined or not.
2843: \csname\@citelabel{#1}\endcsname
2844: \@notfirstcitationtrue
2845: }%
2846: %
2847: % Given a label `foo', the macro `\b@foo' is supposed to
2848: % hold the text that should be produced.
2849: %
2850: \def\@citelabel#1{b@#1}%
2851: %
2852: % So, how does a citation label get defined? When we read the .bbl file
2853: % (below), a \bibitem writes out a \@citedef command. And when we read
2854: % the \@citedef, we define \@citelabel{#1}, where #1 is the user's
2855: % label.
2856: %
2857: \def\@citedef#1#2{\expandafter\gdef\csname\@citelabel{#1}\endcsname{#2}}%
2858: %
2859: %
2860: % Reading the .bbl file also produces the typeset bibliography. Please
2861: % notice, however, that we do not produce the title for the references
2862: % (e.g., `References'), as LaTeX does. The formatting and spacing of
2863: % that title, whether it should go into the headline, and so on, are all
2864: % things determined by your format. We cannot know those things in
2865: % advance. If you wish, you can define \bblhook to produce the title.
2866: % Or just do it before the \bibliography command.
2867: %
2868: \def\@readbblfile{%
2869: % Define a counter to tell us which item number we are on, unless
2870: % we've already defined it (because the document has more than one
2871: % bibliography).
2872: \ifx\@itemnum\@undefined
2873: \@innernewcount\@itemnum
2874: \fi
2875: %
2876: \begingroup
2877: \def\begin##1##2{%
2878: % ##1 is just `thebibliography'.
2879: % ##2 is the widest label.
2880: % We set (new dimen) \biblabelwidth based on the widest label
2881: \setbox0 = \hbox{\biblabelcontents{##2}}%
2882: \biblabelwidth = \wd0
2883: }%
2884: \def\end##1{}% ##1 is `thebibliography' again.
2885: %
2886: % Here we have two possibilities:
2887: % \bibitem[typesetlabel]{citationlabel}
2888: % \bibitem{citationlabel}
2889: % If we have the second of these, the citations are numbered, starting
2890: % from one; we use our own count register \@itemnum for this.
2891: %
2892: \@itemnum = 0
2893: \def\bibitem{\@getoptionalarg\@bibitem}%
2894: \def\@bibitem{%
2895: \ifx\@optionalarg\empty
2896: \expandafter\@numberedbibitem
2897: \else
2898: \expandafter\@alphabibitem
2899: \fi
2900: }%
2901: \def\@alphabibitem##1{%
2902: % Need \xdef here for various reasons.
2903: \expandafter \xdef\csname\@citelabel{##1}\endcsname {\@optionalarg}%
2904: % Left-justify alpha labels, unless \biblabel{pre,post}contents
2905: % are already defined.
2906: \ifx\biblabelprecontents\@undefined
2907: \let\biblabelprecontents = \relax
2908: \fi
2909: \ifx\biblabelpostcontents\@undefined
2910: \let\biblabelpostcontents = \hss
2911: \fi
2912: \@finishbibitem{##1}%
2913: }%
2914: %
2915: \def\@numberedbibitem##1{%
2916: \advance\@itemnum by 1
2917: \expandafter \xdef\csname\@citelabel{##1}\endcsname{\number\@itemnum}%
2918: % Right-justify numeric labels, unless \biblabel{pre,post}contents
2919: % are already defined.
2920: \ifx\biblabelprecontents\@undefined
2921: \let\biblabelprecontents = \hss
2922: \fi
2923: \ifx\biblabelpostcontents\@undefined
2924: \let\biblabelpostcontents = \relax
2925: \fi
2926: \@finishbibitem{##1}%
2927: }%
2928: %
2929: \def\@finishbibitem##1{%
2930: \biblabelprint{\csname\@citelabel{##1}\endcsname}%
2931: \@writeaux{\string\@citedef{##1}{\csname\@citelabel{##1}\endcsname}}%
2932: \ignorespaces
2933: }%
2934: %
2935: % Do the printing (we're producing the bibliography, remember).
2936: %
2937: \let\em = \bblem
2938: \let\newblock = \bblnewblock
2939: \let\sc = \bblsc
2940: % Punctuation won't affect spacing;
2941: \frenchspacing
2942: % the penalties below are from LaTeX's [article,book,report].sty;
2943: \clubpenalty = 4000 \widowpenalty = 4000
2944: % the next two values come from LaTeX's \sloppy command;
2945: \tolerance = 10000 \hfuzz = .5pt
2946: \everypar = {\hangindent = \biblabelwidth
2947: \advance\hangindent by \biblabelextraspace}%
2948: \bblrm
2949: % the \parskip is a guess at what looks good;
2950: \parskip = 1.5ex plus .5ex minus .5ex
2951: % and the space between label and text comes from LaTeX's \labelsep.
2952: \biblabelextraspace = .5em
2953: \bblhook
2954: %
2955: \input \bblfilebasename.bbl
2956: \endgroup
2957: }%
2958: %
2959: % The widest label's width is useful for redefining \biblabelprint;
2960: % you redefine \biblabelwidth, in effect, by redefining the
2961: % \biblabelcontents macro that appears below. And \biblabelextraspace,
2962: % which is redefinable inside \bblhook, is added to \biblabelwidth to
2963: % determine the amount of hanging indentation.
2964: %
2965: \@innernewdimen\biblabelwidth
2966: \@innernewdimen\biblabelextraspace
2967: %
2968: % Now come the main macros that are related to the printing of the
2969: % bibliography. Since you might want to redefine them, they are given
2970: % default definitions outside of \@readbblfile.
2971: %
2972: % The first one controls the printing of a bibliography entry's label.
2973: % If you change it, make sure that it starts with something like
2974: % \noindent or \indent or \leavevmode that puts TeX into horizontal mode
2975: % (even if the label itself is empty); otherwise, the hanging
2976: % indentation will get messed up in certain circumstances.
2977: %
2978: \def\biblabelprint#1{%
2979: \noindent
2980: \hbox to \biblabelwidth{%
2981: \biblabelprecontents
2982: \biblabelcontents{#1}%
2983: \biblabelpostcontents
2984: }%
2985: \kern\biblabelextraspace
2986: }%
2987: %
2988: % If you are using numeric labels, and you want them left-justified
2989: % (numeric labels by default are right-justified), do something like:
2990: % \def\biblabelprecontents{\relax}
2991: % \def\biblabelpostcontents{\hss}
2992: %
2993: % By default the labels are typeset in \bblrm, and enclosed in brackets.
2994: %
2995: \def\biblabelcontents#1{{\bblrm [#1]}}%
2996: %
2997: % The main text, too, is typeset using \bblrm, which is \rm by default.
2998: %
2999: \def\bblrm{\rm}%
3000: %
3001: % Emphasis for producing, e.g., titles, is done with \it by default.
3002: %
3003: \def\bblem{\it}%
3004: %
3005: % Some styles use a caps-and-small-caps font for author names. LaTeX
3006: % defines an \sc command but plain TeX doesn't, so we need one here.
3007: % The definition below doesn't load the font unless it's needed, but it
3008: % tries to load only the 10pt version, because it might not exist at
3009: % other point sizes.
3010: %
3011: \def\bblsc{\ifx\@scfont\@undefined
3012: \font\@scfont = cmcsc10
3013: \fi
3014: \@scfont
3015: }%
3016: %
3017: % The major parts of an entry are separated with \bblnewblock. The
3018: % numbers below are taken from LaTeX's `article' style.
3019: %
3020: \def\bblnewblock{\hskip .11em plus .33em minus .07em }%
3021: %
3022: % Here's where you stick any other bibliography-formatting goodies, or
3023: % redefine the values above.
3024: %
3025: \let\bblhook = \empty
3026: %
3027: %
3028: % Here are the four default definitions for formatting the in-text
3029: % citations. These are what you redefine (after your \input btxmac but
3030: % before your \bibliography) to get parens instead of brackets, or
3031: % superscripts, or footnotes, or whatever.
3032: %
3033: \def\printcitestart{[}% left bracket
3034: \def\printcitefinish{]}% right bracket
3035: \def\printbetweencitations{, }% comma, space
3036: \def\printcitenote#1{, #1}% comma, space, note (if it exists)
3037: %
3038: % That scheme is pretty flexible. For example you could use
3039: % \def\printcitestart{\unskip $^\bgroup}
3040: % \def\printcitefinish{\egroup$}
3041: % \def\printbetweencitations{,}
3042: % \def\printcitenote#1{\hbox{\sevenrm\space (#1)}}
3043: % \font\eighttt = cmtt8
3044: % \scriptfont\ttfam = \eighttt
3045: % to get superscripted in-text citations. (The scriptfont stuff
3046: % exists only to print an undefined citation; it's in cmtt8 because
3047: % there is no cmtt7.) To get something radically different, however,
3048: % you'll have to define your own \cite command.
3049: %
3050: % When we read `\citation' from the .aux file, it means nothing.
3051: %
3052: \let\citation = \@gobble
3053: %
3054: %
3055: % Now comes the stuff for dealing with LaTeX's \newcommand. As
3056: % mentioned earlier, this \newcommand will redefine a preexisting
3057: % command; that's different from how LaTeX's \newcommand behaves.
3058: %
3059: \@innernewcount\@numparams
3060: %
3061: % \newcommand{\foo}[n]{text} defines the control sequence \foo to have
3062: % n parameters, and replacement text `text'.
3063: %
3064: \def\newcommand#1{%
3065: \def\@commandname{#1}%
3066: \@getoptionalarg\@continuenewcommand
3067: }%
3068: %
3069: % Figure out if this definition has parameters.
3070: %
3071: \def\@continuenewcommand{%
3072: % If no optional argument, we have zero parameters. Otherwise, we
3073: % have that many.
3074: \@numparams = \ifx\@optionalarg\empty 0\else\@optionalarg \fi \relax
3075: \@newcommand
3076: }%
3077: %
3078: % \@numparams is how many arguments this command has. The name of the
3079: % command is \@commandname. The replacement text for the new macro is #1.
3080: %
3081: \def\@newcommand#1{%
3082: \def\@startdef{\expandafter\edef\@commandname}%
3083: \ifnum\@numparams=0
3084: \let\@paramdef = \empty
3085: \else
3086: \ifnum\@numparams>9
3087: \errmessage{\the\@numparams\space is too many parameters}%
3088: \else
3089: \ifnum\@numparams<0
3090: \errmessage{\the\@numparams\space is too few parameters}%
3091: \else
3092: \edef\@paramdef{%
3093: % This is disgusting, but \loop doesn't work inside \edef,
3094: % because \body isn't defined.
3095: \ifcase\@numparams
3096: \empty No arguments.
3097: \or ####1%
3098: \or ####1####2%
3099: \or ####1####2####3%
3100: \or ####1####2####3####4%
3101: \or ####1####2####3####4####5%
3102: \or ####1####2####3####4####5####6%
3103: \or ####1####2####3####4####5####6####7%
3104: \or ####1####2####3####4####5####6####7####8%
3105: \or ####1####2####3####4####5####6####7####8####9%
3106: \fi
3107: }%
3108: \fi
3109: \fi
3110: \fi
3111: \expandafter\@startdef\@paramdef{#1}%
3112: }%
3113: %
3114: %% [[[end of BibTeX-specific stuff]]]
3115: %
3116: %
3117: % Names of references (arguments given in the \cite and \nocite
3118: % commands) and file names (arguments given in the \bibliography and
3119: % \bibliographystyle commands) are recorded in \jobname.aux, called the
3120: % \@auxfile in these macros. Here's how they get read in.
3121: %
3122: \def\@readauxfile{%
3123: \if@auxfiledone \else % remember: \@auxfiledonetrue if \noauxfile is defined
3124: \global\@auxfiledonetrue
3125: \@testfileexistence{aux}%
3126: \if@fileexists
3127: \begingroup
3128: % Because we might be in horizontal mode when \@readauxfile
3129: % is called (if it's in response to a \cite or \nocite), we
3130: % want to ignore all the would-be spaces at the ends of
3131: % lines in the aux file. Fortunately, it's highly unlikely
3132: % an end-of-line might actually be desired.
3133: % And because we don't change the category code of anything
3134: % but @, primitives like \gdef can't be used to define labels
3135: % in the aux file. The solution adopted by btxmac.tex is to
3136: % write `\@citedef{LABEL}{DEFINITION}' to the aux file, and
3137: % use \csname on LABEL.
3138: \endlinechar = -1
3139: \catcode`@ = 11
3140: \input \jobname.aux
3141: \endgroup
3142: \else
3143: \message{\@undefinedmessage}%
3144: \global\@citewarningfalse
3145: \fi
3146: \immediate\openout\@auxfile = \jobname.aux
3147: \fi
3148: }%
3149: %
3150: % The \@readauxfile macro does all that work the first time it's called.
3151: % Since it's called once for every \cite, \nocite, \bibliography, and
3152: % \bibliographystyle command that the user issues, we need to remember
3153: % whether the work's been done. It's considered done if we're not to do
3154: % it---that is, if \noauxfile is defined.
3155: %
3156: \newif\if@auxfiledone
3157: \ifx\noauxfile\@undefined \else \@auxfiledonetrue\fi
3158: %
3159: % It's conceivable you'd want to change how other characters are read;
3160: % to do that, change their category code before doing \input btxmac.
3161: %
3162: %
3163: % After reading the .aux file, \@readauxfile opens it for writing.
3164: % The \@writeaux macro does the actual writing (as long as
3165: % \noauxfile is undefined).
3166: %
3167: \@innernewwrite\@auxfile
3168: \def\@writeaux#1{\ifx\noauxfile\@undefined \write\@auxfile{#1}\fi}%
3169: %
3170: %
3171: % A macro package that uses btxmac.tex might define
3172: % \@undefinedmessage (before doing an \input btxmac).
3173: %
3174: \ifx\@undefinedmessage\@undefined
3175: \def\@undefinedmessage{No .aux file; I won't give you warnings about
3176: undefined citations.}%
3177: \fi
3178: %
3179: % Even if citations are undefined, we want to complain only if
3180: % \@citewarningtrue. The default is to set \@citewarningtrue unless
3181: % \noauxfile is defined. Again, a macro package that uses
3182: % btxmac.tex might want to redefine this.
3183: %
3184: \@innernewif\if@citewarning
3185: \ifx\noauxfile\@undefined \@citewarningtrue\fi
3186: %
3187: %
3188: % Finally, before leaving we restore @'s old category code.
3189: %
3190: \catcode`@ = \@oldatcatcode
3191:
3192:
3193:
3194: \def\pfeilso{\leavevmode
3195: \vrule width 1pt height9pt depth 0pt\relax
3196: \vrule width 1pt height8.7pt depth 0pt\relax
3197: \vrule width 1pt height8.3pt depth 0pt\relax
3198: \vrule width 1pt height8.0pt depth 0pt\relax
3199: \vrule width 1pt height7.7pt depth 0pt\relax
3200: \vrule width 1pt height7.3pt depth 0pt\relax
3201: \vrule width 1pt height7.0pt depth 0pt\relax
3202: \vrule width 1pt height6.7pt depth 0pt\relax
3203: \vrule width 1pt height6.3pt depth 0pt\relax
3204: \vrule width 1pt height6.0pt depth 0pt\relax
3205: \vrule width 1pt height5.7pt depth 0pt\relax
3206: \vrule width 1pt height5.3pt depth 0pt\relax
3207: \vrule width 1pt height5.0pt depth 0pt\relax
3208: \vrule width 1pt height4.7pt depth 0pt\relax
3209: \vrule width 1pt height4.3pt depth 0pt\relax
3210: \vrule width 1pt height4.0pt depth 0pt\relax
3211: \vrule width 1pt height3.7pt depth 0pt\relax
3212: \vrule width 1pt height3.3pt depth 0pt\relax
3213: \vrule width 1pt height3.0pt depth 0pt\relax
3214: \vrule width 1pt height2.7pt depth 0pt\relax
3215: \vrule width 1pt height2.3pt depth 0pt\relax
3216: \vrule width 1pt height2.0pt depth 0pt\relax
3217: \vrule width 1pt height1.7pt depth 0pt\relax
3218: \vrule width 1pt height1.3pt depth 0pt\relax
3219: \vrule width 1pt height1.0pt depth 0pt\relax
3220: \vrule width 1pt height0.7pt depth 0pt\relax
3221: \vrule width 1pt height0.3pt depth 0pt\relax}
3222:
3223: \def\pfeilnw{\leavevmode
3224: \vrule width 1pt height 9pt depth -9pt
3225: \vrule width 1pt height 9pt depth -8.7pt
3226: \vrule width 1pt height 9pt depth -8.3pt
3227: \vrule width 1pt height 9pt depth -8.0pt
3228: \vrule width 1pt height 9pt depth -7.7pt
3229: \vrule width 1pt height 9pt depth -7.3pt
3230: \vrule width 1pt height 9pt depth -7.0pt
3231: \vrule width 1pt height 9pt depth -6.7pt
3232: \vrule width 1pt height 9pt depth -6.3pt
3233: \vrule width 1pt height 9pt depth -6.0pt
3234: \vrule width 1pt height 9pt depth -5.7pt
3235: \vrule width 1pt height 9pt depth -5.3pt
3236: \vrule width 1pt height 9pt depth -5.0pt
3237: \vrule width 1pt height 9pt depth -4.7pt
3238: \vrule width 1pt height 9pt depth -4.3pt
3239: \vrule width 1pt height 9pt depth -4.0pt
3240: \vrule width 1pt height 9pt depth -3.7pt
3241: \vrule width 1pt height 9pt depth -3.3pt
3242: \vrule width 1pt height 9pt depth -3.0pt
3243: \vrule width 1pt height 9pt depth -2.7pt
3244: \vrule width 1pt height 9pt depth -2.3pt
3245: \vrule width 1pt height 9pt depth -2.0pt
3246: \vrule width 1pt height 9pt depth -1.7pt
3247: \vrule width 1pt height 9pt depth -1.3pt
3248: \vrule width 1pt height 9pt depth -1.0pt
3249: \vrule width 1pt height 9pt depth -0.7pt
3250: \vrule width 1pt height 9pt depth -0.3pt }
3251:
3252:
3253: \def\pfeilsw{ \leavevmode
3254: \vrule width 1pt height0.3pt depth 0pt\relax
3255: \vrule width 1pt height0.7pt depth 0pt\relax
3256: \vrule width 1pt height1.0pt depth 0pt\relax
3257: \vrule width 1pt height1.3pt depth 0pt\relax
3258: \vrule width 1pt height1.7pt depth 0pt\relax
3259: \vrule width 1pt height2.0pt depth 0pt\relax
3260: \vrule width 1pt height2.3pt depth 0pt\relax
3261: \vrule width 1pt height2.7pt depth 0pt\relax
3262: \vrule width 1pt height3.0pt depth 0pt\relax
3263: \vrule width 1pt height3.3pt depth 0pt\relax
3264: \vrule width 1pt height3.7pt depth 0pt\relax
3265: \vrule width 1pt height4.0pt depth 0pt\relax
3266: \vrule width 1pt height4.3pt depth 0pt\relax
3267: \vrule width 1pt height4.7pt depth 0pt\relax
3268: \vrule width 1pt height5.0pt depth 0pt\relax
3269: \vrule width 1pt height5.3pt depth 0pt\relax
3270: \vrule width 1pt height5.7pt depth 0pt\relax
3271: \vrule width 1pt height6.0pt depth 0pt\relax
3272: \vrule width 1pt height6.3pt depth 0pt\relax
3273: \vrule width 1pt height6.7pt depth 0pt\relax
3274: \vrule width 1pt height7.0pt depth 0pt\relax
3275: \vrule width 1pt height7.3pt depth 0pt\relax
3276: \vrule width 1pt height7.7pt depth 0pt\relax
3277: \vrule width 1pt height8.0pt depth 0pt\relax
3278: \vrule width 1pt height8.3pt depth 0pt\relax
3279: \vrule width 1pt height8.7pt depth 0pt\relax
3280: \vrule width 1pt height9pt depth 0pt\relax
3281: }
3282:
3283: \def\pfeilno{ \leavevmode
3284: \vrule width 1pt height 9pt depth -0.3pt
3285: \vrule width 1pt height 9pt depth -0.7pt
3286: \vrule width 1pt height 9pt depth -1.0pt
3287: \vrule width 1pt height 9pt depth -1.3pt
3288: \vrule width 1pt height 9pt depth -1.7pt
3289: \vrule width 1pt height 9pt depth -2.0pt
3290: \vrule width 1pt height 9pt depth -2.3pt
3291: \vrule width 1pt height 9pt depth -2.7pt
3292: \vrule width 1pt height 9pt depth -3.0pt
3293: \vrule width 1pt height 9pt depth -3.3pt
3294: \vrule width 1pt height 9pt depth -3.7pt
3295: \vrule width 1pt height 9pt depth -4.0pt
3296: \vrule width 1pt height 9pt depth -4.3pt
3297: \vrule width 1pt height 9pt depth -4.7pt
3298: \vrule width 1pt height 9pt depth -5.0pt
3299: \vrule width 1pt height 9pt depth -5.3pt
3300: \vrule width 1pt height 9pt depth -5.7pt
3301: \vrule width 1pt height 9pt depth -6.0pt
3302: \vrule width 1pt height 9pt depth -6.3pt
3303: \vrule width 1pt height 9pt depth -6.7pt
3304: \vrule width 1pt height 9pt depth -7.0pt
3305: \vrule width 1pt height 9pt depth -7.3pt
3306: \vrule width 1pt height 9pt depth -7.7pt
3307: \vrule width 1pt height 9pt depth -8.0pt
3308: \vrule width 1pt height 9pt depth -8.3pt
3309: \vrule width 1pt height 9pt depth -8.7pt
3310: \vrule width 1pt height 9pt depth -9pt
3311: }
3312:
3313:
3314: % *** end including bib4plain.tex ***
3315: % This will define \cite and make sure it works as in latex
3316:
3317:
3318: \def\widestnumber#1#2{}
3319: % Our amstex-ppt style does not know about \widestnumber
3320:
3321:
3322:
3323:
3324: \def\citewarning#1{\ifx\shlhetal\relax
3325: % normal mode, do not write anything
3326: \else
3327: % private mode
3328: \par{#1}\par
3329: \fi
3330: }
3331:
3332:
3333:
3334:
3335: \def\rm{\fam0 \tenrm}
3336:
3337:
3338: \def\fakesubhead#1\endsubhead{\bigskip\noindent{\bf#1}\par}
3339:
3340:
3341: % % \input rsfs
3342: % *** start including rsfs.tex ***
3343:
3344: % # Keywords: Script or Calligraphic (Caligraphic) letters with the RSFS Font
3345:
3346: % The story so far: July 1998 -- Saharon would like to have a
3347: % ``nicer'' calligraphic font. In particualr, the leters S and P in
3348: % the usual calligraphic font do not look ``special'' enough.
3349: %
3350: % I found out that ``rsfs'' (``Ralph Smith Formal Script'') may be
3351: % what he wants. I installed the mf file, the .tfm file, as well as
3352: % a few pk files in ~/TeX/rsfs. Let's hope that this is enough.
3353: % Using amstex, all you have to do is to \input rsfs.tex
3354: % Files prepared with citealice willdothis automatically.
3355: %
3356: % Note: for some reason xdvi calls MakeTeXpk, then Maketexpk
3357: % complains about wrong resolution, but still writes commands to
3358: % missfont.log...
3359: %
3360:
3361:
3362:
3363: % we redefine a macro inside amstex's \Cal command , so that it calls
3364: % our nice font ``rsfs'' rather than the usual calligraphic font.
3365: % Note thisworks for amstex only.
3366: % In plain tex, would have to add definitions of \Cal
3367: % in latex... we should insteaduse mathrsfs.sty
3368: %
3369:
3370:
3371:
3372: \font\textrsfs=rsfs10
3373: \font\scriptrsfs=rsfs7
3374: \font\scriptscriptrsfs=rsfs5
3375:
3376:
3377: \newfam\rsfsfam
3378: \textfont\rsfsfam=\textrsfs
3379: \scriptfont\rsfsfam=\scriptrsfs
3380: \scriptscriptfont\rsfsfam=\scriptscriptrsfs
3381:
3382:
3383: \edef\oldcatcodeofat{\the\catcode`\@}
3384: \catcode`\@11
3385:
3386: \def\Cal@@#1{\noaccents@ \fam \rsfsfam #1}
3387:
3388: \catcode`\@\oldcatcodeofat
3389:
3390: % *** end including rsfs.tex ***
3391:
3392: \expandafter\ifx \csname margininit\endcsname \relax\else\margininit\fi
3393:
3394:
3395:
3396: \long\def\red#1\endred{}
3397: \long\def\green#1\endgreen{}
3398: \long\def\blue#1\endblue{}
3399: \long\def\private#1\endprivate{}
3400:
3401: \def\endred{ \unmatched endred! }
3402: \def\endgreen{ \unmatched endgreen! }
3403: \def\endblue{ \unmatched endblue! }
3404: \def\endprivate{ \unmatched endprivate! }
3405:
3406: \ifx\latexcolors\undefinedcs\def\latexcolors{}\fi
3407:
3408: \def\emptycs{}
3409: \def\evaluatelatexcolors{%
3410: \ifx\latexcolors\emptycs\else
3411: \expandafter\xxevaluate\latexcolors\xxfertig\evaluatelatexcolors\fi}
3412: \def\xxevaluate#1,#2\xxfertig{\setupthiscolor{#1}%
3413: \def\latexcolors{#2}}
3414:
3415: \def\definedred{rgb 0.5 0 0}
3416: \def\definedgreen{rgb 0 0.5 0}
3417: \def\definedblue{rgb 0 0 0.5}
3418: % \def\definedprivate{rgb 0.5 0 0.5}
3419: \def\definedprivate{rgb 0 0 0 } % black
3420:
3421: \font\smallfont=cmsl7
3422: \def\rutgerscolor{\ifmmode\else\endgraf\fi\smallfont% \vrule width 3cm height 1cm depth 0cm
3423: \advance\leftskip0.5cm\relax}
3424: \def\setupthiscolor#1{\edef\tmptmpcs{\noexpand\bgroup\noexpand\rutgerscolor
3425: \noexpand\def\noexpand\currentcolor{#1}%
3426: \noexpand\special{color push \csname defined#1\endcsname}}%
3427: \expandafter\let\csname#1\endcsname\tmptmpcs
3428: \def\tmptmpcs{\checkColorUnmatched{#1}\popthecolor}
3429: \expandafter\let\csname end#1\endcsname\tmptmpcs}
3430:
3431: \def\checkColorUnmatched#1{\def\expectcolor{#1}%
3432: \ifx\expectcolor\currentcolor % OK!
3433: \else \edef\failhere{\noexpand\tryingToClose '\currentcolor' with end\expectcolor}\failhere\fi}
3434:
3435: \def\currentcolor{???}
3436:
3437:
3438:
3439: \def\popthecolor{\special{color pop}\ifmmode\else\endgraf\fi\egroup}
3440:
3441: \expandafter\def\csname#1\endcsname{\special{color push}}
3442:
3443: \evaluatelatexcolors
3444:
3445:
3446: \let\outerhead\head
3447: \def\head{\innerhead}
3448: \let\innerhead\outerhead
3449:
3450: \let\outersubhead\subhead
3451: \def\subhead{\innersubhead}
3452: \let\innersubhead\outersubhead
3453:
3454: \let\outersubsubhead\subsubhead
3455: \def\subsubhead{\innersubsubhead}
3456: \let\innersubsubhead\outersubsubhead
3457:
3458:
3459:
3460: \let\outerproclaim\proclaim
3461: \def\proclaim{\innerproclaim}
3462: \let\innerproclaim\outerproclaim
3463:
3464:
3465:
3466: %
3467: % \newdimen\wzero
3468: % \newdimen\hzero
3469: % \newdimen\dzero
3470: %
3471: % \def\whiteblack#1{\ifx \shlhetal\relax
3472: % \hbox{#1}% normal mode
3473: % \else\ifx\shlhetal\undefinedcontrolsequence
3474: % \hbox{#1}% normal mode
3475: % \else
3476: % % private mode
3477: % \setbox0=\hbox{#1}\leavevmode
3478: % \wzero=\wd0\hzero=\ht0\dzero=\dp0
3479: % \advance\wzero1mm
3480: % \advance\dzero1mm
3481: % \advance\hzero1mm
3482: % \hbox{\vrule width \wzero height \hzero depth\dzero\hskip-\wzero
3483: % \special{ps: currentgray 1 setgray}%
3484: % \hbox to \wzero{\hss\copy0\hss}%
3485: % \special{ps:setgray}}\fi\fi
3486: % }
3487: %
3488: %
3489:
3490: \def\demo#1{\medskip\noindent{\it #1.\/}}
3491: \def\enddemo{\smallskip}
3492:
3493: \def\remark#1{\medskip\noindent{\it #1.\/}}
3494: \def\endremark{\smallskip}
3495:
3496: \def\beginaside{\endgraf\leftskip2cm \vrule width 0pt\relax}
3497: \def\endaside{\endgraf\leftskip0cm \vrule width 0pt\relax}
3498:
3499: % *** end including alice2jlem.tex ***
3500: \pageheight{8.5truein}
3501: %\pageheight{48.5pc}
3502: \topmatter
3503: \title{The height of the automorphism tower of a group} \endtitle
3504: \author {Saharon Shelah \thanks {\null\newline I would like to thank
3505: Alice Leonhardt for the beautiful typing. \null\newline
3506: Research partially supported by NSF Grant No. NSF-DMS 0100794. Publication 810
3507: } \endthanks} \endauthor
3508:
3509: \affil{Institute of Mathematics\\
3510: The Hebrew University of Jerusalem \\
3511: Einstein Institute of Mathematics \\
3512: Edmond J. Safra Campus, Givat Ram \\
3513: Jerusalem 91904, Israel
3514: \medskip
3515: Department of Mathematics \\
3516: Hill Center-Busch Campus \\
3517: Rutgers, The State University of New Jersey \\
3518: 110 Frelinghuysen Road \\
3519: Piscataway, NJ 08854-8019 USA} \endaffil
3520:
3521: \abstract For a group $G$ with trivial center there is a natural
3522: embedding of $G$ into its automorphism group, so we can look at the
3523: latter as an extension of the group. So an increasing continuous
3524: sequence of groups, the automorphism tower, is defined, the height is
3525: the ordinal where this becomes fixed, arriving to a complete group.
3526: We show that for many such $\kappa$ there is a group of
3527: height $> 2^\kappa$, so proving that the upper bound essentially
3528: cannot be improved. \endabstract
3529: \endtopmatter
3530: \document
3531:
3532:
3533: \newpage
3534:
3535: \head {\S0 Introduction} \endhead \resetall \sectno=0
3536: \spuriousreset
3537: \bigskip
3538:
3539: For a group $G$ with trivial center there is a natural embedding of
3540: $G$ into its automorphism group Aut$(G)$ where $g \in G$ is mapped to the
3541: inner automorphism $x \mapsto g x g^{-1}$ which is defined and is not
3542: the identity for $g \ne e_G$ as $G$ has a trivial center, so
3543: we can view Aut$(G)$ as a group extending $G$. Also the extension
3544: Aut$(G)$ is a group with trivial center, so we can continue defining
3545: $G^{<\alpha>}$ increasing with $\alpha$ for every ordinal $\alpha$;
3546: let $\tau_G$ be when we stop,
3547: i.e., the first $\alpha$ such that $G^{< \alpha +1>} = G^{<\alpha>}$
3548: (or $\alpha = \infty$ but see below) hence
3549: $\beta > \alpha \Rightarrow G^{<\beta>} = G^{<\alpha>}$, (see Definition
3550: \scite{0.1}). How large can $\tau_G$ be?
3551:
3552: Weilant \cite{Wel39} proves that for finite $G,\tau_G$ is finite.
3553: Thomas \cite{Th85} celebrated work proves for infinite $G$ that
3554: $\tau_G \le (2^{|G|})^+$, in fact as noted by Felgner and Thomas
3555: $\tau_G < (2^{|G|})^+$. Thomas shows also that $\tau_\kappa \ge
3556: \kappa^+$. Later he (\cite{Th98}) showed that if $\kappa =
3557: \kappa^{< \kappa},2^\kappa = \kappa^+$ (hence $\tau_\kappa <
3558: \kappa^{++}$ in $\bold V$) and $\lambda \ge \kappa^{++}$ and we force by
3559: $\Bbb P$, the forcing of
3560: adding $\lambda$ Cohen subsets to $\kappa$, then in
3561: $\bold V^{\Bbb P}$ we still have $\tau_\kappa < \kappa^{++}$ though
3562: $2^\kappa$ is $\ge \lambda$ (and $\bold V,\bold V^{\Bbb P}$ has the
3563: same cardinals). \nl
3564:
3565: Just Shelah and Thomas \cite{JShT:654} prove that when $\kappa =
3566: \kappa^{< \kappa} < \lambda$, in some forcing
3567: extension (by a specially constructed $\kappa$-complete $\kappa^+$-c.c. forcing
3568: notion) we have $\tau_\kappa \ge \lambda$, so consistently
3569: $\tau_\kappa > 2^\kappa > \kappa^+$ for some $\kappa$.
3570: An important lemma there which
3571: we shall use (see \scite{0.5} below)
3572: is that if $G$ is the automorphism group of a structure of
3573: cardinality $\kappa,H \subseteq G,|H| \le \kappa$ then $\tau'_{G,H}$,
3574: the normalizer
3575: length of $H$ in $G$ (see Definition \scite{0.2}(2)), is $<
3576: \tau_\kappa$. Concerning groups with center Hamkins show that $\tau_G
3577: <$ the first strongly inaccessible cardinal $> |G|$. On the subject
3578: see the forthcoming book of Thomas.
3579: \bn
3580: We shall show, e.g.
3581: \proclaim{\stag{0.0} Theorem} If $\kappa$ is
3582: strong limit singular of uncountable cofinality \ub{then}
3583: $\tau_\kappa > 2^\kappa$.
3584: \endproclaim
3585: \bn
3586: It would have been nice if the lower bound for $\tau_\kappa,\kappa^+$
3587: would (consistently) be the correct one,
3588: but Theorem \scite{0.0} shows that this is
3589: not so.
3590: Note that Theorem \scite{0.0} shows that provably in ZFC, in general
3591: the upper bound $(2^\kappa)^+$ cannot be improved.
3592: See Conclusion \scite{p.5} for proof of the theorem,
3593: quoting results from
3594: pcf theory. We thank Simon Thomas, the referee and Itay Kaplan for
3595: many valuable complaints detecting serious problems in earlier versions.
3596:
3597: The program, described in a simplified way, is that for each
3598: so called ``$\kappa$-parameter $\bold p$" which
3599: includes a partial order $I$ we define a group $G_{\bold p}$
3600: and a two element subgroup $H_{\bold p}$ such that $\langle
3601: \text{nor}^\alpha_{G_{\bold p}}(H_{\bold p}):\alpha \le { \text{\rm rk\/}}
3602: ^{< \infty}_I\rangle$ ``reflect" rk$^{< \infty}_I = { \text{\rm
3603: rk\/}}_{\bold p}$, the natural rank on $I$ (see Definition
3604: \scite{m.1}), so in particular $\tau'_{G_{\bold p},H_{\bold p}} =
3605: \text{ rk}^{< \infty}_{\bold p}$. (Actually in the end we shall get
3606: only $H$ of cardinality $\le \kappa$).
3607:
3608: We use an inverse system ${\frak s} = \langle {\bold p}_u,\pi_{u,v}:u \le_J v
3609: \rangle$ of $\kappa$-parameters $\pi_{u,v}$ maps $I_{\bold p_v}$ to
3610: $I_{\bold p_u}$; however, in general
3611: the $\pi_{u,v}$'s do not preserve order (but do preserve in
3612: some weak global sense) where $J$ is an $\aleph_1$-directed
3613: partial order. Now for each $u \in J$, we can define the group
3614: $G_{{\bold p}_u}$; and we can take inverse limit in two ways.
3615: \bn
3616: \ub{Way 1}: The inverse limit $\bold p_{\frak s}$ (with $\pi_{u,{\frak s}}$
3617: for $u \in J$ of ${\frak s}$) is a $\kappa$-parameter and so the
3618: group $G_{{\bold p}_{\frak s}}$ is well defined.
3619: \mn
3620: \ub{Way 2}: The inverse system $\langle G_{{\bold p}_u},\hat \pi_{u,v}:u
3621: \le_J v \rangle$, of groups were $\hat \pi_{u,v}$ is the (partial)
3622: homomorphism from $G_{{\bold p}_v}$ to $G_{{\bold p}_u}$ induced
3623: by $\pi_{u,v}$, has an inverse limit $G_{\frak s}$. \nl
3624: Now
3625: \mr
3626: \item "{$(A)$}" concerning $G_{I_{\frak s}}$ we normally have good
3627: control over rk$({\bold p}_{\frak s})$ hence on the normalizer length of
3628: $H_{{\bold p}_{\frak s}}$ inside $G_{{\bold p}_{\frak s}}$
3629: \sn
3630: \item "{$(B)$}" $G_{\frak s}$ is (more exactly can be
3631: represented as good enough) inverse limit of groups of cardinality $\le
3632: \kappa$ hence is isomorphic to Aug$({\frak A})$ for some structure of
3633: cardinality $\le \kappa$
3634: \sn
3635: \item "{$(C)$}" in the good case $G_{{\bold p}_{\frak s}} = G_{\frak s}$ so
3636: we are done (by \scite{0.5}).
3637: \ermn
3638: In \S3 we work to get the main result.
3639: \nl
3640: There are obvious possible improvement of the results here, say trying
3641: to prove $\delta_\kappa \le \tau_\kappa$ (see Definition \scite{0.4})
3642: for every $\kappa$. But more importantly, a
3643: natural conjecture, at least for me was $\tau_\kappa =
3644: \delta_\kappa$ because all the results so far on $\tau_\kappa$ has
3645: parallel for $\delta_\kappa$ (though not inversely).
3646: In particular it seems reasonable that for $\kappa =
3647: \aleph_0$ the lower bound was right, i.e., $\tau_\kappa = \omega_1$.
3648: [We shall try to return to those problems in a sequel \cite{Sh:F579}.]
3649: \bigskip
3650:
3651: \definition{\stag{0.1} Definition} 1) For a group $G$ with trivial
3652: center, define the group $G^{<\alpha>}$ with trivial center for an
3653: ordinal $\alpha$, increasing continuous with $\alpha$ such that
3654: $G^{<0>} = G$ and $G^{<\alpha +1>}$ is the group of automorphisms of
3655: $G^{<\alpha>}$ identifying $g \in G^{<\alpha>}$ with the inner
3656: automorphisms it defines. We may stipulate $G^{<-1>} = \{e_G\}$.
3657: \nl
3658: [We know that $G^{<\alpha>}$ is a group with trivial center increasing
3659: continuous with $\alpha$ and for some $\alpha <
3660: (2^{|G|+\aleph_0})^+$ we have
3661: $\beta > \alpha \Rightarrow G^{<\beta>} = G^{<\alpha>}$.]
3662: \nl
3663: 2) The automorphism tower height of the group $G$ is
3664: $\tau_G = \tau^{\text{atw}}_G =
3665: \text{ Min}\{\alpha:G^{<\alpha>} = G^{<\alpha +1>}\}$;
3666: clearly $\beta \ge \alpha \ge \tau_G \Rightarrow G^{<\beta>} =
3667: G^{<\alpha>}$, atw stands for automorphism tower. \nl
3668: 3) Let $\tau_\kappa = \tau^{\text{atw}}_\kappa$
3669: be the least ordinal $\tau$ such that $\tau(G) <
3670: \tau$ for every group $G$ of cardinality $\le \kappa$; we call it
3671: the group tower ordinal of $\kappa$.
3672: \enddefinition
3673: \bn
3674: Now we define normalizer (group theorist write $N_G(H)$, but probably
3675: for others nor$_G(H)$ will be clearer, at least this is so for the author).
3676: \definition{\stag{0.2} Definition} 1) Let $H$ be a subgroup of $G$.
3677:
3678: We define nor$^\alpha_G(H)$, a subgroup of $G$, by induction on the
3679: ordinal $\alpha$, increasing continuous with $\alpha$. We may add
3680: nor$^{-1}_G(H) = \{e_G\}$.
3681: \mn
3682: \ub{Case 1}: $\alpha = 0$.
3683:
3684: $\text{nor}^0_G(H) = H$.
3685: \mn
3686: \ub{Case 2}: $\alpha = \beta +1$.
3687:
3688: $\text{nor}^\alpha_G(H) = \text{ nor}_G(\text{nor}^\beta_G(H))$, see below.
3689: \mn
3690: \ub{Case 3}: $\alpha$ a limit ordinal
3691:
3692: $$
3693: \text{nor}^\alpha_G(H) = \cup\{\text{nor}^\beta_G(H):\beta < \alpha\}
3694: $$
3695: \mn
3696: where
3697:
3698: $$
3699: \align
3700: \text{nor}_G(H) = \{g \in G:&g \text{ normalize } H, \text{ i.e. }
3701: g N g^{-1} = N, \text{ equivalently} \\
3702: &(\forall x \in H)[g x g^{-1} \in H \and g^{-1} x g \in H]\}.
3703: \endalign
3704: $$
3705: \mn
3706: 2) Let $\tau'_{G,H}= \tau^{\text{nlg}}_{G,H}$, the normalizer
3707: length of $H$ in $G$, be
3708: Min$\{\alpha:\text{nor}^\alpha_G(H) = \text{ nor}^{\alpha +1}_G(H)\}$;
3709: so $\beta \ge \alpha \ge \tau'_{G,H} = \text{ nor}^\beta_G(H) = \text{
3710: nor}^\alpha_G(H)$; nlg stands for normalizer length. \nl
3711: 3) Let $\tau'_\kappa = \tau^{\text{nlg}}_\kappa$
3712: be the least ordinal $\tau$ such that $\tau >
3713: \tau'_{G,H}$ whenever $G = \text{ Aut}({\frak A})$
3714: for some structure ${\frak A}$ on $\kappa$ and $H \subseteq G$ is a
3715: subgroup satisfying $|H| \le \kappa$.
3716: \nl
3717: 4) $\tau''_\kappa = \tau^{\text{nlf}}_\kappa$ is the least
3718: ordinal $\tau$ such that $\tau > \tau^{\text{nlf}}_{G,H}$
3719: wherever $G = \text{ Aut}({\frak A}),
3720: {\frak A}$ a structure of cardinality $\le \kappa,H$ a
3721: subgroup of $G$ of cardinality $\le \kappa$ and nor$^{\infty}_G(H) =
3722: \cup\{\text{nor}^\alpha_G(H):\alpha$ an ordinal$\} = G$.
3723: \enddefinition
3724: \bigskip
3725:
3726: \definition{\stag{0.3} Definition} We say that $G$ is a
3727: $\kappa$-automorphism group
3728: \ub{if} $G$ is the automorphism group of some structure of cardinality
3729: $\le \kappa$.
3730: \enddefinition
3731: \bigskip
3732:
3733: \definition{\stag{0.4} Definition} Let $\delta_\kappa =
3734: \delta(\kappa)$ be the first ordinal
3735: $\alpha$ such that there is no sentence $\psi \in \Bbb L_{\kappa^+,\omega}$
3736: satisfying:
3737: \mr
3738: \item "{$(a)$}" $\psi \vdash$ ``$<$ is a linear order"
3739: \sn
3740: \item "{$(b)$}" for every $\beta < \alpha$ there is a model $M$ of
3741: $\psi$ such that $(|M|,<^M)$ has order type $\ge \beta$
3742: \sn
3743: \item "{$(c)$}" for every model $M$ of $\psi,(|M|,<^M)$ is a well
3744: ordering.
3745: \ermn
3746: See on this, e.g. \cite[VII,\S5]{Sh:c}.
3747: \enddefinition
3748: \bn
3749: Our proof of better lower bounds rely on the following result
3750: from \cite{JShT:654}.
3751: \proclaim{\stag{0.5} Lemma} $\tau'_\kappa \le \tau_\kappa$.
3752: \endproclaim
3753: \bn
3754: \margintag{0.6}\ub{\stag{0.6} Question}: 1) Is it
3755: consistent that for some $\kappa,\tau'_\kappa < \tau_\kappa$? Is this
3756: provable in ZFC? Is the negation consistent?
3757: \nl
3758: 2) Similarly for the inequalities $\delta_\kappa < \tau'_\kappa$, (and
3759: $\delta_\kappa < \tau'_\kappa < \tau_\kappa$).
3760: \nl
3761: See on those in \cite{Sh:F579}.
3762: \bigskip
3763:
3764: \demo{\stag{0.7} Observation} For every $\kappa \ge \aleph_0$ we have
3765: $\tau^{\text{atw}}_\kappa \ge \tau^{\text{nlg}}_\kappa \ge
3766: \tau^{\text{nlf}}_\kappa$.
3767: \enddemo
3768: \bigskip
3769:
3770: \demo{Proof} By \scite{0.5} and checking the definitions of
3771: $\tau^{\text{nlg}}_\kappa,\tau^{\text{nlf}}_\kappa$. In fact we
3772: mostly work on proving that in \scite{0.1}, $\tau^{\text{nlf}}_\kappa
3773: > 2^\kappa$.
3774: \enddemo
3775: \bn
3776: \ub{Notation}: For a group $G$ and $A \subseteq G$ let $\langle
3777: A\rangle_G$ be the subgroup of $G$ generated by $A$.
3778: \bn
3779: \centerline{$* \qquad * \qquad *$}
3780: \bn
3781: \ub{Explanation of the proof}:
3782:
3783: We would like to derive the desired group from a partial order $I$
3784: representing the ordinal desired as $\tau_{G,H}$ in some way and the
3785: tower of normalizers of an appropriate subgroup will reflect. It
3786: seems natural to say that if $t \in I$ represent the ordinal $\alpha$
3787: then the $s <_I t$ will represent ordinals $< \alpha$ so we use the
3788: depth in $I$
3789:
3790: $$
3791: \text{dp}_I(t) = \cup\{\text{dp}_I(s)+1:s <_I t\}.
3792: $$
3793: \mn
3794: For each $t \in I$ we will like to have a generator $g_t$ of the group
3795: (really denoted by $g_{(<t>,<>)}$) take care of the normalizer tower
3796: not sloping at $\alpha = \text{ dp}_I(t)$ say $g_t$ will be in the
3797: $(\alpha +1)$-th normalizer but not in the $\alpha$-th normalizer.
3798: But we need a witness for $g_t$ not being in earlier normalizer
3799: $(\beta +1)$-th normalizer $\beta < \alpha$.
3800:
3801: Now $\beta$ is represented by some $s <_I t$, so we have witness
3802: $g_{(<(t,x),(<>)>)},g_{<(t,x),(1)>}$, the first in the beginning, the
3803: second in the $(\beta +1)$-th normalizer not in the $\beta$-th
3804: normalizer. So we have a long normalizer tower of the subgroup
3805: $G^{<0}_I$, the one generated by $\{g_{(\bar t,\eta)}:\eta(\ell) =0$
3806: for some $\ell < \ell g(\eta)\}$.
3807:
3808: However $G^{<0}_I$ is too big. So we use a semi-direct product $K_I =
3809: G_I * L_I$, where $L_I$ is an abelian group with every element of order
3810: two, generated by $\{\bold h_{g G^{<0}_I}:g \in G^{<0}_I\}$ with $g_1
3811: \bold h_{g G^{<0}_I} = \bold h_{(g_1 g)G^{<0}_I}$ and show that the
3812: normalizer wins of the subgroup $H_I = \{e,\bold h_{G^{<0}_I}\}$ of
3813: $K_I$ has the same height.
3814:
3815: But we have to make $K_I$ a $\kappa$-automorphism group. We only
3816: almost have it: (and has too) we will represent it as aut$(M)/N$ for
3817: some structure $M$ of cardinality $\le \kappa$ and normal subgroup $N$
3818: of it of cardinality $\le \kappa$; this suffices.
3819:
3820: \relax From where will $M$ come from? We will represent $I$ as a universe
3821: limit of some kind of ${\frak t} = \langle I_u,\pi_{u,v}:u \le_J
3822: v\rangle$ where $I_u$ is a partial order of cardinality $\le
3823: \kappa,\pi_{u,v}$ a mapping from $I_v$ to $I_u$ (commuting). It
3824: seemed a priori natural to have $\pi_{u,v}$ is order preserving but it
3825: seemingly does not work out. It seemed a priori natural to prove that
3826: whenever ${\frak t}$ is as above there is a universe limit, etc. We
3827: find it more transparent to treat axiomatically: the limit is given
3828: inside, i.e. as ${\frak s}$ which is ${\frak t} +$ a limit $v^*$; and
3829: $J^{\frak t} = J^{\frak s} \backslash \{v^*\}$ is directed.
3830:
3831: Also we demand that $J^{\frak t}$ is $\aleph_1$-directed (otherwise in
3832: the limit we have words come.
3833: \nl
3834: We shall derive the structure $M$ from ${\frak t}$ so its automorphism
3835: comes from members of $K_{I_u}(u \in J^{\frak t})$. Well, not exactly
3836: but for formal terms for it, to enable us to project to $u'
3837: \le_{J[{\frak t}]} u$; as recall that $\pi_{u,v}$ does not necessarily
3838: preserve order. To make things smooth we demand that if $J^{\frak t}$
3839: is a linear order (say cf$(\kappa))$ when as in the main case,
3840: $\kappa$ is singular strong limit of uncountable cofinality.
3841:
3842: More specifically, if $s,t \in I$ then for every large enough $u \in
3843: J^{\frak t},s <_{I_{v^*}} t \Leftrightarrow \pi_{u,v^*}(s) <_{I_u}
3844: \pi_{u,v}(t)$; note the order of the quantifiers. Then we define a
3845: structure $M$ derived from ${\frak t}$. So the automorphism group of
3846: $M$ is the inverse limit of groups which comes from the formal
3847: definitions of elements of $K_{I_u}$'s. Each depend on finitely many
3848: generators, which in different $u$'s give different reduced forms.
3849:
3850: Now they are defined from some $\bar t \in {}^k(I_u)$ using
3851: ``$I_{v^*}$ is the inverse limit..." the ``important" $t_u$'s, those
3852: which really affect, well form an inverse system (\wilog \, the length
3853: $k$ is constant on an end segment here we use ``$J^{\frak t}$ is
3854: $\aleph_1$-directed) so for those $\ell$'s \, $\langle t_{u,\ell}:u
3855: \in J^{\frak t}\rangle$ has limit $t_{v^*,\ell}$ say for $\ell <
3856: k_*$.
3857:
3858: So $\langle t_{u^*,\ell}:\ell < k_*\rangle$ has the same quantifier
3859: type in $I_u$ whenever $u_* \le u \le v^*$ for some $u_* < v^*$. The
3860: other $t$'s still has influence, so it is enough to find for them a
3861: pseudo limit: $t_{v^*,\ell}$ such that they will have the same affect
3862: on how the ``important" $t_{u,\ell}$ are used (this is the essential
3863: limit).
3864:
3865: All this gives an approximation to aut$(M) \cong K_{I_{v^*}}$. They
3866: almost mean that we divide by the subgroup of the automorphism of $M$
3867: which are id$_{K_u}$ after $u \in J^{\frak t}$ large enough. This is
3868: a normal subgroup of cardinality $\le \kappa$ so we are done except
3869: constructing such systems.
3870:
3871: \newpage
3872:
3873: \head {\S1 The groups} \endhead \resetall \sectno=1
3874: \spuriousreset
3875: \bn
3876: \ub{Discussion}: Our aim is for a partial order $I$
3877: to define a group $G = G_I$ and a
3878: subgroup $H=H_I$ such that the normalizer length of $H$ inside $G$
3879: reflects the depth of the well founded part of $I$. Eventually we
3880: would like to use $I$ of large depth such that $|H_I| \le \kappa$ and
3881: the normalizer length of $H$ inside $G_I$ is $> \kappa$, even equal
3882: to the depth of $I$.
3883:
3884: For clarity we first define an approximation, in particular, $H$
3885: appears only in \S2.
3886: How do we define the group $G = G_I$ from the partial order $I$?
3887: For each $t \in I$ we would like to have an element
3888: associated with it (it is $g_{(<t>,<>)}$) such that it will ``enter"
3889: $\text{nor}^\alpha_G(H)$ exactly for $\alpha = \text{ rk}_I(t)+1$. We
3890: intend that among the generators of the group
3891: commuting is the normal case, and we need witnesses
3892: that $g_{(<t>,<>)} \notin
3893: \text{ nor}^{\beta +1}_G(H)$ wherever $\beta < \alpha = \text{
3894: rk}_I(t),\beta >0$. It is natural that if rk$_I(t_1) = \beta$ and
3895: $t_1 <_I t_0 =: t$ then we use $t_1$ to represent $\beta$,
3896: as witness; more specifically, we construct the group such that conjugation by
3897: $g_{(<t>,<>)}$ interchange $g_{(<t_0,t_1>,<0>)}$ and
3898: $g_{(<t_0,s_0>,<1>)}$ and one of them, say $g_{(<t_0,t_1>,<0>)}$
3899: belongs to $\text{nor}^{\beta +1}_G(H) \backslash \text{
3900: nor}^\beta_G(H)$ whereas the other one, $g_{(<t_0,0>,<1>)}$, belongs
3901: to nor$^1_G(H)$. Iterating we get the elements
3902: $x \in X_I$ defined below.
3903:
3904: In an earlier version, to ``start the induction", some additional
3905: generators $g_{(\alpha,\ell)}(\alpha \in Z^I,\ell <2)$
3906: were used to generate $H$ and not using all of them had helped to
3907: make nor$^1_{G_I}(H_I)$ having the desired value. However, we have to
3908: decide for each $g_{(\bar t,\nu)}$ for $(\bar t,\nu)$ as above, for which
3909: $g_{(\alpha,\ell)}(\alpha \in Z^I,\ell < 2)$ does conjugation
3910: by $g_{(\bar t,\nu)}$ maps $g_{(\alpha,\ell)}$ to itself and for which it
3911: does not. For this we chose subsets $A_{(\bar t,\nu)}
3912: \subseteq Z^I$ to code our decisions when
3913: $(\bar t,\nu)$ is as above and well defined, and
3914: make the conjugation with the generators intended to generate
3915: nor$^1_G(H)$ appropriately.
3916:
3917: Now we do it by adding to $G$ an element $g_*$ of
3918: order 2 getting $K_I$, commuting with $g \in G$ iff $g$ is intended
3919: to be in the low level (e.g. $g_{(\bar t,\eta)},t_n \in I$ is minimal,
3920: see notation below).
3921:
3922: We could have in this section considered only a partial order $I$, and
3923: the groups $G_I$ (and later $K_I$) derived from it. But as anyhow we shall
3924: use it in the context of $\kappa$-p.o.w.i.s., we do it in this frame
3925: (of course if $J^{\frak s} = \{u\}$, then ${\frak s}$ is essentially
3926: just $I_u$).
3927: \bn
3928: Note that for our main result it suffices to deal with the case rk$(I)
3929: < \infty$.
3930: \definition{\stag{m.1} Definition} Let $I$ be a partial order (so $\ne
3931: \emptyset$).
3932: \nl
3933: 1) rk$_I:I \rightarrow \text{ Ord} \cup \{\infty\}$ is defined by
3934: rk$_I(t) \ge \alpha$ iff $(\forall \beta < \alpha)(\exists s <_I t)
3935: [\text{rk}_I(s) \ge \beta]$. \nl
3936: 2) rk$^{< \infty}_I(t)$ is defined as rk$_I(t)$ if rk$_I(t) < \infty$ and is
3937: defined as $\cup\{\text{rk}_I(s)+1:s$ satisfies $s <_I t$ and rk$_I(s) <
3938: \infty\}$ in general.
3939: \nl
3940: 3) Let rk$(I) = \cup \{\text{rk}_I(t) +1:t \in I\}$ stipulating
3941: $\alpha < \infty = \infty +1$. \nl
3942: 4) rk$^{< \infty}_I = \text{ rk}^{< \infty}(I) =
3943: \cup\{\text{rk}^{< \infty}_I(t) +1:t \in I\}$. \nl
3944: 5) Let $I_{[\alpha]} = \{t \in I:\text{rk}(t)=\alpha\}$.
3945: \nl
3946: 6) $I$ is non-trivial \ub{when}
3947: $\{s:s \le_I t$ and $\text{rk}_I(s) \ge \beta\}$ is
3948: infinite for every $t \in I$ satisfying rk$^{< \infty}_I(t) > \beta$
3949: (used in the proof of \scite{m.11}(1); it is equivalent to demand
3950: ``rk$_I(s)=\beta$").
3951: \nl
3952: 7) $I$ is explicitly non-trivial if each $E_I$-equivalence class is
3953: infinite where $E_I = \{(t_1,t_2):t_2 \in I,t_2 \in I$ and
3954: $(\forall s \in I)(s <_I t_1 \equiv s <_I t_2)\}$.
3955: \enddefinition
3956: \bigskip
3957:
3958: \definition{\stag{m.2} Definition} 1) ${\frak s}$ is a
3959: $\kappa$-p.o.w.i.s. (partial order weak inverse system) \ub{when}:
3960: \mr
3961: \item "{$(a)$}" ${\frak s} = (J,\bar I,\bar \pi)$ so $J =
3962: J^{\frak s} = J[{\frak s}],\bar I = \bar I^{\frak s},\bar \pi = \bar
3963: \pi^{\frak s}$
3964: \sn
3965: \item "{$(b)$}" $J$ is a directed partial order of cardinality $\le
3966: \kappa$
3967: \sn
3968: \item "{$(c)$}" $\bar I = \langle I_u:u \in J \rangle = \langle
3969: I^{\frak s}_u:u \in J\rangle$ and we may write $I[u]$ or $I^{\frak s}[u]$
3970: \sn
3971: \item "{$(d)$}" $I_u = I^{\frak s}_u$ is a partial
3972: order of cardinality $\le \kappa$
3973: \sn
3974: \item "{$(e)$}" $\bar \pi = \langle \pi_{u,v}:u \le_J v \rangle$
3975: \sn
3976: \item "{$(f)$}" $\pi_{u,v}$ is a partial mapping from $I_v$ into
3977: $I_u$ (no preservation of order is required!)
3978: \sn
3979: \item "{$(g)$}" if $u \le_J v \le_J w$ then $\pi_{u,w} = \pi_{u,v}
3980: \circ \pi_{v,w}$.
3981: \ermn
3982: 2) ${\frak s}$ is a p.o.w.i.s. mean $\kappa$-p.o.w.i.s. for some
3983: $\kappa$.
3984: \nl
3985: 3) For $u \in J$ let $X_u = X^{\frak s}_u$ be the set of $x$ such that
3986: for some $n < \omega$:
3987: \mr
3988: \item "{$(a)$}" $x = (\bar t,\eta) = (\bar t^x,\eta^x)$
3989: \sn
3990: \item "{$(b)$}" $\eta^x$ is a function from $\{0,\dotsc,n-1\}$ to $\{0,1\}$
3991: \sn
3992: \item "{$(c)$}" $\bar t =
3993: \langle t_\ell:\ell \le n \rangle = \langle t^x_\ell:\ell \le n
3994: \rangle$ where $t_\ell \in I^{\frak s}_u$ is
3995: $<_{I^{\frak s}_u}$-decreasing, i.e., $t_n
3996: <_{I^{\frak s}_u} t_{n-1} <_{I^{\frak s}_u} \ldots <_{I^{\frak s}_u} t_0$.
3997: \ermn
3998: 3A) In fact for every partial order $I$ we define $X_I$ similarly, so
3999: $X^{\frak s}_u = X_{I^{\frak s}[u]}$.
4000: \nl
4001: 4) In part (3) for $x \in X^{\frak s}_u$ let $n(x) =
4002: \ell g(\bar t^x)-1$ and $t^x = t(x) := t^x_{n(x)}$.
4003: \nl
4004: 5) For $x \in X^{\frak s}_u$ and $n \le n(x)$ let $y = x
4005: \upharpoonleft n \in X^{\frak s}_u$ be defined by:
4006:
4007: $$
4008: \bar t^y := \bar t^x \restriction (n+1) = \langle t^x_0,\dotsc,t^x_n \rangle
4009: $$
4010:
4011: $$
4012: \eta^y = \eta^x \restriction n(y) =: \eta^x \restriction \{0,\dotsc,n-1\}.
4013: $$
4014: \mn
4015: 6) We define rk$^1_u = \text{ rk}^{1,{\frak s}}_u$ and rk$^2_u =
4016: \text{ rk}^{2,{\frak s}}_u$ as follows:
4017: \mr
4018: \item "{$(a)$}" let rk$^1_u:X_u \rightarrow \text{ Ord }
4019: \cup \{\infty\}$ be defined by $x \in X_u \Rightarrow
4020: \text{ rk}^{1,{\frak s}}_u(x) = \text{ rk}^1_u(x) = \text{ rk}_{I[u]}(t^x)$
4021: \sn
4022: \item "{$(b)$}" let rk$^2_u:X_u \rightarrow \{-1\} \cup \text{ Ord} \cup
4023: \{\infty\}$
4024: {\roster
4025: \itemitem{ $(\alpha)$ } if $x \in X_u$ and $\{\eta^x(\ell):\ell < n(x)\}
4026: \subseteq \{1\}$ (e.g., $n(x)=0$) then let rk$^2_u(x) = \text{
4027: rk}^{2,{\frak s}}_u(x) = \text{ rk}_{I[u]}(t(x))$
4028: \sn
4029: \itemitem{ $(\beta)$ } if $x \in X_u$ and $\{\eta^x(\ell):\ell < n(x)\}
4030: \nsubseteq \{1\}$ then let
4031: rk$^{2,{\frak s}}_u(x) = -1$ (yes, -1).
4032: \endroster}
4033: \ermn
4034: 7) We say that ${\frak s}$ is nice \ub{when} every $I^{\frak s}_u$ is
4035: non-trivial and $\pi_{u,w}$ is a function from $I_v$ into $I_u$,
4036: i.e., the domain of $\pi^{\frak s}_{u,v}$ is $I_v$.
4037: \nl
4038: 8) $X^{< \alpha}_u :=
4039: \{x \in X^{\frak s}_u:\text{rk}^2_u(x) < \alpha\}$ and
4040: $X^{\le \alpha}_u := \{x \in X^{\frak s}_u:\text{ rk}^2_u(x)
4041: \le \alpha\}$. Note that $X^{\le \alpha}_u = X^{< \alpha +1}_u$ when
4042: $\alpha < \infty$. Of course, we may write $X^{< \alpha,{\frak
4043: s}}_u,X^{\le \alpha,{\frak s}}_u$ and note that $X^{<0}_u = \{x \in X^{\frak
4044: s}_u:0 \in \text{ Rang}(\eta^x)\}$.
4045: \enddefinition
4046: \bigskip
4047:
4048: \definition{\stag{m.4} Definition} Assume ${\frak s}$ is a
4049: $\kappa$-p.o.w.i.s. and $u \in J^{\frak s}$.
4050: \nl
4051: 1) Let $G_u = G^{\frak s}_u = G_u[{\frak s}]$ be the group
4052: generated by $\{g_x:x \in X^{\frak s}_u\}$ freely except the
4053: equations in $\Gamma_u = \Gamma^{\frak s}_u$ where $\Gamma_u$ consists of
4054: \mr
4055: \item "{$(a)$}" $g^{-1}_x = g_x$, that is $g_x$ has order $2$, for
4056: each $x \in X_u$
4057: \sn
4058: \item "{$(b)$}" $g_{y_1} g_{y_2} = g_{y_2} g_{y_1}$ when $y_1,y_2 \in
4059: X_u$ and $n(y_1) = n(y_2)$
4060: \sn
4061: \item "{$(c)$}" $g_x g_{y_1} g^{-1}_x = g_{y_2}$ when
4062: $\circledast^{u,{\frak s}}_{x,y_1,y_2}$, see below.
4063: \ermn
4064: 1A) Let $\circledast_{x,y} = \circledast^u_{x,y} =
4065: \circledast^{u,{\frak s}}_{x,y}$ means that
4066: $\circledast_{x,y_1,y_2}$ for some $y_1,y_2$ such that $y \in
4067: \{y_1,y_2\}$, see below.
4068: \nl
4069: 1B) Let $\circledast_{x,y_1,y_2} = \circledast^u_{x,y_1,y_2} =
4070: \circledast^{u,{\frak s}}_{x,y_1,y_2}$ means that:
4071: \mr
4072: \item "{$(a)$}" $x,y_1,y_2 \in X_u$
4073: \sn
4074: \item "{$(b)$}" $n(x) < n(y_1) = n(y_2)$
4075: \sn
4076: \item "{$(c)$}" $y_1 \upharpoonleft n(x) = y_2 \upharpoonleft n(x)$
4077: \sn
4078: \item "{$(d)$}" $\bar t^{y_1} = \bar t^{y_2}$
4079: \sn
4080: \item "{$(e)$}" for $\ell < n(y_1)$ we have:
4081: $\eta^{y_1}(\ell) \ne \eta^{y_2}(\ell)$ \ub{iff} $\ell = n(x)
4082: \wedge x = y_1 \upharpoonleft n(x)$.
4083: \ermn
4084: 2) Let $G^{< \alpha}_u = G^{< \alpha,{\frak s}}_u$
4085: be defined similarly to $G^{\frak s}_u$
4086: except that it is generated only by $\{g_x:x \in X^{< \alpha}_u\}$,
4087: freely except the equations from $\Gamma^{< \alpha}_u =
4088: \Gamma^{< \alpha,{\frak s}}_u$,
4089: where $\Gamma^{< \alpha}_u $ is the set of equations from $\Gamma_u$ among
4090: $\{g_x:x \in X^{< \alpha}_u\}$.
4091:
4092: Similarly $G^{\le \alpha}_u,\Gamma^{\le \alpha}_u$; note
4093: that $G^{\le \alpha}_u =
4094: G^{< \alpha +1}_u,\Gamma^{\le \alpha}_u =
4095: \Gamma^{< \alpha +1}_u$ if $\alpha < \infty$.
4096: \nl
4097: 3) For $X \subseteq X_u$ let $G_{u,X} = G^{\frak s}_{u,X}$ be
4098: the group generated by $\{g_y:y \in X\}$ freely except the equations in
4099: $\Gamma_{u,X} = \Gamma^{\frak s}_{u,X}$ which is the set of equations from
4100: $\Gamma_u$ mentioning only generators among $\{g_y:y \in X\}$.
4101: \enddefinition
4102: \bigskip
4103:
4104: \demo{\stag{m.5} Observation} 1) The sequence
4105: $\langle X^{< \alpha}_u:\alpha \le \text{ rk}(I^{\frak s}_u)
4106: \rangle$ is $\subseteq$-increasing continuous.
4107: \nl
4108: 2) If $\ell \in \{1,2\}$ and
4109: $x,y \in X_u$ are such that $x \ne y=x \upharpoonleft n$ and $\ell
4110: \in \{1,2\}$ then rk$^\ell_{\bold p}(y) \ge \text{ rk}^\ell_{\bold
4111: p}(x)$ and if equality holds then rk$^1_u(x) = \infty =
4112: \text{\rm rk}^1_u(y)$ \ub{or} both are $-1$ and $\ell=2$.
4113: \nl
4114: 3) If a partial order $I$ is explicitly non-trivial \ub{then} $I$ is
4115: non-trivial.
4116: \enddemo
4117: \bigskip
4118:
4119: \demo{Proof} Check.
4120: \enddemo
4121: \bigskip
4122:
4123: \demo{\stag{m.6} Observation} For a $\kappa$-p.o.w.i.s. ${\frak s}$.
4124: \nl
4125: 1) $\circledast^{u,{\frak s}}_{x,y}$ holds \ub{iff}:
4126: \mr
4127: \item "{$(\alpha)$}" $x,y \in X_u$ and
4128: \sn
4129: \item "{$(\beta)$}" $n(y) \ge n(x) +1$.
4130: \ermn
4131: 2) If $x \in X^{\frak s}_u$ then
4132: $\{(y_1,y_2):\circledast^{u,{\frak s}}_{x,y_1,y_2}$ holds$\}$ is a
4133: permutation of order two of
4134: $Y_{> n(x)} =: \{y \in X^{\frak s}_n:n(y) > n(x)\}$.
4135: \nl
4136: 3) Moreover, the permutation in part (2) maps each $Y_{n+1} \backslash
4137: Y_n$ onto itself when
4138: $n \in [n(x),\omega)$ and so it maps $\Gamma_{Y_{>n}}$ onto itself
4139: when $n(*) \le n < \omega$.
4140: \nl
4141: 4) If $\circledast^{u,{\frak s}}_{x,y_1,y_2}$ then
4142: $y_1 \upharpoonleft n(x) = y_2 \upharpoonleft n(x)$ and $n(x) <
4143: n(y_1) = n(y_2)$.
4144: \nl
4145: 5) $\circledast^{u,{\frak s}}_{x,y_1,y_2}$ iff
4146: $\circledast^{u,{\frak s}}_{x,y_2,y_1}$.
4147: \nl
4148: 6) For $x,y \in X^{\frak s}_u$, in the group
4149: $G^{\frak s}_u$ the elements $g_x,g_y$ commute except when $x
4150: \ne y \wedge (x=y \upharpoonleft n(x) \vee y = x \upharpoonleft
4151: n(y))$. In this case, if $n(x) < n(y)$ there is $y' \ne y$ such that
4152: \mr
4153: \item "{$\circledast_{x,y,y'}$}" so $n(y') = n(y)$ and $\eta^y(\ell)
4154: = \eta^{y'}(\ell) \Leftrightarrow \ell \in n(x)$.
4155: \endroster
4156: \enddemo
4157: \bigskip
4158:
4159: \demo{Proof} Straight (details on (2),(3) see the proof of
4160: \scite{m.11}).
4161: \hfill$\square_{\scite{m.6}}$
4162: \enddemo
4163: \bn
4164: We first sort out how elements in $G^{\frak s}_u$ and various subgroups
4165: can be (uniquely) represented as products of the generators.
4166: \proclaim{\stag{m.7} Claim} Assume that ${\frak s}$ is a
4167: $\kappa$-p.o.w.i.s., $u \in J^*$ and $<^*$ is any linear order of
4168: $X_u$ such that
4169: \mr
4170: \item "{$\boxdot$}" if $x \in X_u,y \in X_u$ and $n(x) > n(y)$
4171: \ub{then} $x <^* y$.
4172: \ermn
4173: 1) Any member of $G_u$ is equal to a product of the form $g_{x_1}
4174: \ldots g_{x_m}$ where $x_\ell <^* x_{\ell +1}$ for $\ell
4175: =1,\dotsc,m - 1$. Moreover, this representation is unique.
4176: \nl
4177: 2) Similarly for $G^{\le \alpha}_u,G^{< \alpha}_u$
4178: (using $X^{\le \alpha}_u,X^{< \alpha}_u$ respectively
4179: instead $X_u$) hence $G^{\le \alpha}_u,G^{< \alpha}_u$ are subgroups
4180: of $G_u$.
4181: \nl
4182: 3) In part (1) we can replace $G_u$ and $X_u$ by
4183: $G = G_{u,X}$ and $X$ respectively when $X \subseteq X_u$ is such that
4184: $[\{x,y_1,y_2\} \subseteq X_u \wedge \circledast^{u,{\frak s}}_{x,y_1,y_2}
4185: \wedge \{x,y_1\} \subseteq X \Rightarrow y_2 \in X]$. Hence $G_{u,X}$
4186: is equal to $\langle \{g_x:x \in X\}\rangle_{G_u}$.
4187: \nl
4188: 4) If $g = g_{y_1} \ldots g_{y_m}$ where $y_1,\dotsc,y_m \in X_u$
4189: and $g = g_{x_1} \ldots g_{x_n} \in G_u$ and $x_1 <^* \ldots <^* x_n$
4190: \ub{then} $n \le m$. \nl
4191: 5) $\langle G^{< \alpha}_u:\alpha \le { \text{\rm rk\/}}
4192: (I^{\frak s}_u),\alpha$ an ordinal$\rangle$ is an
4193: increasing continuous sequence of groups with last element $G^{< \infty}_u$.
4194: \nl
4195: 6) $\{g G^{< 0}_u:g \in G_u\}$ is a partition of $G_u$ (to left
4196: cosets of $G_u$ over $G^{< 0}_u$).
4197: \nl
4198: 7) If $<^1,<^2$ are two linear orders of $X_u$ as in $\boxdot$ above and
4199: $G_u \models ``g_{x_1} \ldots g_{x_k} = g_{y_1} \ldots g_{y_m}"$ and $x_1 <^1
4200: \ldots <^1 x_k$ and $y_1 <^2 \ldots <^2 y_m$ (or just $x_1 < \char 94
4201: \ldots \char 94 x_k,n(y_1) \ge n(y_2) \ge \ldots n(y_n)$ and $\langle
4202: y_\ell:\ell=1,m\rangle$ is with no repetitions), \ub{then}:
4203: \mr
4204: \item "{$(\alpha)$}" $k=m$
4205: \sn
4206: \item "{$(\beta)$}" for every $i$ we have $\{\ell:n(x_\ell)=i\} =
4207: \{\ell:n(y_\ell) = i\}$ and this set is a convex subset of $\{1,\dotsc,m\}$.
4208: \ermn
4209: (So the only difference is permuting $g_{x_{\ell(2)}},g_{x_{\ell(1)}}$
4210: when $n(x_{\ell(1)}) = n(x_{\ell(2)})$.
4211: \nl
4212: 8) If $I \subseteq I_u$ and $X = X_I$ then $G_{u,X} \cap G^{< 0}_u$ is
4213: the subgroup of $G_{u,X}$ generated by $\{g_x:x \in
4214: X,\text{\rm Rang}(\eta^x) \nsubseteq 1\}$, i.e., the (naturally defined)
4215: $G^{< 0}_I$.
4216: \nl
4217: 9) If $I_\ell \subseteq I^{\frak s}_u$ for $\ell=1,2,3$ (so
4218: $\le_{I_\ell} = \le_I \restriction I_\ell$) and $I_1 \cap I_2 =
4219: I_3$ \ub{then} $G_{I_1} \cap G_{I_2} = G_{I_3}$ and $G^{< 0}_{I_1}
4220: \cap G^{<0}_{I_2} = G^{<0}_{I_3}$.
4221: \endproclaim
4222: \bigskip
4223:
4224: \demo{Proof} 1),2),3) Recall that each generator has order two. We can
4225: use standard
4226: combinatorial group theory (the rewriting process but below we do not
4227: assume knowledge of it); the point is that
4228: in the rewriting the number of generators in the word do not
4229: increase (so no need of $<^*$ being a well ordering).
4230: \nl
4231: We now give a full self-contained proof, for part of (2) we consider $G =
4232: G^{< \alpha}_u,X = X^{< \alpha}_u \subseteq X_u,\Gamma = \Gamma^{< \alpha}_u$
4233: for $\alpha$ an ordinal or infinity and for part (1) and
4234: the rest of part (2) consider $G = G^{\le \beta}_u,X = X^{\le \beta}_u
4235: \subseteq X_u,\Gamma = \Gamma^{\le \beta}_u$ for
4236: $\beta$ an ordinal or infinity (recall that $G_u,X_u$
4237: is the case $\beta = \infty$). Now in parts (1),(2) for the set $X$,
4238: the condition from part (3) holds by \scite{m.5}(2).
4239: \nl
4240: [Why? So assume $\circledast^u_{x,y_1,y_2}$ and e.g. $x,y_1 \in
4241: X^{\le \alpha}_u$ and we should prove that $y_2 \in X^{\le
4242: \alpha}_u$. If $y_1 = y_2$ this is trivial so assume $y_1 \ne y_2$,
4243: hence necessarily $y_1 \upharpoonleft n(x) = x = y_2 \upharpoonleft
4244: n(x)$ and $n(x) < n(y_1) = n(y_2)$ and $\bar t^{y_1} = \bar t^{y_2}$
4245: and $\eta^{y_1}(\ell) = \eta^{y_2}(\ell) \Leftrightarrow \ell \ne n(x)$.
4246: If $\eta^x$ is not constantly one then also $\eta^{y_1}$ is not
4247: constantly one hence $y_2 \in X^{< 0}_u$ so fine. If
4248: $\eta^x$ is constantly one then $\alpha \ge \text{ rk}^1_u(t^x) >
4249: \text{ rk}^1_u(t^{y_1}) = \text{ rk}^1_u(t^{y_2}) \ge \text{
4250: rk}^2_u(t^{y_2})$ hence $y_2 \in X^{\le \alpha}_u$ so fine.]
4251: \nl
4252: So it is enough to prove part (3). Now recall that
4253: $G = G_{u,X}$ and
4254: \mr
4255: \item "{$\circledast_1$}" every member of $G$ can be written as a
4256: product $g_{x_1} \ldots g_{x_n}$ for some $n < \omega,x_\ell \in X$
4257: \nl
4258: [Why? As the set $\{g_x:x \in X\}$ generates $G$.]
4259: \sn
4260: \item "{$\circledast_2$}" if in $g = g_{x_1} \ldots g_{x_n}$ we have
4261: $x_\ell = x_{\ell +1}$ \ub{then} we can omit both
4262: \nl
4263: [Why? As $g_x g_x = e_G$ for every $x \in X$ by clause (a) of
4264: Definition \scite{m.4}(1)]
4265: \sn
4266: \item "{$\circledast_3$}" if $1 \le \ell < n$ and
4267: $g = g_{x_1} \ldots g_{x_n}$ and we have
4268: $x_{\ell +1} <^* x_\ell$ and $m \in \{1,\dotsc,n\}
4269: \backslash \{\ell,\ell +1\} \Rightarrow y_m = x_m$
4270: \ub{then} we can find $y_\ell,y_{\ell+1} \in X$
4271: such that $g = g_{y_1} \ldots g_{y_n}$ and $y_\ell <^* y_{\ell +1}$
4272: and, in fact, $y_{\ell +1} = x_\ell$.
4273: \ermn
4274: [Why does $\circledast_3$ hold? By Definition \scite{m.4}(1) and
4275: Observation \scite{m.6}(6) one of the following cases occurs.
4276: \bn
4277: \ub{Case 1}: $g_{x_\ell},g_{x_{\ell +1}}$ commutes.
4278:
4279: Let $y_\ell = x_{\ell +1},y_{\ell +1} = x_\ell$.
4280: \mn
4281: \ub{Case 2}: Not Case 1 but
4282: $\circledast^{u,{\frak s}}_{x_{\ell +1},x_\ell}$, see
4283: Definition \scite{m.4}(1A).
4284:
4285: By clause (b) of Definition \scite{m.4}(1) we have $n(x_{\ell +1})
4286: < n(x_\ell)$.
4287: So by $\boxdot$ of the assumption of the present claim we have
4288: $x_\ell <^* x_{\ell +1}$, contradiction.
4289: \mn
4290: \ub{Case 3}: Not case 1 but
4291: $\circledast^{u,{\frak s}}_{x_\ell,x_{\ell +1}}$, see
4292: Definition \scite{m.4}(1B).
4293:
4294: By \scite{m.6}(6) there is $y_\ell \in X$ such that
4295: $n(y_\ell) = n(x_{\ell +1}) > n(x_\ell),\bar t^{y_\ell} =
4296: \bar t^{x_{\ell +1}}$ and $i < n(x_{\ell +1}) \Rightarrow
4297: (\eta^{y_\ell}(i) = \eta^{x_{\ell +1}}(i)) \equiv(i
4298: \ne n(x_\ell))$.
4299:
4300: Let $y_{\ell +1} = x_\ell$, clearly $y_{\ell +1},y_\ell \in X$. By
4301: Definition \scite{m.4}(1), we have
4302: $g_{x_\ell} g_{x_{\ell +1}} g^{-1}_{x_\ell} = g_{y_\ell}$ hence
4303: $g_{x_\ell} g_{x_{\ell +1}} = g_{y_\ell} g_{x_\ell} = g_{y_\ell}
4304: g_{y_{\ell +1}}$ and clearly $n(y_{\ell +1}) = n(x_\ell) < n(y_\ell)$ hence
4305: $y_\ell <^* x_\ell = y_{\ell +1}$, so we are
4306: done. \nl
4307: The three cases exhaust all possibilities hence $\circledast_3$ is proved.]
4308: \mr
4309: \item "{$\circledast_4$}" every $g \in G$ can be represented as
4310: $g_{x_1} \ldots g_{x_n}$ with $x_1 <^* x_2 <^* \ldots <^* x_n$.
4311: \ermn
4312: [Why? Without loss of generality $g$ is not the unit of $G$.
4313: By $\circledast_1$ we can find $x_1,\dotsc,x_n \in X_1$ such that $g =
4314: g_{x_1} \ldots g_{x_n}$ and $n \ge 1$. Choose such a representation satisfying
4315: \mr
4316: \item "{$\otimes$}" $(a) \quad$ with minimal $n$ and
4317: \sn
4318: \item "{${{}}$}" $(b) \quad$ for this $n$,
4319: with minimal $m \in \{1,\dotsc,n+1\}$ such
4320: that $x_m <^* \ldots <^* x_n$
4321: \nl
4322:
4323: \hskip25pt and $1 \le \ell < m \le n \Rightarrow \dsize
4324: \bigwedge^{m-1}_{\ell=1} x_\ell <^* x_m$, and
4325: \sn
4326: \item "{${{}}$}" $(c) \quad$ for
4327: this pair $(n,m)$ if $m > 2$ then with maximal $\ell$ where $\ell \in$
4328: \nl
4329:
4330: \hskip25pt $\{1,\dotsc,m-1\}$ satisfies $x_\ell$ is $<^*$-maximal among
4331: $\{x_1,\dotsc, x_{m-1}\}$
4332:
4333: \hskip25pt that is $k \in \{1,\dotsc,m-1\} \Rightarrow x_k \le^* x_\ell$.
4334: \ermn
4335: Easily there is such a sequence $(x_1,\dotsc,x_n)$, noting that $m=n+1$
4336: is O.K. for $(b)$ and there is $\ell$ as in $\otimes(c)$.
4337:
4338: By $\circledast_2$ and clause (a) of $\otimes$
4339: we have $x_\ell \ne x_{\ell +1}$ when $\ell$ from $\otimes(c)$ is
4340: well defined, i.e., if $m>2$). \nl
4341: Now $m=2$ is impossible (as then $m=1$ can serve), if $m=1$ we are
4342: done, and if $m>2$ then $\ell$ is well defined and
4343: $\ell =m-1$ is impossible (as then $m-1$ can serve
4344: instead $m$). Lastly by $\circledast_3$ applied to this $\ell$, we could
4345: have improved $\ell$ to $\ell +1$, contradiction.]
4346: \mr
4347: \item "{$\circledast_5$}" the representation in $\circledast_4$ is
4348: unique.
4349: \ermn
4350: [Why does $\circledast_5$ hold? Assume
4351: toward contradiction that $g_{x'_1} \ldots g_{x'_{n_1}} =
4352: g_{y'_1} \ldots g_{y'_{n_2}}$ where $x'_1 <^* \ldots <^* x'_{n_1}$ and
4353: $y'_1 <^* \ldots <^* y'_{n_2}$ and $(x'_1,\dotsc,x'_{n_1}) \ne
4354: (y'_1,\dotsc,y'_{n_2})$. Without loss of generality among all
4355: such examples, $(n_1 + n_2 + 1)^2 + n_1$ is minimal.
4356:
4357: Recall $Y_n =: \{x \in X:n(x)=n\}$.
4358:
4359: So $\langle Y_n:n < \omega \rangle$ is a partition of $X$.
4360:
4361: For $k \le m < \omega$ let $X^{<k,m>} =
4362: \bigcup\{Y_\ell:k \le \ell < m\}$ and let $G^{<k,m>}$ be the group
4363: generated by $\{g_x:x \in X^{<k,m>}\}$ freely except the equations in
4364: $\Gamma^{<k,n>}$, i.e., the equations from $\Gamma_{u,X^{<k,m>}}$,
4365: i.e., the equations from Definition \scite{m.4}(4)
4366: mentioning only its generators, $\{y_x:x \in X^{<k,m>}\}$.
4367: Now clearly if $\circledast^{u,{\frak s}}_{x,y_1,y_2}$, see Definition
4368: \scite{m.4}(1B) then $n < \omega \Rightarrow [y_2 \in Y_n \equiv y_2
4369: \in Y_n]$ so the set $X^{<k,m>} \subseteq X$ satisfies the requirement
4370: in part (3) of \scite{m.7} which we are proving; so what we have
4371: proved for $X$ holds for $X^{<k,m>}$. In particular
4372: $\circledast_1 - \circledast_4$
4373: above gives that for every $g \in G^{<k,m>}$ there are $n$ and
4374: $x_1 <^* \ldots <^* x_n$ from $X^{<k,m>}$ such that $G^{<n,m>} \models
4375: ``g = g_{x_1} \ldots g_{x_n}"$. Also it is enough to prove the uniqueness
4376: for $G^{<k,m>}$ (for every $k \le m < \omega$), i.e., we can assume
4377: $x'_1,\dotsc,x'_{n_1},y'_1,\dotsc,y'_{n_2} \in X^{<k,m>}$
4378: as if the equality holds (though $\langle x'_1,\dotsc,x'_{n_1}\rangle
4379: \ne \langle y'_1,\dotsc,y'_{n_2}\rangle$), finitely many equations of
4380: $\Gamma_{u,X}$ implies the undesirable equation
4381: and for some $k \le m < \omega $ they are all from $\Gamma^{<k,m>}$
4382: and $\{x'_1,\dotsc,x'_{n_1},y'_1,\dotsc,y'_{n_2}\} \subseteq X$,
4383: hence already in $G^{\langle k,m \rangle}$ we get this undesirable equation.
4384:
4385: Now for $k < m < \omega$ and $ x \in Y_k $ let
4386: $ \pi ^{k,m}_x $ be the following permutation of
4387: $X^{\langle k+1,m \rangle}$: it maps $y_1 \in
4388: X^{\langle k+1,m \rangle}$ to $y_2$ if
4389: $\circledast^{u,{\frak s}}_{x,y_1,y_2}$.
4390:
4391: It is easy to check that
4392: \mr
4393: \item "{$\boxdot_1$}" For $k,m,x$ as above,
4394: {\roster
4395: \itemitem{ $(i)$ } $\pi^{k,m}_x$
4396: is a permutation of $ X^{\langle k+1,m \rangle}$ which maps
4397: $\Gamma^{\langle k+1,m \rangle}$ onto itself
4398: \sn
4399: \itemitem{ $(ii)$ } $\pi^{k,m}_x$ induce an automorphism
4400: $\hat{\pi}^{k,m}_x $ of $G^{\langle k,m \rangle}$: the one
4401: mapping $g_{y_1}$ to $ g_{y_2} $ when $\pi^{k,m}_x (y_1)=y_2 $
4402: \sn
4403: \itemitem{ $(iii)$ } the automorphisms $\hat{\pi}^{k,m}_x$
4404: of $G^{\langle k,m \rangle}$ for $x \in Y_k$ pairwise commute
4405: \sn
4406: \itemitem{ $(iv)$ } the automorphism $\hat{\pi}^{k,m}_x$
4407: of $G^{\langle k,m \rangle}$ is of order two.
4408: \endroster}
4409: \ermn
4410: We prove this revised formulation of the uniqueness by induction on
4411: $m-k$.
4412: \nl
4413: Note that
4414: \mr
4415: \item "{$(*)$}" if $x \in Y_k,y \in Y_\ell$ and $x <^* y$ then $\ell \le k$.
4416: \ermn
4417: If $m-k=0$,
4418: then $G^{<k,m>}$ is the trivial group so the uniqueness is trivial.
4419:
4420: Also the case $ k=m-1 $ is trivial too as in this
4421: case $G^{\langle k,m \rangle}$
4422: is actually a vector space over $ {\Bbb Z}/2{\Bbb Z}$
4423: with basis $\{g_x:x \in Y_k\}$, well in additive notation
4424: so the uniqueness is clear.
4425:
4426: So assume that $m- k \ge 2$, now we need
4427: \mr
4428: \item "{$\boxdot^2_{k,m}$}" if $x'_1,\dots,x'_{n_1},y'_1,
4429: \dots, y'_{n_2 }$ from
4430: $X^{\langle k,m \rangle}$ are as above in $G^{<k,m>}$ then
4431: $\langle x'_1,\dots,x'_{n_1} \rangle = \langle y'_1,\dots,y'_{n_2}\rangle$.
4432: \ermn
4433: We can prove the induction step by \scite{m.8} below.
4434: \nl
4435: So 1),2),3) holds.
4436: \nl
4437: 4) Included in the proof of $\circledast_4$ inside the proof of parts
4438: (1),(2),(3).
4439: \nl
4440: 5) For $\alpha < \beta \le \infty$, clearly $X^{< \alpha}_u
4441: \subseteq X^{< \beta}_u$ and $\Gamma^{< \alpha}_u
4442: \subseteq \Gamma^{< \beta}_u$ hence there is a homomorphism
4443: from $G^{< \alpha}_u$ into $G^{< \beta}_u$. This
4444: homomorphism is one-to-one (because of the uniqueness clause in
4445: part (2)) hence the homomorphism is the identity. So the sequence is
4446: $\subseteq$-increasing, the $\subset$ follows by
4447: part (1), the uniqueness we have rk$_I(t) = \alpha < \infty \Rightarrow
4448: g_{(\langle t \rangle,<>)} \in G^{< \alpha +1}_u \backslash G^{< \alpha}_u$.
4449: \nl
4450: 6),7),8),9) Easy. \hfill$\square_{\scite{m.7}}$
4451: \enddemo
4452: \bigskip
4453:
4454: \demo{\stag{m.8} Observation} Assume that
4455: \mr
4456: \item "{$(a)$}" $G$ is a group
4457: \sn
4458: \item "{$(b)$}" $f_t$ is an automorphism of $G$ for $t \in J$
4459: \sn
4460: \item "{$(c)$}" $f_t,f_s \in \text{ Aut}(G)$ commute for any $s,t \in
4461: J$.
4462: \ermn
4463: \ub{Then} there are $K$ and $\langle g_t:t \in J \rangle$ such that
4464: \mr
4465: \item "{$(\alpha)$}" $K$ is a group
4466: \sn
4467: \item "{$(\beta)$}" $G$ is a normal subgroup of $K$
4468: \sn
4469: \item "{$(\gamma)$}" $H$ is generated by $G \cup \{g_t:t \in J\}$
4470: \sn
4471: \item "{$(\delta)$}" if $a \in G$ and $t \in G$ then $g_t a g^{-1}_t
4472: = f_t(a)$
4473: \sn
4474: \item "{$(\varepsilon)$}" if $<_*$ is a linear order of $J$ then every
4475: member of $K$ has a one and only one representation as $x
4476: g^{b_1}_{t_1} g^{b_2}_{t_2} \ldots g^{b_n}_{t_n}$ where $x \in G,n <
4477: \omega,t_1 <_* \ldots <_* t_n$ are from $J$ and $b_1,\dotsc,b_n \in
4478: \Bbb Z \backslash \{0\}$.
4479: \endroster
4480: \enddemo
4481: \bigskip
4482:
4483: \demo{Proof} A case of semi-direct product, see below. (It is also a case of
4484: repeated HNN extensions). \hfill$\square_{\scite{m.8}}$
4485: \enddemo
4486: \bigskip
4487:
4488: \definition{\stag{m.9} Definition/Claim} 1) Assume $G_1,G_2$ are groups and
4489: $\pi$ is a homomorphism from $G_1$ into Aut$(G_2)$, we define the sem-direct
4490: product $G = G_1 *_\pi G_2$ as follows:
4491: \mr
4492: \item "{$(a)$}" the set of elements is $G_1 \times G_2 =
4493: \{(g_1,g_2):g_1 \in G_1,g_2 \in G_2\}$
4494: \sn
4495: \item "{$(b)$}" the product operation is $(g_1,g_2) * (h_1,h_2) =
4496: (g_1 h_1,g^{\pi(h_1)}_2 h_2)$ where
4497: {\roster
4498: \itemitem{ $(\alpha)$ } $g^{\pi(h_1)}_2$ is the image of $g_2$ by the
4499: automorphism $\pi(h_1)$ of $G_2$
4500: \sn
4501: \itemitem{$ (\beta)$ } $g_1 h_1$ is a $G_1$-product
4502: \sn
4503: \itemitem{ $(\gamma)$ } $g^{\pi(h_1)}_2 h_2$ is a $G_2$-product.
4504: \endroster}
4505: \ermn
4506: 2)
4507: \mr
4508: \item "{$(a)$}" such group $G$ exists
4509: \sn
4510: \item "{$(b)$}" in $G$ every member has one and only one
4511: representation as $g'_1 g'_2$ where $g'_1 \in G_1 \times
4512: \{e_{G_2}\},g'_2 \in \{e_{G_1}\} \times G_2$
4513: \sn
4514: \item "{$(c)$}" the mapping $g_1 \mapsto (g_1,e)$ embeds $G_1$ into
4515: $G$
4516: \sn
4517: \item "{$(d)$}" the mapping $g_2 \mapsto (e,g_2)$ embeds $G_2$ into
4518: $G$
4519: \sn
4520: \item "{$(e)$}" so up to renaming, for each $h_1 \in G_1$ conjugating by
4521: it (i.e. $g \mapsto h^{-1}_1 g h_1$) inside $G$ acts on $G_2$ as
4522: the automorphism $\pi(h_1)$ of $G_1$.
4523: \ermn
4524: 3) If $H_1,H_2$ is a subgroup of $G_1,G_2$ respectively, and $g_1 \in
4525: H_1 \Rightarrow \pi(g_1)$ maps $H_2$ onto itself and $\pi':H_1
4526: \rightarrow \text{ Aut}(H_2)$ is $\pi'(x) = \pi(x) \restriction H_2$
4527: \ub{then} $\{(h_1,h_2):h_1 \in H_1,h_2 \in H_2\}$ is a subgroup of
4528: $G_1 *_\pi G_2$ and is in fact $H_1 *_{\pi'} H_2$; we denote $\pi'$ by
4529: $\pi_{[H_1/H_2]}$.
4530: \nl
4531: 4) If the pairs $(H^a_1,H^a_2)$ and $(H^b_1,H^b_2)$ are as in part (3)
4532: and $H^c_1 := H^a_1 \cap H^b_1,H^c_2 := H^a_2 \cap H^b_2$ \ub{then}
4533: the pair $(H^c_1,H^c_2)$ is as in part (3) and $(H^a_1
4534: *_{\pi[H^a_1,H^a_2]} H^a_2) \cap (H^b_1 *_{[H^b_1,H^b_2]} H^b_2) =
4535: (H^c_1 *_{\pi[H^c_1,H^c_2]} H^c_2)$.
4536: \enddefinition
4537: \bigskip
4538:
4539: \demo{Proof} Known and straight. \hfill$\square_{\scite{m.9}}$
4540: \enddemo
4541: \bigskip
4542:
4543: \proclaim{\stag{m.11} Claim} Let ${\frak s}$ be a $\kappa$-p.o.w.i.s.,
4544: $u \in J^{\frak s}$ and
4545: $I_u = I^{\frak s}_u$ be non-trivial.
4546: \nl
4547: 1) If $0 \le \alpha < \infty$ \ub{then}
4548: the normalizer of $G^{< \alpha}_u$ in $G_u$ is
4549: $G^{< \alpha +1}_u$. \nl
4550: 2) If $\alpha = { \text{\rm rk\/}}(I_u)$ \ub{then} the normalizer
4551: of $G^{< \alpha}_u$ in $G_u$ is
4552: $G^{< \infty}_u = G^{< \alpha}_u$.
4553: \endproclaim
4554: \bigskip
4555:
4556: \demo{Proof} 1) First
4557: \mr
4558: \item "{$(*)_1$}" if $x \in X_u$ and rk$^2_u(x) = \alpha$ then
4559: conjugation by $g_x$ in $G_u$ maps $\{g_y:y \in X^{< \alpha}_u\} = \{g_y:
4560: y \in X_u$ and rk$^2_u(y) < \alpha\}$ onto itself.
4561: \ermn
4562: [Why? As $g_x = g^{-1}_x$ it is enough to prove for
4563: every $y \in X^{< \alpha}_u$
4564: that: $g_x g_y g^{-1}_x \in X^{< \alpha}_u$. Now
4565: for each such $y$, one of the following cases occurs.
4566: \bn
4567: \ub{Case $(i)$}: $g_x,g_y$ commutes so $g_x g_y g^{-1}_x = g_y \in
4568: X^{< \alpha}_u$.
4569:
4570: In this case the desired conclusion holds trivially.
4571: \mn
4572: \ub{Case $(ii)$}: $n(y) \le n(x)$ and not case (i).
4573:
4574: As case (i) does not occur, necessarily $n(y) < n(x)$ and $y=x
4575: \upharpoonleft n(y)$ by \scite{m.6}(6). Also it
4576: follows that $t^x_{n(x)} <_{I_u[{\frak s}]} t^y_{n(y)}$, i.e., $t(x)
4577: <_{I_u[{\frak s}]} t(y)$ but rk$^2_u(x) = \alpha$ hence rk$^2(y)
4578: \in \{-1\} \cup [\alpha +1,\infty]$. However we are assuming
4579: $y \in X^{< \alpha}_u$ hence necessarily $y \in X^{< 0}_u$,
4580: so $\langle \eta^y(\ell):\ell < n(y)\rangle$ is not constantly 1
4581: hence $\langle \eta^x(\ell):\ell < n(x)\rangle$ is not constantly 1
4582: hence rk$^2_u(x)=0$, contradiction.
4583: \mn
4584: \ub{Case $(iii)$}: $n(y) > n(x)$ and not case (i).
4585:
4586: As in case (ii) by \scite{m.6}(6) we have $x = y \upharpoonleft n(x)$.
4587:
4588: Clearly $t(y) = t^y_{n(y)} <_{I_u[{\frak s}]} t^y_{n(x)} = t^x_{n(x)}
4589: = t(x)$ so as rk$^2_u(x) \ge 0$ necessarily
4590: rk$^1_u(x) = \text{ rk}^2_u(t(x)) = \alpha \in [0,\infty)$
4591: hence rk$_{I_u}(t^y) < \text{ rk}_{I_u}(t^x) = \alpha$ and so
4592: rk$^2_u(y) \le \text{ rk}^1_u(t^y) < \alpha$.
4593:
4594: Let $y_1=y$ and by \scite{m.6}(1),(6) and Definition \scite{m.4}(1A)
4595: there is $y_2$ such that $\circledast^{u,{\frak
4596: s}}_{x,y_1,y_2}$ hence $G_u \models g_x g_y g^{-1}_x = g_{y_2}$ and
4597: $\bar t^y = \bar t^{y_1} = \bar t^{y_2}$, so rk$^2_u(y_2) \le
4598: \text{ rk}^1_u(y_2) = \text{ rk}^1_u(t^{y_2}) =
4599: \text{ rk}^1_u(t^{y_1}) < \alpha$ hence $y_2 \in X^{< \alpha}_u$
4600: and so $g_{y_2} \in G^{< \alpha}_u$ so we are done.
4601: \nl
4602: So $(*)_1$ holds.]
4603: \mn
4604: Now by $(*)_1$ it follows that $g_x$ normalize $G^{< \alpha}_u$
4605: for every member $g_x$ of $\{g_x:\text{rk}^2_u(x) = \alpha\}$, hence clearly
4606: nor$_{G_u}(G^{< \alpha}_u) \supseteq (G^{< \alpha}_u) \cup
4607: \{g_x:\text{rk}^2_u(x) = \alpha$ and $x \in X_u\}$
4608: but the latter generates $G^{< \alpha +1}_u$ hence
4609: \mr
4610: \item "{$(*)_2$}" nor$_{G_u}
4611: (G^{< \alpha}_u) \supseteq G^{< \alpha +1}_u$.
4612: \ermn
4613: Second assume $g \in G_u \backslash G^{< \alpha +1}_u$,
4614: let $<^*$ be a linear ordering of $X_u$ as in $\boxdot$ of \scite{m.7}; so
4615: we can find $k < \omega$ and $x_1 <^* \ldots
4616: <^* x_k$ from $X_u$ such that $g = g_{x_1} g_{x_2} \ldots g_{x_k}$ and
4617: so it suffices to prove by induction on $k$ that if $g = g_{x_1}
4618: \ldots g_{x_k} \in G_u \backslash G^{< \alpha +1}_u$ then $g \notin
4619: \text{ nor}_{G_u}(G^{< \alpha})$. By \scite{m.7}(2),(4) \wilog \, $x_1
4620: <^* \ldots <^* x_k$.
4621: As $g \notin G^{< \alpha +1}_u$ necessarily not all the $x_m$'s
4622: are from $X^{< \alpha +1}_u$ hence for some
4623: $m,g_{x_m} \notin G^{< \alpha +1}_u$.
4624: \mr
4625: \item "{$(*)_3$}" \wilog \, $x_1,x_k \notin G^{< \alpha +1}_u$.
4626: \nl
4627: [Why? So assume $x_k \in G^{< \alpha +1}_u$ hence
4628: {\roster
4629: \itemitem{ $(a)$ } $x_k \in \text{\rm nor}_{G_u}(G^{< \alpha}_u)$ (as we
4630: have already proved $G^{<(\alpha +1)}_u \subseteq
4631: \text{\rm nor}_{G_u}(G^{< \alpha}_u))$
4632: \sn
4633: \itemitem{ $(b)$ } nor$_{G_u}(G^{< \alpha}_u)$ is a subgroup of $G_u$
4634: hence
4635: \sn
4636: \itemitem{ $(c)$ } $g = g_{x_1} \ldots g_{x_{k-1}} g_{x_k}
4637: \in \text{ nor}_{G_u}(G^{< \alpha}_u)$ iff
4638: $g_{x_1} \ldots g_{x_{k-1}} \in \text{ nor}_{G_u}(G^{< \alpha}_u)$.
4639: \endroster}
4640: By the induction hypothesis on $k$ we get are done.
4641: Similarly if $g_{x_1} \in G^{< \alpha +1}_u$ then derive
4642: $g \in \text{ nor}_{G_u}(G^{< \alpha}_u)$
4643: iff $g_{x_2} \ldots g_{x_k} \in \text{ nor}_{G_u}(G^{< \alpha}_u)$ to finish.]
4644: \ermn
4645: Now we can find $t^* \in I_u$ such that
4646: \mr
4647: \item "{$(*)_4$}" $(a) \quad t^* <_{I_u} t(x_1)$
4648: \sn
4649: \item "{${{}}$}" $(b) \quad$ rk$_{I_u}(t^*) \ge \alpha$
4650: \sn
4651: \item "{${{}}$}" $(c) \quad t^* \notin \{t_\ell(x):x \in
4652: \{x_1,\dotsc,x_k\}$ and $\ell \in \{0,\dotsc,n(x)\}\}$.
4653: \ermn
4654: [Why? As we assume that ${\frak s}$ is nice which implies that each
4655: $I_u$ is non-trivial, see Definition \scite{m.1}(6) and Definition
4656: \scite{m.2}(7).]
4657:
4658: Let $m(*)$ be maximal such that $1 \le m(*) \le k$ and
4659: $(\exists i)(x_{m(*)} = x_1 \upharpoonleft i)$.
4660: \nl
4661: Now we choose $y \in X^{\frak s}_u$ as follows:
4662: \mr
4663: \item "{$(*)_5$}" $(a) \quad \bar t^y = \bar t^{x_{m(*)}} \char 94
4664: \langle t^* \rangle$
4665: \sn
4666: \item "{${{}}$}" $(b) \quad \eta^y \restriction n(x_{m(*)}) = \eta^{x_{m(*)}}$
4667: \sn
4668: \item "{${{}}$}" $(c) \quad \eta^y (n(x_{m(*)})) = 0$.
4669: \ermn
4670: Note that
4671: \mr
4672: \item "{$(*)_6$}" $y \in X^{< 0}_u$ and $n(y) = n(x_{m(*)}) + 1$ and
4673: \sn
4674: \item "{$(*)_7$}" $n(x_1) \ge \ldots \ge n(x_{m(*)})
4675: \ge n(x_{m(*)+1}) \ge \ldots \ge n(x_k)$.
4676: \ermn
4677: We now try to define $\langle y_\ell:\ell=1,\dotsc,k+1 \rangle$ by
4678: induction on $\ell$ as follows :
4679: \mr
4680: \item "{$(*)_8$}" $y_1 = y$ and $G_u \models g^{-1}_{x_\ell}
4681: g_{y_\ell} g_{x_\ell} = g_{y_{\ell +1}}$ if well defined.
4682: \ermn
4683: So
4684: \mr
4685: \item "{$(*)_9$}" $y_\ell = y$ for $\ell = 1,\dotsc,m(*)$ and is well defined.
4686: \nl
4687: [Why? We prove it by induction on $\ell$. For $\ell=1$ this is
4688: given. So assume that this holds for $\ell$ and we shall prove it for
4689: $\ell+1$ when $\ell + 1 \le m(*)$. Now $\neg(\bar t^y \triangleleft
4690: \bar t^{x_\ell})$ by the choice of $t^*$ (and $y$) and hence $\neg(y = x_\ell
4691: \upharpoonleft n(y) \wedge n(y) < n(x_\ell))$ and we also have
4692: $\neg(x_\ell = y \upharpoonleft n(x_\ell) \wedge n(x_\ell) < n(y))$
4693: as otherwise $x_\ell = x_{m(*)} \upharpoonleft n(x_\ell)$
4694: but $n(x_\ell) \ge n(x_{m(*)})$ as $x_\ell
4695: <^* x_{m(*)}$ hence
4696: $x_\ell = x_{m(*)}$, but $\ell \ne m$ hence $x_\ell \ne x_{m(*)}$,
4697: contradiction.
4698: Together by \scite{m.6}(6) the elements $g_y,g_{x_\ell}$ commute so as
4699: by the induction hypothesis $y_\ell = y$ it follows that $y_{\ell +1}
4700: = y$ so we are done.]
4701: \ermn
4702: Now:
4703: \mr
4704: \item "{$(*)_{10}$}" $y_{m(*)+1}$ is well defined and
4705: satisfies $(*)_5(a),(b)$ and $(*)_5(c)$ when we replace 0 by 1.
4706: \nl
4707: [Why? By the definition of $G_u$ in \scite{m.4}(1),(1B).]
4708: \sn
4709: \item "{$(*)_{11}$}" $y_{m(*)+1} \notin G^{< \alpha}_u$.
4710: \nl
4711: [Why? By $(*)_3,x_1 \notin G^{< \alpha +1}_u$ hence $\eta^{x_1}$ is
4712: constantly 1; but $x_{m(*)} = x_1 \upharpoonleft n(x_{m(*)})$
4713: hence $\eta^{x_{m(*)}}$ is constantly
4714: one. Now $\eta^{y_{m(*)+1}} = \eta^{x_{m(*)}} \char 94 \langle 1 \rangle$ by
4715: $(*)_{10}$ hence $\eta^{y_{m(*)+1}}$ is constantly one.
4716: So rk$^2_u(y_{m(*)+1}) = \text{ rk}_{I[u]}(t^{y_{m(*)+1}})
4717: = \text{ rk}_u(t^*) \ge \alpha$ so we are done.]
4718: \sn
4719: \item "{$(*)_{12}$}" if $\ell \in \{m(*)+1,\dotsc,k+1\}$ then $y_\ell =
4720: y_{m(*)+1}$ and $y_\ell$ is well defined.
4721: \nl
4722: [Why? We prove this by induction on $\ell$. For $\ell = m(*)+1$ this
4723: is trivial by $(*)_{10}$.
4724: For $\ell + 1 \in \{m(*)+2,\dotsc,k+1\}$, it is enough to
4725: prove that $y_{m(*)+1},x_\ell$ commute. Now $\neg(\bar t^{y_{m(*)+1}}
4726: \triangleleft \bar t^{x_\ell})$ because $\ell g(\bar t^{y_{m(*)+1}}) =
4727: \ell g(\bar t^y) = \ell g(\bar t^{x_{m(*)}}) + 1 \ge \ell
4728: g(t^{x_\ell})+1 > \ell g(\bar t^{x_\ell})$ hence
4729: $\neg \bigl( y_{m(*)+1} = x_\ell \upharpoonleft n(y_{m(*)+1}) \wedge
4730: n(y_{m(*)+1}) < n(x_\ell) \bigr)$; also $\neg \bigl( x_\ell = y_{m(*)+1}
4731: \upharpoonleft n(x_\ell) \wedge n(x_\ell) < n(y_{m(*)+1}) \bigr)$
4732: as otherwise this contradicts the choice of $m(*)$. So
4733: by \scite{m.6}(6) they commute indeed.]
4734: \sn
4735: \item "{$(*)_{13}$}" $g^{-1} g_y g = g_{y_{k+1}}$.
4736: \nl
4737: [Why? We can prove by induction on $\ell = 1,\dotsc,k+1$ that
4738: \nl
4739: $(g_1 \ldots g_{\ell -1})^{-1} g_y (g_1 \ldots g_{\ell -1}) =
4740: g_{y_\ell}$, by the definition of the $y_\ell$'s, i.e., by $(*)_8$ and
4741: they are well defined by $(*)_9 + (*)_{10} + (*)_{12}$.]
4742: \sn
4743: \item "{$(*)_{14}$}" $g^{-1} g_y g = g_{m(*)+1}$.
4744: \nl
4745: [Why? By $(*)_{12}$ and $(*)_{13}$.]
4746: \sn
4747: \item "{$(*)_{15}$}" $g^{-1} g_y g \notin G^{< \alpha}_u$.
4748: \nl
4749: [Why? By $(*)_{14} + (*)_{11}$.]
4750: \ermn
4751: So by $(*)_6$ we have $g_y \in G^{< 0}_u \subseteq G^{< \alpha}_u$
4752: and by $(*)_{15}$ we have $g^{-1} g_y g \notin G^{< \alpha}_u$ hence
4753: $g$ does not normalize $G^{< \alpha}_u$, so we have carried the
4754: induction on $k$. As $g$ was any
4755: member of $G_u \backslash G^{<(\alpha +1)}_u$ we get nor$_{G_u}(G^{<
4756: \alpha}_u) \subseteq G^{<(\alpha +1)}_u$.
4757:
4758: Together with $(*)_2$ we are done.
4759: \nl
4760: 2) Follows. \hfill$\square_{\scite{m.11}}$
4761: \enddemo
4762: \newpage
4763:
4764: \head {\S2 Easier group} \endhead \resetall \sectno=2
4765: \spuriousreset
4766: \bigskip
4767:
4768: The $G^{\frak s}_u$'s from \S1 has long towers of normalizers but the ``base",
4769: $G^{< 0,{\frak s}}_u$ is in general of large cardinality. Hence we
4770: replace below $G^{\frak s}_u$ by $K^{\frak s}_u$ and
4771: $G^{< 0,{\frak s}}_u$ by $H^{\frak s}_u$.
4772:
4773: \definition{\stag{n.1} Definition} Let ${\frak s}$ be a
4774: $\kappa$-p.o.w.i.s.
4775: \nl
4776: 1) For $u \in J^{\frak s}$:
4777: \mr
4778: \item "{$(a)$}" recall \scite{m.7}(6): ${\Cal A}_u = {\Cal A}^{\frak s}_u
4779: = \{g G^{< 0}_u:g \in G_u\}$
4780: is a partition of $G$ (to left cosets of $G^{< 0}_u$ inside $G_u$);
4781: \sn
4782: \item "{$(b)$}" we define for every $f \in G_u$ a permutation
4783: $\partial_f$ of ${\Cal A}_u$ defined by $\partial_f(g_1 G^{<0}_u) = (f g_1)
4784: G^{<0}_u$, we may write it also as $f(g_1 G)$
4785: \sn
4786: \item "{$(c)$}" let $L_u = L^{\frak s}_u$ be the group
4787: generated by $\{h_{\bold a}:\bold a \in {\Cal A}_u\}$ freely except
4788: $h_{\bold a} h_{\bold b} = h_{\bold b} h_{\bold a}$ and $h^{-1}_{\bold a} =
4789: h_{\bold a}$ for ${\bold a},{\bold b} \in {\Cal A}_u$; for $g \in G_u$
4790: let $h_g = h_{g G^{<0}_u}$
4791: \sn
4792: \item "{$(d)$}" let ${\bold h}_u = {\bold h}^{\frak s}_u$ be the
4793: homomorphism from $G_u$ into the automorphism group of $L_u$ such
4794: that $f \in G_u \wedge {\bold a} \in {\Cal A}_u \Rightarrow ({\bold
4795: h}_u(f))(h_{\bold a}) = h_{f{\bold a}}$
4796: \sn
4797: \item "{$(e)$}" let $K_u = K^{\frak s}_u$ be $G_u *_{\bold h_u} L_u$,
4798: the twisted product of
4799: $G_u,L_u$ with respect to the homomorphism
4800: ${\bold h}_u$, see \scite{m.9}, and we
4801: identify $G_u$ with $G_u \times \{e_{L_u}\}$ and $L_u$ with
4802: $\{e_{G_u}\} \times L_u$
4803: \sn
4804: \item "{$(f)$}" let $H_u = \{(e_{G_u},h_{e G^{\le
4805: 0}_u}),(e_{G_u},e_{L_u})\}$, a subgroup of $K_u$ and let $h_* :=
4806: h_{e_{G_u}} = h_{e_{G_u} G^{\le 0}_u} \in L_u$, i.e. the pair
4807: $(e_{G_u},g_{e G^{\le 0}_u})$, this is the unique member of $H_u$
4808: which is not the unit.
4809: \ermn
4810: 2) For $\alpha \le \infty$ let $K^{< \alpha}_u =
4811: K^{< \alpha,{\frak s}}_u$ be the subgroup $\{(g,h):g \in G^{<
4812: \alpha}_u$ and $h \in L_u\}$ of $K_u$. Similarly $K^{\le \alpha}_u =
4813: K^{\le \alpha,{\frak s}}_u$.
4814: \nl
4815: 3) For $u \in J^{\frak s}$ let
4816: \mr
4817: \item "{$(a)$}" $D_u = D^{\frak s}_u = \{(v,g):v
4818: \le_{J[{\frak s}]} u$ and $g \in K^{\frak s}_v\}$
4819: \sn
4820: \item "{$(b)$}" $Z^0_u = \{(\bar t,\eta):\bar t = \langle t_\ell:
4821: \ell \le n\rangle,n < \omega,t_\ell \in I$ for each $\ell < n$
4822: and $\eta \in {}^n 2\}$ and let $z = (\bar t^z,\eta^z) = (\langle
4823: t^z_\ell:\ell \le n \rangle,\eta^z)$ and $n(z) = n$ for $z \in Z^0_u$;
4824: this is compatible with Definition \scite{m.2}(4); note that here
4825: $\bar t$ is not necessarily decreasing
4826: \sn
4827: \item "{$(c)$}" $Z^1_u := \{\langle x_\ell:\ell < k \rangle:k <
4828: \omega$, each $x_\ell$ is from $Z^0_u\}$ and let $z = (\langle
4829: x^z_\ell:\ell < k(z)\rangle)$ if $z \in Z^1_u$
4830: \sn
4831: \item "{$(d)$}" $Z_u := Z^0_u \cup Z^1_u$
4832: \sn
4833: \item "{$(e)$}" for $z \in Z_u$ we define his$(z)$, a finite subset
4834: of $I_u$ by
4835: {\roster
4836: \itemitem{ $(\alpha)$ } if $z = (\langle t_\ell:\ell \le
4837: n\rangle,\eta) \in Z^0_u$ then his$(z) = \{t_\ell:\ell \le n\}$
4838: \sn
4839: \itemitem{ $(\beta)$ } if $z \in Z^1_u$ say $z =
4840: \langle (\langle t^k_\ell:\ell \le
4841: \ell_k\rangle,\eta^k):k<k^*\rangle \in Z^1_u$ then his$(z)
4842: = \{t^k_\ell:k < k^*$ and $\ell \le \ell_k\}$
4843: \endroster}
4844: \item "{$(f)$}" for $z = Z_u$ let $n(z) = \Sigma\{\ell_k:k < k^*\}$ if $z =
4845: \langle (\langle t^k_\ell:\ell \le \ell_k \rangle,\eta^k):k
4846: <k^*\rangle \in Z^1_u$ and $n(z)$ is already defined if $z \in Z^0_u$
4847: in clause (b).
4848: \endroster
4849: \enddefinition
4850: \bigskip
4851:
4852: \demo{\stag{n.1.11} Observation} In Definition \scite{n.1}.
4853: \nl
4854: 1) For $u \in J^{\frak s},K_u$ is well defined and
4855: $G_u,L_u$ are subgroups of $K_u$ (after the identification).
4856: \nl
4857: 2) For $I \subseteq I^{\frak s}_u$ let $L^{\frak s}_{u,I}$ be the
4858: subgroup of $L^{\frak s}_u$ be generated by $\{h_{g G^{<0}_u}:g \in
4859: G^{\frak s}_{u,X_I}\}$. If $I_1,I_2 \subseteq I^{\frak s}_u$ then
4860: $L^{\frak s}_{u,I_1} \cap L^{\frak s}_{u,I_2} = L^{\frak s}_{u,I_1
4861: \cap I_2}$.
4862: \nl
4863: 3) For $I \subseteq I^{\frak s}_u$ let $K^{\frak s}_{u,I}$ be the
4864: subgroup of $K^{\frak s}_u$ generated by $G^{\frak s}_{u,X_I} \cup
4865: L^{\frak s}_{u,I}$. Then
4866: \mr
4867: \item "{$(a)$}" $G^{\frak s}_{u,X_I}$ normalized
4868: $L^{\frak s}_{u,I}$ inside $K^{\frak s}_u$
4869: \sn
4870: \item "{$(b)$}" $K^{\frak s}_{u,I}$ is $G^{\frak s}_{u,X_I} *_\pi
4871: L^{\frak s}_{u,I}$ for the natual $\pi$.
4872: \ermn
4873: Also
4874: \mr
4875: \item "{$(c)$}" if
4876: $I_1,I_2 \subseteq I^{\frak s}_u$ then $K^{\frak s}_{u,I_1}
4877: \cap K^{\frak s}_{u,I_2} = K^{\frak s}_{u,I_1 \cap I_2}$.
4878: \endroster
4879: \enddemo
4880: \bigskip
4881:
4882: \demo{Proof} Easy (recall \scite{m.7}(8),(9), \scite{m.9}(2),(3)).
4883: \enddemo
4884: \bigskip
4885:
4886: \definition{\stag{n.1.15} Definition} 1) If $I$ is a partial order
4887: \ub{then} ${}^k I$ is the set of $\bar t = \langle t_\ell:\ell < k
4888: \rangle$ where $t_\ell \in I$.
4889: \nl
4890: 2) If $\bar t \in {}^k I$ then tp$_{\text{qf}}(\bar t,\emptyset,I) =
4891: \{(\iota,\ell_1,\ell_2):\iota =0$ and $I \models t_{\ell_1} <
4892: t_{\ell_2}$ or $\iota=1$ and $t_{\ell_1} = t_{\ell_2}$ or $\iota
4893: =2$ and $I \models t_{\ell_1} > t_{\ell_2}$ and $\iota = 3$ if none of
4894: the previous cases$\}$.
4895: \nl
4896: 2A) Let ${\Cal S}^k = \{\text{tp}_{\text{qf}}(\bar t,
4897: \emptyset,I):\bar t \in {}^k I$ and $I$ is a partial order$\}$.
4898: \nl
4899: 3) We say $\bar t \in {}^k I$ realizes $p \in {\Cal S}^k$ when $p =
4900: \text{ tp}_{\text{qf}}(\bar t,\emptyset,I)$.
4901: \nl
4902: 4) If $k_1 < k_2$ and $p_2 \in {\Cal S}^{k_2}$ then $p_1:= p_2
4903: \restriction k_1$ is the unique $p_1 \in {\Cal S}^{k_1}$ such that
4904: if $p_2 = \text{ tp}_{\text{qf}}(\bar t,\emptyset,I)$ then $p_1 =
4905: \text{ tp}_{\text{qf}}(\bar t \restriction k_1,\emptyset,I)$.
4906: \enddefinition
4907: \bigskip
4908:
4909: \remark{Remark} Below each member of
4910: $\Lambda^0_k,\Lambda^1_k,\Lambda^2_k$ will be a description of an
4911: element of $G^{\frak s}_u,{\Cal A}^{\frak s}_u,K^{\frak s}_u$
4912: respectively from a $k$-tuple of members of $I^{\frak s}_u$. Of
4913: course, a member of $Z^{\frak s}_u$ is a description of a generator of
4914: $K^{\frak s}_u$.
4915: \endremark
4916: \bigskip
4917:
4918: \definition{\stag{n.1.17} Definition} 1) For $k < \omega$
4919: let $\Lambda^0_k = \cup\{\Lambda^0_{k,p}:p \in {\Cal
4920: S}^k\}$ where for $p \in {\Cal S}^k$ we let
4921: $\Lambda^0_{k,p}$ be the set of sequences of the form
4922: $\langle (\bar \ell_j,\eta_j):j < j(*)\rangle$ such that:
4923: \mr
4924: \item "{$(a)$}" for each $j$ for some $n=n(\bar \ell_j,\eta_j)$ we
4925: have $\bar \ell_j = \langle \ell_{j,i}:i \le n(\bar \ell_j,\eta_j)\rangle$
4926: is a sequence of numbers $<k$ of length $n+1$ such that $p =
4927: \text{ tp}_{\text{qf}}(\bar t,\emptyset,I) \Rightarrow \langle
4928: t_{\ell_{j,i}}:i \le n(\ell_j,\eta_j)\rangle$ is decreasing
4929: \sn
4930: \item "{$(b)$}" for each $j,\eta_j \in {}^n 2$ where $n = n(\bar
4931: \ell_j,\eta_j)$.
4932: \ermn
4933: 2) For any p.o.w.i.s.
4934: ${\frak s},u \in J^{\frak s},\bar t \in {}^k(I_u)$ and $\rho =
4935: \langle(\bar \ell_j,\eta_j):j<j(*)\rangle \in \Lambda^0_k$, let
4936: $g^u_{\bar t,\rho} = g^{u,{\frak s}}_{\bar t,\rho} =
4937: (\ldots g_{(\bar t^j,\eta_j)} \ldots)_{j<j(*)}$, the product in $G_u
4938: \subseteq K_u$ (so if $j(*)=0$ it is $e_{G_u} = e_{K_u}$) where
4939: \mr
4940: \item "{$(a)$}" $\bar t^j = \text{ seq}_{\rho,j}(\bar t) := \langle
4941: t_{\ell_{j,i}}:i \le n(\ell_j,\eta_j)\rangle$
4942: \sn
4943: \item "{$(b)$}" if $\bar t^j$ is decreasing (in $I_u$) then $g_{(\bar
4944: t^j,\eta_j)} \in G_u \subseteq K_u$ is already well defined, if not then
4945: $g_{(\bar t^j,\eta_j)} = e_{K_u}$.
4946: \ermn
4947: 2A) For a p.o.w.i.s. ${\frak s},u \in J^{\frak s},t \in {}^k(I^{\frak
4948: s}_u)$ and $\rho = \langle(\bar \ell_j,\eta_j):j < j(*)\rangle \in
4949: \Lambda^0_k$ let $z^u_{\bar t,\rho} = z^{u,{\frak s}}_{\bar t,\rho}$
4950: be the following member of $Z^{1,{\frak s}}_u$: it is $\langle x_{\bar
4951: t,\rho,j}:j < j(*)\rangle$ where $x_{\bar t,\rho,j} = x_{\bar t,(\bar
4952: \ell_j,\eta_j)} = (\langle t_{\ell_{j,i}}:i \le n(\bar
4953: \ell_j,\eta_j)\rangle,\eta_j)$.
4954: For $p \in {\Cal S}^k$ and $\rho = \langle(\bar \ell_j,\eta_j):j <
4955: j(*)\rangle \in \Lambda^0_{k,p}$ let supp$(\rho) =
4956: \cup\{\text{Rang}(\bar \ell_j):j<j(*)\}$ and if $\bar t \in
4957: {}^k(I^{\frak s}_u)$ let sup$(\bar t,\rho) = \{t_\ell:\ell \in \text{
4958: supp}(\rho)\}$.
4959: \nl
4960: 2C) We say $\rho \in \Lambda^0_k$ is $p$-reduced when: $p \in {\Cal
4961: S}^k$ and for every p.o.w.i.s. ${\frak s},u \in J^{\frak s}$ and $t
4962: \in {}^k(I^{\frak s}_u)$ realizing $p$ (in $I^{\frak s}_u$), for no
4963: $\rho' \in \Lambda^0_k$ do we have supp$(\rho') \subset \text{ supp}(\rho)$ and
4964: $g^{u,{\frak s}}_{\bar t,\rho'} = g^{u,{\frak s}}_{\bar t,\rho'}$.
4965: \nl
4966: 2D) We say that $\rho \in \Lambda^0_k$ is explicitly $p$-reduced when
4967: the sequence is with no repetitions and $\langle
4968: n(\bar \ell_j,\eta_j):j < j(*)\rangle$ is non-increasing (the
4969: length can be zero).
4970: \nl
4971: 3) For $k < \omega$ let $\Lambda^1_k =
4972: \cup\{\Lambda^1_{k,p}:p \in {\Cal S}^k\}$ where for $p \in {\Cal S}^k$
4973: we let $\Lambda^1_{k,p}$ be
4974: the set of $\rho = \langle (\bar \ell_j,\eta_j):j<j(*)\rangle
4975: \in \Lambda^0_{k,p}$ such that: for every ${\frak s}$ and $u \in
4976: J^{\frak s}$ if
4977: $\bar t \in {}^k(I^{\frak s}_u)$ realizes $p$ \ub{then} there is no
4978: $\rho' \in \Lambda^0_{k,p}$ with supp$(\rho') \subset \text{\rm
4979: supp}(\rho)$ and satisfying
4980: $g^{u,{\frak s}}_{\bar t,\rho} G^{< 0}_u = g_{\bar t,\rho'}
4981: G^{< 0}_u$.
4982: \nl
4983: 4) For $k < \omega$ and $p \in {\Cal S}^k$ let $\Lambda^2_{k,p}$
4984: be the set of finite sequences $\varrho$ of
4985: length $\ge 1$ such that $\varrho(0)
4986: \in \Lambda^0_{k,p}$ and $0 < i < \ell g(\varrho) \Rightarrow \ell
4987: g(\varrho(i)) > 0 \wedge \varrho(i) \in \Lambda^1_{k,p}$.
4988: Let $\Lambda^2_k = \cup\{\Lambda^2_{k,p}:p \in {\Cal S}^k\}$.
4989: \nl
4990: 5) For any ${\frak s}$, if
4991: $u \in J^{\frak s},\bar t \in {}^k(I_u)$ and $\varrho = \langle
4992: \rho_i:i <i(*)\rangle \in \Lambda^2_k$ then $g_{\bar t,\varrho} \in
4993: K_u$ (recalling $i(*) \ge 1$) is $g_{\bar t,\rho_0}
4994: h_{g_{\bar t,\rho_1}} h_{g_{\bar t,\rho_2}},
4995: \dotsc,h_{g_{\bar t,\rho_{i(*)-1}}}$ (product in $K_u$) where $g_{\bar
4996: t,\rho_\ell}$ is from Part (2), recalling that $h_g = h_{g G^{<0}_u}$
4997: is from clause (c) of Definition \scite{n.1}(2).
4998: \nl
4999: 5A) For any p.o.w.i.s. ${\frak s},u \in J^{\frak s},\bar t \in
5000: {}^k(I^{\frak s}_u)$ and $\varrho = \langle \rho_i:u < i(*)\rangle
5001: \in \Lambda^2_k$, let $z^u_{\bar t,\varrho} = z^{u,{\frak s}}_{\bar t,\varrho}
5002: \in Z^{2,{\frak s}}_u$ be $\langle z^u_{\bar t,\rho_i}:i < i(*)\rangle$.
5003: \nl
5004: 5B) For $p \in {\Cal S}^k$ and $\varrho \in \Lambda^2_{k,p}$ let
5005: supp$(\varrho) = \cup\{\text{supp}(\varrho(i):i < \ell g(\varrho)\}$.
5006: \nl
5007: 5C) We say $\varrho \in \Lambda^2_{k,p}$ is $p$-reduced when for every
5008: p.o.w.i.s. ${\frak s},u \in J^{\frak s}$ and $\bar t \in {}^k(I^{\frak
5009: s}_u)$ realizing $p$, for no $\varrho' \in \Lambda^2_{k,p}$ do we have
5010: (in $K^{\frak s}_u$) $g^{u,{\frak s}}_{\bar t,\varrho'} =
5011: g^{u,{\frak s}}_{\bar t,\varrho}$ and supp$(\varrho')
5012: \subset \text{ supp}(\varrho)$.
5013: \enddefinition
5014: \bigskip
5015:
5016: \definition{\stag{n.1.18} Definition} 1) For
5017: $\rho_1,\rho_2 \in \Lambda^0_{k,p}$ we say $\rho_1
5018: {\Cal E}^0_{k,p} \rho_2$ or $\rho_1,\rho_2$ are 0-p-equivalent when:
5019: for every p.o.w.i.s. ${\frak s}$ and $u \in J^{\frak s}$ and $\bar t
5020: \in {}^k(I^{\frak s}_u)$ realizing $p$ the elements $g^{u,{\frak
5021: s}}_{\bar t,\rho_1},g^{u,{\frak s}}_{\bar t,\rho_2}$ of $G^{\frak
5022: s}_u$ are equal.
5023: \nl
5024: 2) For $\rho_1,\rho_2 \in \Lambda^1_{k,p}$ we say $\rho_1
5025: {\Cal E}^2_{k,p} \rho_2$ or $\rho_1,\rho_2$ are 1-$p$-equivalent when: for
5026: every p.o.w.i.s. ${\frak s}$ and $u \in J^{\frak s}$ and $\bar t \in {}^k(I_u)$
5027: realizing $p$ we have $g^{u,{\frak s}}_{\bar t,\rho_1} G^{< 0}_u =
5028: g^{u,{\frak s}}_{\bar t,\rho_2} G^{< 0}_u$.
5029: \nl
5030: 3) For $\varrho_1,\varrho_2 \in \Lambda^2_{k,p}$ we say that
5031: $\varrho_1 {\Cal E}_{2,p} \varrho_2$ or $\varrho_1,\varrho_2$ are
5032: 2-$p$-equivalent, \ub{when}: for every p.o.w.i.s. ${\frak s}$ and $u
5033: \in J^{\frak s}$ and $\bar t \in {}^k(I_u)$ realizing $p$ the element
5034: $g^{u,{\frak s}}_{\bar t,\rho_1}$ and $g^{u,{\frak s}}_{\bar
5035: t,\rho_2}$ of $K^{\frak s}_u$ are equal.
5036: \enddefinition
5037: \bigskip
5038:
5039: \proclaim{\stag{n.1.19} Claim} 1) In Definition \scite{n.1.17} parts
5040: (2C),(3),(5B) saying ``for every p.o.w.i.s.
5041: ${\frak s},u \in J^{\frak s}$ and $\bar t \in {}^k(I_u)$
5042: realizing $p$" it is equivalent to saying ``for some ...".
5043: \nl
5044: 2) In Definition \scite{n.1.17}, $E^\iota_{k,p}$ is an
5045: equivalence relation on $\Lambda^\iota_{k,p}$ for $\iota = 0,1,2$.
5046: Every $E^\iota_{k,p}$-equivalence class contains a reduced member and
5047: for $\iota=0$ even an explicitly reduced one. Explicitly reduced
5048: implies reduced.
5049: \nl
5050: 3) For every p.o.w.i.s. ${\frak s}$, \ub{if} $u \in J^{\frak s}$ and
5051: $\bar t \in {}^k(I^{\frak s}_u)$ realizes $p \in {\Cal S}^k$ then
5052: \mr
5053: \item "{$(a)$}" for $\rho_1,\rho_2 \in \Lambda^0_{k,p}$ we have
5054: {\roster
5055: \itemitem{ $(\alpha)$ } $g^{u,{\frak s}}_{\bar t,\rho_1} =
5056: g^{u,{\frak s}}_{\bar t,\rho_2}$ iff $\rho_1 {\Cal E}^0_{k,p} \rho_2$
5057: \sn
5058: \itemitem{ $(\beta)$ } $\{\ell^{\rho_1}_{j,i}:j < \ell g(\rho_1),i \le
5059: n(\bar \ell^{\rho_1}_j,\eta^{\rho_1}_j)\} =
5060: \{\ell^{\rho_2}_{j,i}:j < \ell g(\rho_1),i \le
5061: n(\bar \ell^{\rho_1}_j,\eta^{\rho_2}_j)\}$
5062: \sn
5063: \itemitem{ $(\gamma)$ } if $\rho_1,\rho_2$ are explicitly
5064: $p$-reduced, \ub{then} they are $\rho_1 {\Cal E}^0_{k,p} \rho_2$ \ub{iff}
5065: letting $\rho_i =
5066: \langle(\bar \ell^i_j,\eta^i_j):j<j_i\rangle$ for $i=1,2$ we have
5067: \sn
5068: \itemitem{ ${{}}$ } $\qquad (a) \quad j_1 = j_2$
5069: \sn
5070: \itemitem{ ${{}}$ } $\qquad (b) \quad$ for some
5071: permutation $\pi$ of $\{0,\dotsc,j_1-1\}$ we
5072: have
5073: \nl
5074:
5075: \hskip50pt $(\bar \ell^2_j,\eta^2_j) = (\bar \ell^1_{\pi(j)},\eta^2_{\pi(j)})$
5076: (so actually only the domain of ${\Cal E}_{0,p}$
5077: \nl
5078:
5079: \hskip50pt depends on $p$).
5080: \endroster}
5081: \item "{$(b)$}" for $\rho_1,\rho_2 \in \Lambda^1_{k,p}$ we have
5082: {\roster
5083: \itemitem{ $(\alpha)$ } $g^{u,{\frak s}}_{\bar t,\rho_1} G^{< 0}_u =
5084: g^{u,{\frak s}}_{\bar t,\rho_2} G^{< 0}_u$ iff $\rho_1
5085: {\Cal E}^1_{k,p} \rho_2$
5086: \endroster}
5087: \ermn
5088: 4) For every p.o.w.i.s. ${\frak s}$ if $u \in J^{\frak s}$ and
5089: $\bar \ell \in {}^{\bar k}(I^{\frak s}_u)$ realizes $p \in {\Cal S}^k$ then
5090: \mr
5091: \item "{$(c)$}" for $\varrho_1,\varrho_2 \in \Lambda^2_{k,p}$ we have
5092: {\roster
5093: \itemitem{ $(\alpha)$ } $g^{u,{\frak s}}_{\bar t,\varrho_1}
5094: = g^{u,{\frak s}}_{\bar t,\varrho_2}$ iff
5095: $\varrho_1 {\Cal E}^2_{k,p} \varrho_2$
5096: \sn
5097: \itemitem{ $(\beta)$ } if $\varrho_1 {\Cal E}^2_{k,p} \varrho_2$ and
5098: $\varrho_1,\varrho_2$ are $p$-reduced then
5099: {\rm supp}$(\varrho_1) = \,\text{\rm supp}(\varrho_2)$.
5100: \endroster}
5101: \endroster
5102: \endproclaim
5103: \bigskip
5104:
5105: \demo{Proof} Straight, (recalling \scite{m.7}(7) and note that (3)
5106: elaborate (1)). \hfill$\square_{\scite{n.1.19}}$
5107: \enddemo
5108: \bigskip
5109:
5110: \proclaim{\stag{n.1.23} Claim} Assume $k < \omega,p \in {\Cal
5111: S}^k,{\frak s}$ is a p.o.w.i.s., $u \in J^{\frak t}$ and $\bar
5112: t_1,\bar t_2 \in {}^k I$ satisfies $p = \text{\rm tp}(\bar
5113: t_\ell,\emptyset,I^{\frak s}_u)$ for $\ell = 1,2$.
5114: \nl
5115: 1) If $\rho \in \Lambda^0_{k,p}$ and $\rho$ is $p$-reduced and
5116: $g_{\bar t_1,\rho} = g_{\bar t_2,\rho} \in G^{\frak s}_u$, \ub{then} $\bar t_2
5117: \restriction \text{ \rm supp}(\rho)$ is a permutation of $\bar t_1
5118: \restriction \text{\rm supp}(\rho)$.
5119: \nl
5120: 2) If $\rho \in \Lambda^1_{k,p}$ is $p$-reduced and
5121: $g^{u,{\frak s}}_{\bar t_1,\rho} G^{<0}_u = g^{u,{\frak s}}_{\bar
5122: t_2,\rho} G^{< 0}_u$ \ub{then} $\bar t_1 \restriction$
5123: {\rm supp}$(\rho)$ is a permutation of $\bar t_2 \restriction$
5124: {\rm supp}$(\rho)$.
5125: \nl
5126: 3) If $\varrho \in \Lambda^2_{k,p}$ is $p$-reduced and $g^{u,{\frak s}}_{\bar
5127: t_1,\varrho} = g^{u,{\frak s}}_{\bar t_2,\varrho}$ so both are well
5128: defined \ub{then} similarly
5129: $\bar t_1 \restriction \text{\rm supp}(\varrho)$ is a permutation of
5130: $\bar t_2 \restriction \text{\rm supp}(\varrho)$ and both are with no
5131: repetition.
5132: \nl
5133: 4) For every $\varrho_1 \in \Lambda^2_{k,p}$ there is a $p$-reduced
5134: $\varrho_2$ such that for every p.o.w.i.s., $u \in J^{\frak s}$ and
5135: $\bar t \in {}^k(I^{\frak s}_u)$ realizing $p$ we have
5136: $g^{u,{\frak s}}_{\bar t,\varrho_1} = g^{u,{\frak s}}_{\bar t,\varrho_2}$.
5137: (Similarly for $\Lambda^0_{k,p},\Lambda^1_{k,p}$).
5138: \endproclaim
5139: \bigskip
5140:
5141: \demo{Proof} Straight.
5142: \enddemo
5143: \bigskip
5144:
5145: \definition{\stag{nx.0} Definition} Let ${\frak s}$ be a
5146: $\kappa$-p.o.w.i.s.
5147: \nl
5148: 1) For $u \le_{J[{\frak s}]} v$ let $\hat \pi^0_{u,v}$ be the following
5149: partial mapping from $Z^{0,{\frak s}}_v$ to $Z^{0,{\frak s}}_u$,
5150: recalling Definition \scite{n.1}(3)(b):
5151:
5152: $x \in \text{ Dom}(\hat \pi^0_{u,v})$ iff $x \in Z^{0,{\frak s}}_v$ and
5153: $\pi_{u,v}(t^x_\ell)$ is well defined for $\ell \le n(x)$ and then $\hat
5154: \pi_{u,v}(x) = (\langle \pi_{u,v}(t^x_\ell):\ell \le n(x)\rangle,\eta^x)$.
5155: \nl
5156: 2) For $u \le_{J[{\frak s}]} v$ let $\hat \pi^1_{u,v} =
5157: \hat\pi^{1,{\frak s}}_{u,v}$ be the
5158: following partial mapping $Z^1_v$ to $Z^1_u$: if $z \in Z^1_u$ so $z =
5159: \langle (\bar t^k,\eta^k):k < k^*\rangle$
5160: and $\bar t^k = \langle t^k_\ell:\ell
5161: \le \ell_k\rangle,t^k_\ell \in I_v$ for $k<k^*,\ell \le \ell_k$ \ub{then} $\hat
5162: \pi^1_{u,v}(z) = \langle(\langle\pi_{u,v}(t^k_\ell):
5163: \ell < \ell_k \rangle,\eta^k):k<k^*\rangle$ when
5164: each $\pi_{u,v}(t^k_\ell)$ is well defined.
5165: \nl
5166: 3) Let $u \le_{J[{\frak s}]} v$ let $\hat \pi_{u,v}$ be
5167: $\hat \pi^0_{u,v} \cup \hat\pi^1_{u,v}$.
5168: \nl
5169: 4) For $u \in J^{\frak s}$ and $z \in Z_u$ let $\partial_{u,z}$ be the
5170: following permutation of $D_u = D^{\frak s}_u$ where $D_u$ is from
5171: Definition \scite{n.1}(3)(a).
5172: \bn
5173: For each $(v,g) \in D_u$ we define $\partial_{u,z}((v,g))$ as follows:
5174: \bn
5175: \ub{Case 1}: $z \in \text{ Dom}(\hat \pi^0_{v,u}) \subseteq Z^0_u$
5176: and $\hat \pi_{v,u}(z) \in
5177: X^{\frak s}_v$, i.e., $\langle \hat \pi_{v,u}(t^z_\ell):\ell\le n(*)
5178: \rangle$ is $\le_{I_u}$-decreasing.
5179:
5180: Then let $\partial_{u,z}((v,g)) = (v,g_{\hat \pi_{v,u}(z)} g)$ noting
5181: $g_{\pi_{v,u}(z)} \in G_v \subseteq K_v$.
5182: \bn
5183: \ub{Case 2}: $z \in \text{ Dom}(\hat\pi^1_{v,u}) \subseteq Z^1_u$ so $z =
5184: \langle x_\ell:\ell < k\rangle$ and $x_\ell \in \text{
5185: Dom}(\hat\pi^0_{v,u})$ for $\ell < k$ and let
5186: $x'_\ell := \hat \pi^0_{v,u}(x_\ell) \in X^{\frak s}_v$ for $\ell < k$.
5187:
5188: Then let $\partial_{u,z}((v,g)) = (v,g')$ when $g' \in K_v$ is defined
5189: by as $h_{g_{x'_0} \ldots g_{x'_{k-1}}} g$, product in $K_u$
5190: noting $g_{x'_\ell} \in G_v \subseteq K_v$ for $\ell < k$.
5191: \bn
5192: \ub{Case 3}: Neither case 1 nor case 2.
5193:
5194: Then let $\partial_{u,x}((v,g)) = (v,g)$.
5195: \enddefinition
5196: \bigskip
5197:
5198: \demo{\stag{nx.2} Observation} In Definitions \scite{n.1}, \scite{nx.0}:
5199: \nl
5200: 1) If $u \le_{J[{\frak s}]} v$ \ub{then} $\hat \pi_{u,v}$ is a partial
5201: mapping from $Z_v$ to $Z_u$.
5202: \nl
5203: 2) In part (1), $\hat \pi_{u,v}$ maps $Z^0_v,Z^1_v$ to $Z^0_u,Z^1_u$
5204: respectively, that is it maps $Z^\ell_v \cap \text{ Dom}(\hat \pi_{u,v})$
5205: into $Z^\ell_u$ for $\ell = 0,1$.
5206: \nl
5207: 3) If $u \le_{J[{\frak s}]} v$ and ${\frak s}$ is nice or just
5208: Dom$(\pi_{u,v}) = I_v$ \ub{then} Dom$(\hat \pi_{u,v}) = Z_v$.
5209: \nl
5210: 4) nor$_{K_u}(H_u)$ is $K^{< 0}_u$ where $H_u$ is from Definition
5211: \scite{n.1}(1)(f).
5212: \nl
5213: 5) nor$^{1 +\alpha}_{K_u}(H_u)$ is $K^{< \alpha}_u$ for $\alpha \ge 0$
5214: if ${\frak s}$ is non-trivial.
5215: \enddemo
5216: \bigskip
5217:
5218: \demo{Proof} 1),2),3) Check.
5219: \nl
5220: 4) As $H_u$ has two elements $e_{K_u}$ and $h_*$ clearly an
5221: element of $K_u$ normalize $H_u$ iff it commutes with $g_*$. Now
5222: when does $(g,h) \in G_u *_{\bold h_u} L_u$ commute with $g_* =
5223: (e_{G_u},h_{e_{G_u}} G^{<0}_u)$? Note that
5224:
5225: $$
5226: (g,h)(e_{G_u},h_{e_{G_u}G^{\le 0}_u}) = (g,h+h_{e_{G_u}G^{< 0}_u})
5227: $$
5228:
5229: $$
5230: (e_{G_u},h_{e_{G_u} G^{< 0}_u})(g,h) = (g,((\bold h_u(g))
5231: (h_{e_{G_u} G^{< 0}_u}) + h).
5232: $$
5233: \mn
5234: As $L_u$ is commutative, ``$(g,h)$ commute in $K_u$" iff in $L_u$
5235:
5236: $$
5237: (\bold h_u(g))(h_{e_{G_u} G^{< 0}_u}) = h_{e_{G_u} G^{< 0}_n}.
5238: $$
5239: \mn
5240: By the definition of $\bold h_u \in \text{ Hom}(G_u,\text{Aut}(L_u))$
5241: in \scite{n.1}(1)(d),(e)
5242: this means
5243:
5244: $$
5245: (g e_{G_u}) G^{< 0}_u = e_{G_u} G^{< 0}_u.
5246: $$
5247: \mn
5248: i.e.
5249:
5250: $$
5251: g \in G^{< 0}_u.
5252: $$
5253: \mn
5254: We can sum that: $(g,h) \in G_u *_{\bold h_u} L_u$ belongs to
5255: nor$_{K_u}(H_u)$ iff $(g,h)$ commutes with $h_*$ iff $g \in G^{< 0}_u$
5256: iff $(g,h) \in K^{< 0}_u$, as required.
5257: \nl
5258: 5) Let $\bold f_u:K_u \rightarrow G_u$ be
5259: defined by $\bold f_u((g,h))=g$. Clearly
5260: \mr
5261: \item "{$(*)_1$}" $\bold f_u$ is a homomorphism from $K_u$ onto $G_u$ and
5262: for every ordinal $\alpha \ge 0$, it maps $K^{< \alpha}_u$ onto $G^{<
5263: \alpha}_u$ so $\bold f_u(K^{< \alpha}_u)= G^{< \alpha}_u$ and moreover
5264: $\bold f^{-1}(G^{< \alpha}_u) = K^{< \alpha}_u$
5265: (see the definition of $K^{< \alpha}_u$ in \scite{n.1}(2)).
5266: \ermn
5267: Also
5268: \mr
5269: \item "{$(*)_2$}" Ker$(\bold f_u) = \{e_{G_u}\} \times L_u
5270: \subseteq K^{< 0}_u$.
5271: \ermn
5272: Now we prove by induction on the ordinal $\alpha \ge 0$ that
5273: nor$^{1 +\alpha}_{K_u}(H_u) = K^{< \alpha}_u$. For $\alpha = 0$
5274: this holds by part (4). For $\alpha$ limit this holds as both
5275: $\langle\text{nor}^\beta_{K_u}(H_u):\beta \le \alpha \rangle$ and
5276: $\langle K^{< \beta}_u:\beta \le \alpha\rangle$ are increasing
5277: continuous.
5278:
5279: Lastly, for $\alpha = \beta +1 > 0$ we have for any $f \in K_u$
5280:
5281: $$
5282: \align
5283: f \in \text{ nor}^{1 +\alpha}_{K_u}(H_\beta) &\Leftrightarrow f \in \text{
5284: nor}_{K_u}(\text{nor}^{1 +\beta}_{K_u}(H_\beta)) \\
5285: &\Leftrightarrow f \in \text{ nor}_{K_u}(\bold f^{-1}_u(G^{<
5286: \beta}_u)) \\
5287: &\Leftrightarrow f(\bold f^{-1}_u(G^{< \beta}_u))f^{-1} = \bold
5288: f^{-1}_u(G^{< \beta}_u) \\
5289: &\Leftrightarrow \bold f_u(f) G^{< \beta}_u \bold f_u(f)^{-1} = G^{<
5290: \beta}_u \\
5291: &\Leftrightarrow \bold f_u(f) \in \text{ nor}_{G_u}(G^{<
5292: \beta}_u) \\
5293: &\Leftrightarrow \bold f_u(f) \in G^{< \alpha}_u \Leftrightarrow f \in
5294: K^{< \alpha}_u.
5295: \endalign
5296: $$
5297: \mn
5298: [Why? The first $\Leftrightarrow$ by the definition of nor$^{\beta
5299: +1}_{K_u}(-)$, the second $\Leftrightarrow$ by the induction
5300: hypothesis, the third $\Leftrightarrow$ by the definition of
5301: nor$_{K_u}(-)$, the fourth $\Leftrightarrow$ by $(*)_1$, the fifth
5302: $\Leftrightarrow$ by the definition of nor$_{G_u}(-)$, the sixth
5303: $\Leftrightarrow$ by \scite{m.11}(1),
5304: the seventh $\Leftrightarrow$ by $(*)_1$.]
5305: ${{}}$ \hfill$\square_{\scite{nx.2}}$
5306: \enddemo
5307: \bigskip
5308:
5309: \demo{\stag{nx.3} Observation} Let ${\frak s}$ be a p.o.w.i.s.
5310: \nl
5311: 1) For $u \in J^{\frak s}$ and $x \in
5312: Z^{\frak s}_u$ we have: $\partial_{u,x}$ is a
5313: well defined function and is a permutation of $D^{\frak s}_u$.
5314: \nl
5315: 2) If $u \le_{J[{\frak s}]} v$ \ub{then} $D^{\frak s}_u \subseteq
5316: D^{\frak s}_v$.
5317: \nl
5318: 3) If $u \le_{J[{\frak s}]} v$ and $y \in Z^{\frak s}_v$ and
5319: $x = \hat \pi_{u,v}(y)$ then $\partial_{u,x} = \partial_{v,y}
5320: \restriction D_u$.
5321: \nl
5322: 4) If ${\frak s}$ is nice and $u \in J^{\frak s}$ and $z \in
5323: Z^{\frak s}_u$ \ub{then} in the definition \scite{nx.0}(4) of
5324: $\partial_{u,z}$ Case 3 never occurs.
5325: \enddemo
5326: \bigskip
5327:
5328: \demo{Proof} Straight.
5329: \enddemo
5330: \bigskip
5331:
5332: \definition{\stag{nx.0.7} Definition} Let ${\frak s}$ be
5333: $\kappa$-p.o.w.i.s.
5334: \nl
5335: 1) Let $\bold S^k = \{\bold q:\bold q$ is a function with domain
5336: ${\Cal S}^k$ and for $q \in {\Cal S}^k,\bold q(p) \in
5337: \Lambda^2_{k,p}\}$, on $\Lambda^2_{k,p}$, see Definition
5338: \scite{n.1.17}(4) above.
5339: \nl
5340: 2) We say that $\bold q \in \bold S^k$ is disjoint when $\langle
5341: \text{supp}(\bold q(p)):p \in {\Cal S}^k\rangle$ is a sequence of
5342: pairwise disjoint sets. We say that $\bold q$ is reduced when $\bold
5343: q(p)$ is $p$-reduced for every $p \in {\Cal S}^k$.
5344: \nl
5345: 3) Let $Z^2_u = Z^{2,{\frak s}}_u$ be $\cup\{Z^{2,k}_u:k <
5346: \omega\}$, where $Z^{2,k}_u = Z^{2,k,{\frak s}}_u$ is the set of
5347: pairs $(\bar t,\bold q)$ where for some $k < \omega,\bar t \in
5348: {}^k(I^{\frak s}_u)$ and $\bold q \in \bold S^k$.
5349: \nl
5350: 4) For $z = (\bar t,\bold q) \in Z^2_u$ let $\partial_{u,z} =
5351: \partial^{\frak s}_{u,z}$ be the following permutation of $D_u$: if $v
5352: \le_{J[{\frak t}]} u$ and $(v,g) \in \{v\} \times K_v$ then
5353: $\partial^{\frak s}_{u,z}((v,g)) = (v,g' g)$ where $g' = g^{v,{\frak
5354: s}}_{\pi_{v,u}(\bar t),\bold q(p)}$ where $p = \text{
5355: tp}_{\text{qf}}(\pi_{v,u}(\bar t),\emptyset,I^{\frak s}_v)$, and, of
5356: course, $\pi_{v,u}(\langle t_\ell:\ell < k\rangle) = \langle
5357: \pi_{v,u}(t_\ell):\ell < k\rangle$.
5358: \nl
5359: 5) For $(\bar t,\bold q) \in Z^2_u$ let $g_{\bar t,\bold q} =
5360: g^u_{\bar t,\bold q} = g^{u,{\frak s}}_{\bar t,\bold q} =
5361: g_{\bar t,\bold q(p)}$ when $p = \text{ tp}_{\text{qf}}(\bar t,\emptyset,I_u)$.
5362: Let $g^{v,{\frak s}}_{\bar t,\bold q} = g^{v,{\frak s}}_{\bar t,\bold q}
5363: = g^v_{\pi_{v,u}(\bar t),\bold q}$ when $v \le_{J[{\frak s}]} u$.
5364: \enddefinition
5365: \bigskip
5366:
5367: \remark{\stag{nx.0.9} Remark} We can add $\{\partial^{\frak s}_{u,z}:
5368: z \in Z^{2,{\frak s}}_u\}$ to the
5369: generators of $F^{\frak s}_u$ defined in \scite{nx.4} below.
5370: \endremark
5371: \bigskip
5372:
5373: \demo{\stag{nx.0.11} Observation} In Definition \scite{nx.0.7}(2),
5374: $\partial^{\frak s}_{u,z}$ is a well defined permutation of
5375: $D^{\frak s}_u$.
5376: \enddemo
5377: \bigskip
5378:
5379: \demo{Proof} Easy.
5380: \enddemo
5381: \bigskip
5382:
5383: \definition{\stag{nx.4} Definition} Let ${\frak s}$ be a p.o.w.i.s.
5384: \nl
5385: 1) Let $F_u = F^{\frak s}_u$ be
5386: the subgroup of the group of permutations of $D^{\frak s}_u$ generated
5387: by $\{\partial_{u,z}:z \in Z^{\frak s}_u\}$.
5388: \nl
5389: 2) For a p.o.w.i.s. ${\frak s}$ let $M_{\frak s}$ be the following model:
5390: \sn
5391: \ub{set of elements}: $\{(u,g):u \in J^{\frak s}$ and $g \in K^{\frak s}_u\}
5392: \cup \{(1,u,f):u \in J^{\frak s}$ and $f \in F^{\frak s}_u\}$.
5393: \sn
5394: \ub{relations}: $P^{M_{\frak s}}_{1,u}$, a unary relation,
5395: is $\{(u,g):g \in K_u\}$ for $u \in J^{\frak s}$,
5396:
5397: $P^{M_{\frak s}}_{2,u}$, a unary relation is $\{(1,u,f):f \in F_u\}$ for $u \in
5398: J^{\frak s}$
5399:
5400: $R^{M_{\frak s}}_{u,v,h}$, a binary relation, is
5401: $\{((v,g),(1,u,f)):f \in F_u,g \in K_v$ and $f((v,h)) = (v,g)\}$
5402: for $u \in J^{\frak s}$ and $v \le_{J[{\frak s}]} u$ and $h \in K_v$.
5403: \enddefinition
5404: \bigskip
5405:
5406: \demo{\stag{nx.4.1} Observation} If ${\frak s}$ is a
5407: $\kappa$-p.o.w.i.s. and $v \le_{J[{\frak s}]} u$ and $f \in F_u$
5408: \ub{then} $f$ maps $\{\nu\} \times K_v = P^{M_{\frak s}}_{1,v}$ onto itself.
5409: \enddemo
5410: \bigskip
5411:
5412: \remark{Remark} If $\pi \in F^{\frak s}_u$ and $v \le_{I^{\frak
5413: s}_u[{\frak s}]} u$ then $\pi \restriction (\{v\} \times K_v)$ comes
5414: directly from $K^{\frak s}_v$, but the relation between the $\langle
5415: \pi \restriction (\{v\} \times K_v):v \le_{I_u[{\frak s}]} u\rangle$ are
5416: less clear.
5417: \endremark
5418: \bigskip
5419:
5420: \proclaim{\stag{nx.5} Claim} Let ${\frak s}$ is a p.o.w.i.s.
5421: \nl
5422: 1) $\varkappa$ is an automorphism of $M_{\frak s}$
5423: \ub{iff}:
5424: \mr
5425: \item "{$\circledast$}" $(a) \quad \varkappa$ is a function with domain
5426: $M_{\frak s}$
5427: \sn
5428: \item "{${{}}$}" $(b) \quad$ for every $u \in J^{\frak s}$ we have:
5429: {\roster
5430: \itemitem{ ${{}}$ } $(\alpha) \quad \varkappa
5431: \restriction D_u \in F^{\frak s}_u$ for every $u \in J^{\frak s}$
5432: \sn
5433: \itemitem{ ${{}}$ } $(\beta) \quad$ letting
5434: $f_u = \varkappa \restriction D_u$ we have $(1,u,f) \in P^{M_{\frak s}}_{2,u}
5435: \Rightarrow \varkappa((1,u,f))$
5436: \nl
5437:
5438: \hskip30pt $= (1,u,f_u f)$ where $f_u f$ is the
5439: product in $F_u$.
5440: \endroster}
5441: \ermn
5442: 2) If $f_u \in F_u$ for $u \in J^{\frak s}$ and
5443: $f_u \subseteq f_v$ for $u \le_{J[{\frak s}]}
5444: v$ \ub{then} there is one and only one automorphism $\varkappa$ of
5445: $M_{\frak s}$ such that $u \in J^{\frak s} \Rightarrow f_u \subseteq
5446: \varkappa$.
5447: \endproclaim
5448: \bigskip
5449:
5450: \demo{Proof} First assume that $\bar f = \langle f_u:u \in J^{\frak
5451: s}\rangle$ is as in part (2). We define $\varkappa_{\bar f}$, a
5452: function with domain $M_{\frak s}$ by:
5453: \mr
5454: \item "{$\circledast_1$}" $(a) \quad$ if $a = (u,g) \in
5455: P^{M_{\frak s}}_{1,u}$ and $u \in
5456: J^{\frak s}$ then $\varkappa_{\bar f}(a) = f_u(a)$
5457: \sn
5458: \item "{${{}}$}" $(b) \quad$ if $a = (1,u,f) \in P^{M_{\frak s}}_{2,u}$ then
5459: $\varkappa_{\bar f}(a) = (1,u,f_u f)$.
5460: \ermn
5461: So
5462: \mr
5463: \item "{$\circledast_2$}" $(a) \quad \varkappa_{\bar f}$ is a well
5464: defined function
5465: \sn
5466: \item "{${{}}$}" $(b) \quad \varkappa_{\bar f}$ is one to one
5467: \sn
5468: \item "{${{}}$}" $(c) \quad \varkappa_{\bar f}$ is onto $M_{\frak s}$
5469: \sn
5470: \item "{${{}}$}" $(d) \quad \varkappa_{\bar f}$ maps
5471: $P^{M_{\frak s}}_{1,u}$ onto $P^{M_{\frak s}}_{1,u}$ and
5472: $P^{M_{\frak s}}_{2,u}$ onto $P^{M_{\frak s}}_{2,u}$ for $u \in J^{\frak s}$
5473: \sn
5474: \item "{${{}}$}" $(e) \quad$ also $\bar f' = \langle f^{-1}_u:u \in
5475: J^{\frak s}\rangle$ satisfies the condition of part (2) and
5476: \nl
5477:
5478: \hskip25pt $\varkappa_{{\bar f}'}$ is the inverse of $\varkappa_{\bar f}$
5479: \sn
5480: \item "{${{}}$}" $(f) \quad \varkappa_{\bar f}$ maps
5481: $R^{M_{\frak s}}_{u,v,h}$ onto itself.
5482: \ermn
5483: [Why? The only non-trivial one is clause (f) and in it by clause (e)
5484: it is enough to prove that $\varkappa_{\bar f}$ maps
5485: $R^{M_{\frak s}}_{u,v,h}$ into $R^{M_{\frak s}}_{u,v,h}$. So
5486: assume $v \le_{J[{\frak s}]} u,h \in K_v$ and
5487: $((v,g),(1,u,f)) \in R^{M_{\frak s}}_{u,v,h}$ hence $f \in
5488: F_u,g \in K_v$ and $f((v,h)) = (v,g)$. So $\varkappa_{\bar
5489: f}((v,g)) = f_v((v,g))$ and $\varkappa_{\bar f}(1,u,f) = (1,u,f_u f)$ and we
5490: would like to show that $(f_v((v,g)),(1,u,f_u f))
5491: \in R^{M_{\frak s}}_{u,v,h}$.
5492: \nl
5493: This means that $(f_u f)((v,h)) = f_v((v,g))$. We know that
5494: $f((v,h)) = (v,g)$ hence $(f_u f)((v,h)) = f_u(f((v,h))) =
5495: f_u((v,g))$ so we have to show that $f_u((v,g)) =
5496: f_v((v,g))$. But $v \le_{J[{\frak s}]} u$ hence (by the assumption
5497: on $\bar f$) we have $f_u \subseteq f_v$ hence $f_u((v,g)) = f_v((v,g))$
5498: so we are done.]
5499:
5500: So we have shown that
5501: \mr
5502: \item "{$\circledast_3$}" if $\bar f = \langle f_u:u \in J^{\frak
5503: s}\rangle$ is as in part (2) then $\varkappa_{\bar f}$ is an
5504: automorphism of $M_{\frak s}$.
5505: \ermn
5506: Next
5507: \mr
5508: \item "{$\circledast_4$}" if $\varkappa \in \text{ Aut}(M_{\frak s})$
5509: and $\varkappa \restriction P^{M_{\frak s}}_{1,u}$ is the
5510: identity for each $u \in
5511: J^{\frak s}$ then $\varkappa = \text{ id}_{M_{\frak s}}$.
5512: \ermn
5513: [Why? By the $R^{M_{\frak s}}_{u,v,h}$'s and $F^{\frak s}_u$ being a group
5514: of permutations of $D_u$.]
5515: \mr
5516: \item "{$\circledast_5$}" the mapping $\varkappa \mapsto \langle
5517: \varkappa \restriction P^{M_{\frak s}}_{1,u}:u \in J^{\frak s}\rangle$ is a
5518: homomorphism from Aut$(M_{\frak s})$ into $\{\varkappa_{\bar f}:\bar f$ as
5519: above$\}$ with coordinatewise product, with kernel
5520: $\{\varkappa \in \text{ Aut}(M_{\frak s}):\varkappa \restriction
5521: P^{M_{\frak s}}_{1,u} = \text{ id}_{P^{M_{\frak s}}_{1,u}}$ for every
5522: $u \in J^{\frak s}\}$.
5523: \ermn
5524: [Why? Easy.]
5525: \mr
5526: \item "{$\circledast_6$}" the mapping above is onto.
5527: \ermn
5528: [Why? Given $\varkappa \in \text{ Aut}(M_{\frak s})$, let $f_u =
5529: \varkappa \restriction P^{M_{\frak s}}_{1,u}$. Clearly $f_u \in F_u$ and $u
5530: \le_{J[{\frak s}]} v \Rightarrow f_u \subseteq f_v$ so $\bar f =
5531: \langle f_u:u \in J^{\frak s}\rangle$ is as above so by
5532: $\circledast_3$ we know $\varkappa_{\bar f}$ is an
5533: automorphism of $M_{\frak s}$ and $\varkappa_{\bar f}
5534: \varkappa^{-1}$ is an automorphism of $M_{\frak s}$ which is the
5535: identity on each $P^{M_{\frak s}}_{1,u}$ hence by
5536: $\circledast_4$ is id$_{M_{\frak s}}$.
5537: So $\varkappa = \varkappa_{\bar f}$, is as required.]
5538: \mr
5539: \item "{$\circledast_7$}" the mapping above is one to one.
5540: \ermn
5541: [Why? Easy by $\circledast_4$.]
5542:
5543: Together both parts should be clear. \hfill$\square_{\scite{nx.5}}$
5544: \enddemo
5545: \bigskip
5546:
5547: \definition{\stag{nx.15} Definition} 1) We say that $\bold q_1,\bold
5548: q_2 \in \bold S^k$ are ${\Cal S}$-equivalence where ${\Cal S}
5549: \subseteq {\Cal S}^k$ when $p \in {\Cal S} \Rightarrow \bold q_1(p)
5550: {\Cal E}_{2,p} \bold q_2(p)$.
5551: \nl
5552: 2) Omitting ${\Cal S}$ means ${\Cal S} = {\Cal S}^k$.
5553: \enddefinition
5554: \bigskip
5555:
5556: \proclaim{\stag{nx.13} Claim} 1) If $u \in J^{\frak s}$ and $f \in
5557: F^{\frak s}_u$ \ub{then} for some $k$ and $\bar t = \langle \bar
5558: t_\ell:\ell < k\rangle \in {}^k(I^{\frak s}_u)$ and $\bold q \in \bold S^k$ we
5559: have:
5560: \mr
5561: \item "{$(*)$}" $f = \partial_{u,(\bar t,\bold q)}$ (so
5562: if $v \le_{J[{\frak s}]} u$ then
5563: $f \restriction (\{v\} \times K^{\frak s}_v$) is moving by multiplication by
5564: $g_{(\pi_{v,u}(\bar{\bold t}),\bold q}$, e.g. $g \in K_v \Rightarrow
5565: f((v,g)) = (v,g_{\pi_{v,u}(\bar{\bold t}),\bold q})$.
5566: \ermn
5567: 2) $\{\partial_{u,(\bar t,\bold q)}:\bar t \in {}^k(I^{\frak s}_u)$
5568: and $\bold q \in \bold S^k$ for some $k\}$ is a group of
5569: permutations of $D^{\frak s}_u$ which include $F^{\frak s}_u$.
5570: \nl
5571: 3) For every $\bold q \in \bold S^k$ there is a reduced $\bold q' \in
5572: \bold S^k$ which is $\bold S^k$-equivalent to it (see Definition
5573: \scite{nx.0.7}(2).
5574: \endproclaim
5575: \bigskip
5576:
5577: \remark{\stag{nx.14} Remark} 1) We can be somewhat more restrictive.
5578: \endremark
5579: \bigskip
5580:
5581: \demo{Proof} We use freely Definition \scite{nx.0.7}.
5582: Recall that $F^{\frak s}_u$ is the group of permutations
5583: of $D^{\frak s}_u$ generated by $\{\partial_{u,z}:
5584: z \in Z^{\frak s}_u\}$. Hence it is enough to prove that
5585: $f \in F^{\frak s}_u$ satisfies the conclusion
5586: of the claim in the following cases.
5587: \bn
5588: \ub{Case 0}: $f$ is the identity.
5589:
5590: It is enough to let $k=0$ so ${\Cal S}^k$ is a singleton $\{p\}$ and
5591: $\bold q(p)$ is the sequence $<<>>$, i.e. we use in Definition
5592: \scite{n.1.17}(1) the case $j(*)=0$, i.e. \scite{n.1}(3) for $k=0$.
5593: \bn
5594: \ub{Case 1}: $f = \partial_{u,z}$ where $z \in Z^0_u$.
5595:
5596: So $z = X_{I_u}$ let $k = n(z)+1,\bar t = \bar t^z$.
5597: We define $\bold q$ as follows:
5598: \mr
5599: \item "{$(a)$}" if $q \in {\Cal S}^k$ ``says" that
5600: $\bar t = \langle t_\ell:\ell \le n(z)\rangle$ is decreasing then
5601: $g_{\bar t,\bold q}$ is $g_z$
5602: \sn
5603: \item "{$(b)$}" if not then $g_{\bar t^z,\bold q} = e_{K_u}$.
5604: \endroster
5605: \bn
5606: \ub{Case 2}: $f = \partial_{u,z}$ where $z \in Z^1_u$.
5607:
5608: Also clear.
5609: \bn
5610: \ub{Case 3}: $f = f_1 f_2$ (product in $F^{\frak s}_u$) where
5611: $f_1,f_2 \in F^{\frak s}_u$ satisfies the conclusion of the claim.
5612:
5613: Just combine the definitions.
5614: \bn
5615: \ub{Case 4}: $f = f^{-1}$ where $f \in F^{\frak s}_u$ satisfies the
5616: conclusion of the claim.
5617:
5618: Easy, too. \hfill$\square_{\scite{nx.13}}$
5619: \enddemo
5620: \bigskip
5621:
5622: \remark{\stag{nx.16} Remark} If $q \in {\Cal S}^k$
5623: and $\bold q_1,\bold q_2 \in {\bold S}^k$
5624: and $v \le_{J[{\frak s}]} u,\bar{\bold t} = {}^k(I_u)$
5625: and $q = \text{ tp}_{\text{qf}}
5626: (\pi^{\frak s}_{v,u}(\bar t),\emptyset,I_v)$ and
5627: $\bold q_1(q),\bold q_2(q)$ are not ${\Cal E}_{2,q}$-equivalent,
5628: \ub{then} $g_{\bar{\bold t},\bold q_1} \ne g_{\bar{\bold t},\bold q_2}$.
5629: \endremark
5630: \bigskip
5631:
5632: \demo{Proof} This is by \scite{n.1.17}(4).
5633: \enddemo
5634: \newpage
5635:
5636: \head {\S3 The main result} \endhead \resetall \sectno=3
5637: \spuriousreset
5638: \bn
5639: We can prove that every $\kappa$-parameter has a limit, but for our
5640: application it is more transparent to consider $\kappa$-parameber
5641: ${\frak s}$ which is the $\kappa$-parameter ${\frak t}$ + its limit.
5642: \bigskip
5643:
5644: \definition{\stag{p.1} Definition} We say that ${\frak s}$ is the
5645: limit of ${\frak t}$ as witnessed by $v_*$ when (both are
5646: p.o.w.i.s. and)
5647: \mr
5648: \item "{$(a)$}" $J^{\frak t} \subseteq J^{\frak s}$ and
5649: $J^{\frak s} = J^{\frak t} \cup \{v_*\},v_* \notin
5650: J^{\frak t}$ and $u \in J^{\frak s} \Rightarrow u \le_{J[{\frak s}]} v_*$
5651: \sn
5652: \item "{$(b)$}" $I^{\frak s}_u = I^{\frak t}_u$ and
5653: $\pi^{\frak s}_{u,v} =
5654: \pi^{\frak t}_{u,v}$ when $u \le_{J[{\frak s}]} v <_{J[{\frak s}]}
5655: v_*$
5656: \sn
5657: \item "{$(c)$}" if $t \in I^{\frak s}_{v_*}$ then for some $u = u_t
5658: \in J^{\frak s}$ we have $t \in \text{ Dom}(\pi^{\frak s}_{u_t,v_*})$,
5659: moreover (if ${\frak s}$ is nice this follows)
5660: $J^{\frak s} \models ``u_t \le v < v_*"
5661: \Rightarrow t \in \text{ Dom}(\pi^{\frak s}_{v,v_*})$
5662: \sn
5663: \item "{$(d)$}" if $s,t \in I^{\frak s}_{v^*}$
5664: \ub{then} for some $u = u_{s,t} \in J^{\frak t}$ for every $v$ satisfying
5665: $u \le_{J[{\frak s}]} v <_{J[{\frak s}]} v_*$ we have
5666: $I^{\frak s}_{v_*} \models ``s < t" \Leftrightarrow
5667: \pi^{\frak s}_{v,v_*}(s) <_{I^{\frak s}_v}
5668: \pi^{\frak s}_{v,v_*}(t)$
5669: \sn
5670: \item "{$(e)$}" if $\langle t_u:u \in J^{\frak t}_{\ge w}\rangle$ is
5671: a sequence satisfying $w \in J,J_{\ge w} = \{u:w \le u \in J\};t_u \in
5672: I^{\frak s}_u$ and $w \le u_1 \le u_2 \in J^{\frak t} \Rightarrow
5673: \pi_{u_1,u_2}(t_{u_2}) =
5674: t_{u_1}$, \ub{then} there is a unique $t \in I^{\frak s}_{v_*}$
5675: such that $u \in J^{\frak t}_{\ge w} \Rightarrow \pi_{u,v_*}(t) = t_u$.
5676: \endroster
5677: \enddefinition
5678: \bigskip
5679:
5680: \definition{\stag{p.1.7} Definition} We say that ${\frak s}$ is an
5681: existential limit of ${\frak t}$ \ub{when}: clauses (a)-(e) of Definition
5682: \scite{p.1} holds and
5683: \mr
5684: \item "{$(f)$}" assume that
5685: {\roster
5686: \itemitem{ $(\alpha)$ } $u_* \in J^{\frak t}$
5687: \sn
5688: \itemitem{ $(\beta)$ } $k_1,k_2 < \omega$ and $k = k_1 + k_2$
5689: \sn
5690: \itemitem{ $(\gamma)$ } $E$ is an equivalence relation on ${\Cal
5691: S}^k$
5692: \sn
5693: \itemitem{ $(\delta)$ } $\bar e = \langle e_u:u \in J^{\frak t}_{\ge
5694: u_*}\rangle$, where $e_u$ is an $E$-equivalence class
5695: \sn
5696: \itemitem{ $(\varepsilon)$ } $\bar t \in {}^{k_1}(I^{\frak s}_{v_*})$
5697: \sn
5698: \itemitem{ $(\zeta)$ } for every $v \in J^{\frak t}_{\ge u_*}$
5699: there is $\bar s_v \in {}^{k_2}(I^{\frak t}_{w(v)})$ such that:
5700: \nl
5701:
5702: $\quad$ if $u_* \le_{J[{\frak t}]} u \le_{J[{\frak t}]} v$ then $e_u$ is the
5703: $E$-equivalence class of
5704: \nl
5705:
5706: $\quad$ tp$_{\text{qf}}(\bar t^u \char 94 \bar s^{u,v},
5707: \emptyset,I^{\frak t}_u)$ where $\bar t^u = \pi^{\frak s}_{u,v_*}(\bar t)$ and
5708: $\bar s^{u,v} = \pi^{\frak t}_{u,v}(\bar s_v)$.
5709: \endroster}
5710: \ermn
5711: \ub{Then} there is $\bar s \in {}^{k^*}(I^{\frak s}_{v_*})$ such that
5712: for every $u \in J^{\frak t}$ large enough tp$(\pi^{\frak s}_{u,v_*}
5713: (\bar t \char 94 \bar s),\emptyset,I^{\frak t}_u)$ belongs
5714: to $e_u$ (and is constantly $p_*$ for some $p_* \in {\Cal S}^k$).
5715: \enddefinition
5716: \bigskip
5717:
5718: \remark{\stag{p.1A} Remark} We may say ``${\frak s}$ is semi-limit of
5719: ${\frak t}$" when in clause (d) we replace $\Leftrightarrow$ by
5720: $\Rightarrow$. We may consider using this weaker version and/or omit
5721: linearity in our main theorem, but the present version suffices.
5722: \endremark
5723: \bigskip
5724:
5725: \proclaim{\stag{p.2} Main Claim} $K^{\frak s}_{v_*}$ is an almost
5726: $\kappa$-automorphism group (see below) \ub{when}:
5727: \mr
5728: \item "{$\boxtimes$}" $(a) \quad {\frak s},{\frak t}$ are both p.o.w.i.s
5729: \sn
5730: \item "{${{}}$}" $(b) \quad {\frak s}$ is an existential
5731: limit of ${\frak t}$ as witnessed by $v_*$
5732: \sn
5733: \item "{${{}}$}" $(c) \quad J^{\frak t}$ is $\aleph_1$-directed and
5734: is linear (i.e., for every $u,v \in J^{\frak t}$ we have
5735: \nl
5736:
5737: \hskip25pt $u \le_{J[{\frak t}]} v$ or $v \le_{J[{\frak t}]} v)$
5738: \sn
5739: \item "{${{}}$}" $(d) \quad {\frak t}$ is a $\kappa$-p.o.w.i.s (so
5740: $\kappa \ge |J^{\frak t}|$ and $\kappa \ge
5741: |I^{\frak t}_u|$ for $u \in J^{\frak t}$)
5742: \sn
5743: \item "{${{}}$}" $(e) \quad {\frak t}$ is non-trivial (see
5744: Definition \scite{m.1}(6).
5745: \endroster
5746: \endproclaim
5747: \bigskip
5748:
5749: \remark{Remark} Not much harm in adding ${\frak t}$ is
5750: nice (see Definition \scite{m.2}(7)) so for
5751: $u \le_{J[{\frak t}]} v$ the functions
5752: $\pi^{\frak t}_{u,v},\hat \pi^{\frak t}_{u,v}$ has full
5753: domain, see Definition \scite{nx.0}(1),(2),(3) and Claim \scite{nx.2}(3)).
5754: \endremark
5755: \bigskip
5756:
5757: \definition{\stag{p.1.1} Definition} $G$ is an almost
5758: $\kappa$-automorphism group when: there is a $\kappa$-automorphism
5759: group $G^+$ and a normal subgroup $G^-$ of $G^+$ of cardinality $\le
5760: \kappa$ such that $G$ is isomorphic to $G^+/G^-$, i.e., there is a
5761: homomorphism from $G^+$ onto $G$ with kernel $G^-$.
5762: \enddefinition
5763: \bn
5764: Before proving \scite{p.2} we explain: why
5765: being almost $\kappa$-automorphism group help us in proving our
5766: intended result?
5767: \nl
5768: Recalling \scite{0.6}:
5769:
5770: \proclaim{\stag{p.1.2} Claim} For any ordinal $\alpha$, if there is an almost
5771: $\kappa$-automorphism group $G$ with a subgroup $H$ of cardinality $\le
5772: \kappa$ such that $\tau'_{G,H} = \alpha$ [such that
5773: {\rm nor}$^\alpha_G(H)=G \wedge (\forall \beta < \alpha)(\text{\rm
5774: nor}^\beta_G(H) \ne G)$] \ub{then} there is a $\kappa$-automorphism group
5775: $G'$ with a subgroup $H'$ of cardinality $\le \kappa$ such that
5776: $\tau'_{G',H'} = \alpha$ [such that {\rm nor}$^\alpha_G(H') = G \wedge
5777: (\forall \beta < \alpha)(\text{\rm nor}^\beta_G(H) \ne G)$].
5778: \endproclaim
5779: \bigskip
5780:
5781: \demo{Proof} Easy.
5782:
5783: Let $G^+,G^-$ be as in Definition \scite{p.1.1} and $h$ be a
5784: homomorphism from $G^+$ onto $G$ with kernel $G^-$ and let $H^+ = \{x
5785: \in G^+:h(x) \in H\}$.
5786:
5787: So it is easy to check each of the following statements (similar to
5788: \scite{nx.2}(5)):
5789: \mr
5790: \item "{$\circledast$}" $(a) \quad H^+$ is a subgroup of $G^+$
5791: \sn
5792: \item "{${{}}$}" $(b) \quad |H^+| \le |H| \times |G^-| \le \kappa
5793: \kappa = \kappa$
5794: \sn
5795: \item "{${{}}$}" $(c) \quad G^+$ is a $\kappa$-automorphism group
5796: \sn
5797: \item "{${{}}$}" $(d) \quad$ nor$^\beta_{G^+}(H^+) = \{x \in
5798: G^+:h(x) \in \text{\rm nor}^\beta_G(H)\}$ for every $\beta \le \infty$
5799: \sn
5800: \item "{${{}}$}" $(e) \quad \tau_{G,H} = \tau_{G^+,H^+}$
5801: \sn
5802: \item "{${{}}$}" $(f) \quad$ nor$^\beta_G(H)=G$ then
5803: nor$^\beta_{G^+}(H^+) = G^+$ for every $\beta \le \infty$.
5804: \ermn
5805: Together $(G^+,H^+)$ exemplifies the desired conclusion.
5806: \hfill$\square_{\scite{p.1.2}}$
5807: \enddemo
5808: \bigskip
5809:
5810: \demo{Proof of \scite{p.2}} Let $G^+$ be the
5811: automorphism group of $M_{\frak t}$ and let $G^-$ be
5812: the following subgroup of $G^+$
5813:
5814: $$
5815: \align
5816: \{\varkappa \in G^+:&\text{ for some } u \in J^{\frak t} \text{ we have} \\
5817: &u \le_J v \wedge g \in K_v \Rightarrow \varkappa((v,g)) = (v,g)\}.
5818: \endalign
5819: $$
5820: \mn
5821: Easily
5822: \mr
5823: \item "{$\circledast_1$}" $G^-$ is a subgroup of $G^+$
5824: \nl
5825: [Why? As $J^{\frak t}$ is directed]
5826: \sn
5827: \item "{$\circledast_2$}" for every $\varkappa \in G^+$ we can find $\bar
5828: f^\varkappa = \langle f^\varkappa_u:u \in J^{\frak t}\rangle$ such that
5829: {\roster
5830: \itemitem{ $(a)$ } $f^\varkappa_u \in F^{\frak t}_u$
5831: \sn
5832: \itemitem{ $(b)$ } $\varkappa \restriction D^{\frak t}_u = f_u$
5833: \sn
5834: \itemitem{ $(c)$ } $\varkappa \restriction P^{M_{\frak t}}_{2,u}$ is
5835: $(1,u,f) \mapsto (1,u,f_u f)$.
5836: \nl
5837: [Why? By Claim \scite{nx.5}.]
5838: \endroster}
5839: \item "{$\circledast_3$}" $G^-$ has cardinality $\le \kappa$.
5840: \nl
5841: [Why? As $|J^{\frak t}| \le \kappa$, it
5842: suffices to prove that for each $u \in J^{\frak t}$, the
5843: subgroup $G^-_u := \{\varkappa \in G^+:\varkappa \restriction
5844: P^{M_{\frak t}}_{1,v}$ is the identity when $u \le_{J[{\frak s}]} v\}$
5845: has cardinality $\le
5846: \kappa$, but this has the same number of elements as $F^{\frak s}_u$
5847: because $\varkappa \mapsto \varkappa \restriction D_u$ is a
5848: one-to-one function from
5849: $G^-_u$ onto $F^{\frak s}_u$ and ${\frak t}$ is linear.
5850: As $|F^{\frak s}_u| \le \aleph_0 +
5851: |Z_u| = \aleph_0 + |I_u| \le \kappa$ we are done.]
5852: \sn
5853: \item "{$\circledast_4$}" $G^-$ is a normal subgroup of $G^+$.
5854: \nl
5855: [Why? By its definition, more elaborately
5856: {\roster
5857: \itemitem{ $(a)$ } each $G^-_u$ is a normal subgroup of $G^+$.
5858: \nl
5859: [Why? As all members of Aut$(M_{\frak s})$ maps each $\{v\} \times
5860: K_v$ onto itself so $G^-_u$ is even an definable subgroup]
5861: \sn
5862: \itemitem{ $(b)$ } $u \le_{J[{\frak t}]} v
5863: \Rightarrow G^-_u \subseteq G^-_v$.
5864: \nl
5865: [Why? Check the definitions.]
5866: \sn
5867: \itemitem{ $(c)$ } $G^- = \cup\{G^-_u:u \in J\}$.
5868: \nl
5869: [Why? Trivially.]
5870: \endroster}
5871: \ermn
5872: Together we are done proving $\circledast_4$.]
5873: \mr
5874: \item "{$\circledast_5$}" For
5875: $x \in Z^{\frak s}_{v^*}$ let $\varkappa_x$ be the
5876: following automorphism of $M_{\frak t}$, it is defined
5877: as in $\circledast_2$ by $\langle
5878: f^x_u:u \in J^{\frak t}\rangle$ where $f_u =
5879: \partial^{\frak t}_{u,\hat\pi_{u,v_*}(x)}$ is from Definition
5880: \scite{nx.0}(4)
5881: \sn
5882: \item "{$\circledast_6$}" for every $x \in Z^{\frak s}_{v^*},
5883: \varkappa_x$ is a well defined automorphism of $M_{\frak t}$.
5884: \nl
5885: [Why? Look at the definitions and \scite{nx.5}.]
5886: \ermn
5887: The main point is
5888: \mr
5889: \item "{$\circledast_7$}" $G^+$ is generated by $\{\varkappa_x:x \in
5890: Z^{\frak s}_{v^*}\} \cup G^-$.
5891: \ermn
5892: Why? Clearly the set is a set of elements of $G^+$. So assume $\varkappa \in
5893: G^+$ and let $\bar f^\varkappa = \langle f^\varkappa_u:u \in J^{\frak t}
5894: \rangle$ be as in $\circledast_2$, they are fixed for awhile.
5895:
5896: By \scite{nx.13} for each $u \in J^{\frak t}$ there are $k=k^u$ and
5897: $\bar t = \bar t^u \in {}^{k^u}(I^{\frak s}_u)$ and $\bold q = \bold
5898: q^u \in \bold S^{k^u}$ such that (the ``disjoint" as we can replace
5899: $\bar t$ by $\bar t \char 94 \bar t$ or even $\bar t \char 94 \bar t
5900: \char 94 \ldots \char 94 \bar t$ with $|S^{k^u}|$ copies note that we
5901: can demand that $\bold q$ is reduced by \scite{nx.13}(3)):
5902: \mr
5903: \item "{$\boxdot_1$}" $f^{\varkappa}_u =
5904: \partial_{u,(\bar t^u,\bold q)}$, i.e., if
5905: $v \le_{J[{\frak t}]} u$ then $f \restriction (\{v\} \cap K^{\frak
5906: t}_v)$ is a multiplication from the left (of the $K^{\frak t}_v$-coordinate)
5907: by $g_{\pi^{\frak
5908: t}_{v,u}(\bar t),\bold q^u}$ and $\bold q^u$ is reduced and
5909: disjoint, see Definition \scite{nx.0.7}(2),(5).
5910: \ermn
5911: The choices are not necessarily unique, in particular
5912: \mr
5913: \item "{$\boxdot_2$}" if $u^1 \le_{J[{\frak t}]} u^2$ then
5914: $(k^{u^2},\pi_{u^1,u^2}(\bar t^{u^2}),\bold q^{u^2})$ can serve as
5915: $(k^{u^1},\bar t^{u^1},\bold q^{u^1})$.
5916: \ermn
5917: Also
5918: \mr
5919: \item "{$\boxdot_3$}" the set of possible $(k^u,\bold q^u)$ is
5920: countable.
5921: \ermn
5922: As $J^{\frak t}$ is $\aleph_1$-directed
5923: \mr
5924: \item "{$\boxdot_4$}" for some pair $(k^*,\bold q^*)$ the set $\{u
5925: \in J^{\frak t}:k^u = k^*$ and $\bold q^u = \bold q^*\}$ is cofinal in
5926: $J^{\frak t}$.
5927: \ermn
5928: Together, \wilog \, for some $k^*,\bold q$
5929: \mr
5930: \item "{$\boxdot_5$}" $k^u = k^*$ and $\bold q^u = \bold q$ for
5931: every $u \in J^{\frak t}$.
5932: \ermn
5933: Let $E$ be an ultrafilter on $J^{\frak t}$ such that $u \in J^{\frak
5934: t} \Rightarrow \{v:u \le_{J[{\frak t}]} u\}\in E$, exists as $J^{\frak
5935: t}$ is directed. For each $u \in J^{\frak t}$ there are
5936: $A_u,p_u,w(u)$ such that
5937: \mr
5938: \item "{$\boxdot_6$}" $(a) \quad A_u \in E$ and
5939: \sn
5940: \item "{${{}}$}" $(b) \quad p_u \in {\Cal S}^{k^*}$
5941: \sn
5942: \item "{${{}}$}" $(c) \quad$ if $v \in A_u$ then $u \le_{J[{\frak
5943: t}]} v$ and $p_u = \text{ tp}(\pi_{u,v}(\bar t^v),\emptyset,I_u)$
5944: \sn
5945: \item "{${{}}$}" $(d) \quad w(u) \in A_u$.
5946: \ermn
5947: For $p \in {\Cal S}^{k^*}$ let
5948: \mr
5949: \item "{$\boxdot_7$}" $(a) \quad Y_p = \{u \in J^{\frak t}:p_u =
5950: p\}$
5951: \sn
5952: \item "{${{}}$}" $(b) \quad \bar s^{u,v} = \pi^{\frak t}_{u,v}(\bar
5953: t^v) \restriction \text{ supp}(\bold q(p_u))$ for $u \in J^{\frak t},v
5954: \in A_u$
5955: \sn
5956: \item "{${{}}$}" $(c) \quad \bar s^u = \bar s^{u,w(u)}$.
5957: \ermn
5958: So
5959: \mr
5960: \item "{$\boxdot_8$}" $\langle Y_p:p \in S^{k^*}\rangle$ is a
5961: partition of $J^{\frak t}$.
5962: \ermn
5963: Fix $p \in {\Cal S}^k$ for awhile so for each $u \in Y_p$ and $v \in
5964: A_u$ by $\boxdot_1$, $\varkappa \restriction (\{u\} \times K_u)$ is
5965: multiplication from the left by $g^{u,{\frak s}}_{\pi^{\frak t}_{u,v}(\bar
5966: t^v),\bold q}$ (it was $\bold q^v$ but we have already agreed that
5967: $\bold q^v = \bold q$). But $p = \text{ tp}_{\text{qf}}
5968: (\pi^{\frak t}_{u,v}(\bar
5969: t^v),\emptyset,J_u)$ as $u \in Y_p,v \in A_u$ and so by Definition
5970: \scite{nx.0.7}(4) we know that
5971: $g^{u,{\frak s}}_{\pi^{\frak t}_{u,v}(\bar t^v),\bold q}$
5972: is $g^{u,{\frak s}}_{\pi^{\frak t}_{u,v}(\bar t^v),\bold q(p)}$.
5973:
5974: Now $\bold q(p) \in \Lambda^2_{k^*}$ so $\bold q(p) = \langle
5975: \rho^p_0,\rho^p_1,\dotsc,\rho^p_{i(p)-1}\rangle$ and recall
5976:
5977: $$
5978: g_{\pi^{\frak t}_{u,v}(\bar t^v),\bold q(p)} \text{ is }
5979: g_{\bar t,\rho^p_0} h_{g_{\bar t,\rho^p_1} G^{<0}_u} \ldots;
5980: $$
5981: \mn
5982: so it depends only on $\bar t \restriction \text{ supp}(\bold q(p))$ only.
5983:
5984: Now consider any two members $v_1,v_2$ of $A_u$ (so they are above $u$)
5985: comparing the two expressions for $\varkappa \restriction (\{u\}
5986: \times K_u)$ one coming from $v^1$ the second from $v^2$ we conclude
5987: that $g_{\pi^{\frak t}_{u,v^s_2}(\bar t^{v^*_1}),\bold q(p)} =
5988: g_{\pi^{\frak t}_{u,v_2}(\bar t^{v_2}),\bold q(p)}$. As $\bold q$ is
5989: reduced also $\bold q(p)$ is $p$-reduced hence by \scite{n.1.23}(3)
5990: we conclude that
5991: \mr
5992: \item "{$\boxdot_9$}" if ($p \in {\Cal S}^{k^*},u \in Y_p \subseteq
5993: J^{\frak t}$ and) $v_1,v_2 \in A_u$ then $\pi^{\frak t}_{u,v_2}(\bar
5994: t^{v_1}) \restriction$ supp$(\bold q(p))$ is a permutation of
5995: $\pi^{\frak t}_{u,v_2}(\bar t^{v_2}) \restriction \text{ supp}(\bold
5996: q(p))$
5997: \nl
5998: this means
5999: \sn
6000: \item "{$\boxdot_{10}$}" if $p \in {\Cal S}^{k^*},u \in J^{\frak t}$
6001: and $v_1,v_2 \in A_u$ then $\bar s^{u,v_1}$ is a permutation of $\bar
6002: s^{u,v_2}$.
6003: \ermn
6004: Hence for each $u \in J^{\frak t}$
6005: \mr
6006: \item "{$\boxdot_{11}$}" if $v \in A_u$ then $\bar s^{u,v}$ is a
6007: permutation of $\bar s^u = \bar s^{u,w(u)}$.
6008: \ermn
6009: As there are only finitely many permuations of $\bar s^{u,v_u}$, there
6010: are $\bar s^u,A'_u$ such that
6011: \mr
6012: \item "{$\boxdot_{12}$}" for $u \in J^{\frak t}$:
6013: {\roster
6014: \itemitem{ $(a)$ } $A'_u \in E$
6015: \sn
6016: \itemitem{ $(b)$ } $A'_u \subseteq A_u$
6017: \sn
6018: \itemitem{ $(c)$ } $\bar s^u = \bar s^{u,v}$ for every $v \in A'_u$.
6019: \endroster}
6020: \ermn
6021: Now
6022: \mr
6023: \item "{$\boxdot_{13}$}" if $p \in {\Cal S}^k$ and $u_1 \le_{J[{\frak
6024: t}]} u_2$ are from $Y_p$ then $\pi^{\frak t}_{u_1,u_2}(\bar s^{u_2}) =
6025: \bar s^{u_2}$.
6026: \ermn
6027: [Why? As $E$ is an ultrafilter on $J^{\frak t}$ and
6028: $A'_{u_1},A'_{u_2} \in E$ we can find $v \in A'_{u_1} \cap A'_{u_2}$.
6029: So for $\ell=1,2$ we have $\bar s^{u_\ell} = \pi^{\frak
6030: t}_{u_\ell,v}({\frak t}^v) \restriction \text{ supp}(\bold q(p)) =
6031: \pi^{\frak t}_{u_\ell,v}(\bar t^v \restriction \text{ supp}(\bold
6032: q(p))$.
6033:
6034: As $\pi^{\frak t}_{u_1,v} = \pi^{\frak t}_{u_1,u_0} \circ \pi^{\frak
6035: t}_{u_2,v}$ we conclude $\bar s^{u_1} = \pi^{\frak t}_{u_1,u_2}(\bar
6036: s^{u_2})$ is as required.]
6037:
6038: Let ${\Cal S}' = \{p \in {\Cal S}^{k^*}:Y_p$ is an unbound subset of
6039: $J^{\frak t}\}$, so for some $u_* \in J^{\frak t}$ we have
6040: \mr
6041: \item "{$\boxdot_{14}$}" $J^{\frak t}_{\ge u_*} \subseteq
6042: \cup\{Y_p:p \in {\Cal S}'\}$.
6043: \ermn
6044: Also \wilog
6045: \mr
6046: \item "{$\boxdot_{15}$}" $k^* = k^*_1 + k^*_2$ and
6047: $\{0,\dotsc,k^*_1-1\} = \cup\{\text{supp}(\bold q(p):p \in {\Cal S}'\}$
6048: \sn
6049: \item "{$\boxdot_{16}$}" for $p \in {\Cal S}'$ and $\ell \in
6050: \text{ supp}(\bold q(p))$, so $s^u_\ell$ is well defined for $u \in
6051: Y_p$, there is a unique $t \in J_{\frak s}$ such that:
6052: $$
6053: u \in Y_p \Rightarrow \pi^{\frak s}_{u,v_*}(t) = s^u_\ell.
6054: $$
6055: \ermn
6056: [Why? By clause (d) of Definition \scite{n.1}.]
6057:
6058: Next we can find $\bar t$ such
6059: that
6060: \mr
6061: \item "{$\boxdot_{17}$}" $(a) \quad \bar t = \langle t_\ell:\ell <
6062: k^*_1\rangle$
6063: \sn
6064: \item "{${{}}$}" $(b) \quad$ if $p \in {\Cal S}'$ and $\ell \in
6065: \text{ supp}(\bold q(p))$ then $t_\ell \in I^{\frak s}_{v^*}$
6066: is as in $\boxdot_{16}$.
6067: \ermn
6068: [Why? For $i \in \cup\{\text{supp}(\bold q(p)):p \in {\Cal S}'\}$ use
6069: $\boxdot_{16}$, as $\bold q$ is disjoint (see Definition
6070: \scite{nx.0.7}(2)) there is no case of ``double definition".]
6071:
6072: By clause (d) of Definition \scite{p.1}, possibly increasing $u_*$
6073: \mr
6074: \item "{$\boxdot_{18}$}" $p^* = \text{ tp}(\pi^{\frak
6075: s}_{u,v_*}(\bar t),\emptyset,I^{\frak s}_u)$ for every $u \in
6076: J^{\frak t}_{\ge u_*}$
6077: \sn
6078: \item "{$\boxdot_{19}$}" let ${\Cal E}$ be the following equivalence
6079: relation on ${\Cal S}^{k^*},p_1 {\Cal E} p_2 \Leftrightarrow \bold
6080: q(p_1) {\Cal E}^1_{k^*_1,p \restriction k^*_1} \bold q(p_2)$; note
6081: they are actually from ${\Cal S}^{k^*_1}$ and so ``${\Cal
6082: E}^1_{k^*_1,p \restriction k^*_1}$-equivalent" is meaningful, see
6083: Definition \scite{n.1.15}(4)
6084: \sn
6085: \item "{$\boxdot_{20}$}" let $\bar e = \langle e_u:u \in
6086: J^{\frak t}_{\ge u_*}\rangle$ be defined by $ e_u = p_u/E$
6087: \sn
6088: \item "{$\boxdot_{21}$}" $E,\bar t,\bar e,\langle
6089: \pi^{\frak t}_{u,w(u)}(\bar t^{w(u)}):u \in J^{\frak t}_{\ge
6090: u_*}\rangle$ satisfies the demands $(f)(\alpha)-(\zeta)$ from
6091: Definition \scite{p.1.7}.
6092: \ermn
6093: [Why? Check.]
6094:
6095: Recall $p^* = \text{ tp}(\bar t,\emptyset,I^{\frak s}_{v_*})$ here so
6096: let $\bar s \in {}^{(k^*_2)}(I^{\frak s}_{v_*})$ be as guaranteed to
6097: exist by Definition \scite{p.1.7}.
6098: Let $\bar t^{v^*} := \bar t \char 94 \bar s$. So
6099: possibly increasing $u_* \in J^{\frak t}$ for some $p^*$ we have
6100: \mr
6101: \item "{$\boxdot_{22}$}" if $u \in J^{\frak t}_{\ge u_*}$
6102: then $p^* = \text{ tp}(\pi^{\frak s}_{u,v_*}(\bar t \char 94 \bar
6103: s),\emptyset,I^{\frak s}_u) = \text{ tp}(\bar t \char 94 \bar
6104: s,\emptyset,I^{\frak s}_{v_*})$.
6105: \ermn
6106: Let
6107: \mr
6108: \item "{$\boxdot_{23}$}" $(a) \quad \varrho^* = \bold q(p^*)$ so
6109: $\varrho^* \in \Lambda^2_{k^*_1,p^*}$ and let $\varrho^* = \langle
6110: \rho_\ell:\ell < \ell(*)\rangle$
6111: \sn
6112: \item "{${{}}$}" $(b) \quad \bar t_u = \pi^{\frak s}_{u,v_*}(\bar t)$
6113: for $u \in J^{\frak t}$
6114: \sn
6115: \item "{${{}}$}" $(c) \quad$ let $z_u = z^{u,s}_{\bar t_u,\varrho}
6116: \in Z^{1,{\frak s}}_u$ (see Definition \scite{n.1.17}(5A))
6117: \sn
6118: \item "{${{}}$}" $(d) \quad$ let $f_u = \partial^{\frak s}_{u,z_u}
6119: \in F^{\frak s}_u$; (this is not the same as $f^\varkappa_u$!).
6120: \ermn
6121: Now
6122: \mr
6123: \item "{$\boxdot_{24}$}" for $u_1 \le_{J[{\frak t}]} u_2$ we have
6124: $f_{u_1} \subseteq f_{u_2}$.
6125: \ermn
6126: [Why? Check.]
6127: \mr
6128: \item "{$\boxdot_{25}$}" $\varkappa_{\bar f}$ is a finite product of
6129: members of $\{\varkappa_x:x \in Z^{\frak s}_{v_*}\}$.
6130: \ermn
6131: [Why? Recall $\varkappa_x$ for $x \in Z^{\frak s}_{v^*}$ is from
6132: $\circledast_5$. Now use $\boxdot_{23}$.]
6133: \sn
6134: Lastly
6135: \mr
6136: \item "{$\boxdot_{26}$}" $(\varkappa^{-1}_{\bar f})\varkappa \in G^+
6137: = \text{ Aut}(M_{\frak t})$ is the identity on $P^{M_{\frak t}}_u$ whenever $u
6138: \in J^{\frak t}_{\ge u_*}$.
6139: \ermn
6140: [Why? By $\boxdot_{24}$ and our choices.]
6141: \mr
6142: \item "{$\boxdot_{25}$}" $(\varkappa_{\bar f}) \in (G^-_{u_*}
6143: \subseteq) G^-$.
6144: \ermn
6145: [Why? By $\boxdot_{25}$ and the definition of $(G_{u^*}$ and) $G^-$.]
6146: \mr
6147: \item "{$\boxdot_{28}$}" $\varkappa$ is the product (in $G^+$) of
6148: $\varkappa_{\bar f} \in G^-$ and $(\varkappa^{-1}_f)\varkappa \in
6149: \langle \{\varkappa_x:x \in Z^{\frak s}_{v_*}\}\rangle$.
6150: \ermn
6151: [Why? $\boxdot_{25} + \boxdot_{27}$ this is clear.]
6152:
6153: As $\varkappa$ was any a member of $G^+$ we are done proving $\circledast_7$.
6154: \mr
6155: \item "{$\circledast_8$}" there is a homomorphism $\bold h$ from
6156: $K^{\frak s}_{v_*}$ onto $G^+/G^-$ which maps $g_x$ to $\varkappa_x
6157: G^-$ for $x \in Z^{\frak s}_{v_*}$.
6158: \ermn
6159: [Why? By $\circledast_7$ there is at most one such homomorphism and
6160: if it exists it is onto.
6161:
6162: So it is enough to show that for any group term, $\sigma$ if
6163: $K^{\frak s}_{v_*}$
6164: satisfies $K_{v_*} \models ``\sigma(g_{x_1},\dotsc,g_{x_{k-1}})=e"$ then
6165: $\sigma(\varkappa_{x_0},\dotsc,\varkappa_{x_{k-1}}) \in G^-$. Let
6166: $\langle t_\ell:\ell < \ell^*\rangle$ list
6167: $\cup\{\text{his}(x_\ell):\ell < k\} \subseteq I^{\frak s}_{v_*}$
6168: and let $u_* \in J^{\frak t}$ be
6169: such that: if $u_* \le_{J[{\frak t}]} u$ and $\ell(1),\ell(2) < \ell^*$
6170: we have $I^{\frak s}_{v_*} \models t_{\ell(1)} <_I t_{\ell(2)}$ iff
6171: $I^{\frak t}_u \models \pi_{u,v_*}(t_{\ell(1)}) <
6172: \pi_{u,v^*}(t_{\ell(2)})$ and similarly for equality, see clause (d)
6173: of Definition \scite{p.1}.
6174:
6175: Let $t_{u,\ell} = \pi_{u,v_*}(t_\ell),x_{u,\ell} = \hat
6176: \pi_{u,v_*}(x_\ell)$. By the definition of $G^-$ it is enough to show
6177: that: if $u_* \le_{J[{\frak t}]} u$ then $K_u \models
6178: ``\sigma(g_{x_{u,0}},\dotsc,g_{x_{u,k_1}}) = e_{K_u}"$. By the
6179: analysis in \scite{m.7} and \S2 (i.e., twisted product) this should be clear.]
6180: \mr
6181: \item "{$\circledast_9$}" $\varkappa^*$ is one to one.
6182: \ermn
6183: [Why? By part of the analysis as for $\circledast_7$.]
6184:
6185: By $\circledast_8 + \circledast_9$ we are done.
6186: \hfill$\square_{\scite{p.1.2}}$
6187: \enddemo
6188: \bigskip
6189:
6190: \proclaim{\stag{p.3} Theorem} Assume
6191: \mr
6192: \item "{$(a)$}" $\aleph_0 < { \text{\rm cf\/}}(\theta) \le \theta \le
6193: \kappa$
6194: \sn
6195: \item "{$(b)$}" ${\Cal F}_\alpha \subseteq {}^\alpha \kappa$ for $\alpha <
6196: \theta$ has cardinality $\le \kappa$ (also ${\Cal F}_\alpha \subseteq
6197: {}^\alpha \beta$ for some $\beta < \kappa^+$ is O.K.)
6198: \sn
6199: \item "{$(c)$}" ${\Cal F} = \{f \in{}^\theta \kappa:f
6200: \restriction \alpha \in {\Cal F}_\alpha$ for every $\alpha < \theta\}$
6201: \sn
6202: \item "{$(d)$}" $\gamma = { \text{\rm rk\/}}({\Cal F},
6203: <_{J^{\text{bd}}_\theta})$, necessarily $< \infty$ so $<
6204: (\kappa^\theta)^+$
6205: \sn
6206: \item "{$(e)$}" for $f_1,f_2 \in {\Cal F}$, \ub{then} $f_1
6207: <_{J^{\text{bd}}_\theta} f_2$ or $f_2 <_{J^{\text{bd}}_\theta} f_1$
6208: or $f_2 =_{J^{\text{bd}}_\theta} f_1$; follows from (f)
6209: \sn
6210: \item "{$(f)$}" for stationarily many $\delta < \theta$ we have: if
6211: $f_1,f_2 \in {\Cal F}_\delta$, \ub{then} for some $\alpha < \delta$ we
6212: have $\beta \in (\alpha,\delta) \Rightarrow (f_1(\beta) < f_2(\beta)
6213: \equiv f_1(\alpha) < f_2(\alpha))$.
6214: \ermn
6215: \ub{Then} $\tau^{\text{atw}}_\kappa \ge \tau^{\text{nlg}}_\kappa
6216: \ge \tau^{\text{nlf}}_\kappa > \gamma$
6217: (on $\tau^{\text{nlf}}_\kappa$ see Definition \scite{0.2}(4)).
6218: \endproclaim
6219: \bigskip
6220:
6221: \proclaim{\stag{p.3A} Theorem} We can in Theorem \scite{p.3} weaken
6222: clause (f) to
6223: \mr
6224: \item "{$(f)'$}" $(\alpha) \quad S \subseteq \theta$ is a stationary set
6225: consisting of limit ordinals
6226: \sn
6227: \item "{${{}}$}" $(\beta) \quad D$ is a normal filter on $\theta$
6228: \sn
6229: \item "{${{}}$}" $(\gamma) \quad S \in D$
6230: \sn
6231: \item "{${{}}$}" $(\delta) \quad \bar J = \langle J_\delta:\delta \in
6232: S\rangle$
6233: \sn
6234: \item "{${{}}$}" $(\varepsilon) \quad J_\delta$ is an ideal on
6235: $\delta$ extending $J^{\text{bd}}_\delta$ for $\delta \in S$
6236: \sn
6237: \item "{${{}}$}" $(\zeta) \quad$ if $S' \subseteq S,S' \in D^+$ and
6238: $w_\delta \in J_\delta$ for $\delta \in S'$ then
6239: \nl
6240:
6241: \hskip25pt $\cup\{\delta \backslash w_\delta:\delta \in S'\}$
6242: contains an end segment of $\theta$
6243: \sn
6244: \item "{${{}}$}" $(\eta) \quad$ if $\delta \in S$ and $f_1,f_2 \in
6245: {\Cal F}$ \ub{then} $f_1 \restriction \delta <_{J_\delta}
6246: f_2 \restriction \delta$ or
6247: \nl
6248:
6249: \hskip25pt $f_2 \restriction \delta <_{J_\delta}
6250: f_1 \restriction \delta$ or $f_1 \restriction \delta =_{J_\delta} f_2
6251: \restriction \delta$
6252: \endroster
6253: \endproclaim
6254: \bigskip
6255:
6256: \remark{Remark} 1) We can justify (f)$'$ by pcf theory quotation,
6257: see below.
6258: \nl
6259: 2) We should prove that the p.o.w.i.s. being existential holds.
6260:
6261: Note that in proving \scite{p.3}, \scite{p.3A} the main point is the
6262: ``existential limit". This proof has affinity to the first step in the
6263: elimination of quantifiers in the theory of $(\omega,<)$. For this it
6264: is better if $I_\theta = ({\Cal F},<_{J^{\text{bd}}_\theta})$ has many
6265: cases of existence. Toward this we ``padded it" in $(*)_0$ of the
6266: proof - take care of successor $(f \in {\Cal F} \Rightarrow f+1 \in
6267: {\Cal F})$, have zero $(0_\theta \in {\Cal F})$ without losing the
6268: properties we have.
6269: \nl
6270: 2) The demand of \scite{p.3} may seem very strong, but by pcf theory
6271: it is $q$ natural.
6272: \endremark
6273: \bigskip
6274:
6275: \demo{\stag{p.3.1} Observation} 1) Theorem \scite{p.3A} implies
6276: Theorem \scite{p.3}.
6277: \nl
6278: 2) If (a)-(d) of \scite{p.3} holds, \ub{then} $(f) \Rightarrow (f)'$.
6279: \nl
6280: 3) If (a)-(d) of \scite{p.3} holds then (f) $\Rightarrow$ (e).
6281: \enddemo
6282: \bigskip
6283:
6284: \demo{Proof} 1) By 2).
6285: \nl
6286: 2) Let
6287:
6288: $$
6289: \align
6290: S =: \{\delta < \theta:&\delta \text{ is a limit ordinal and if }
6291: f_1,f_2 \in {\Cal F}_\delta \\
6292: &\text{ then for some } \alpha < \delta \text{ we have }
6293: \beta \in (\alpha,\delta) \Rightarrow \\
6294: &(f_1(\beta) < f_2(\beta)
6295: \equiv f_1(\alpha) < f_2(\alpha))\}.
6296: \endalign
6297: $$
6298: \mn
6299: By (f) we know that $S$ is a stationary subset of $\theta$. Let
6300: ${\Cal D}_\theta$ be the club filter on $\theta$ and $D =: {\Cal
6301: D}_\theta + S$, it is a normal filter on $\theta$ and $S \in D$. So
6302: sub-clauses $(\alpha),(\beta),(\gamma)$ of $(f)'$ holds.
6303:
6304: Let $J_\delta = J^{\text{bd}}_\delta$ for $\delta \in S$ so $\bar J =
6305: \langle J_\delta:\delta \in S \rangle$ satisfies sub-clauses
6306: $(\delta),(\varepsilon)$ of $(f)'$. To prove $(\zeta)$ assume $S'
6307: \subseteq S,S' \in D^+$ and $w_\delta \in J_\delta$ for $\delta \in
6308: S'$. Then sup$(w_\delta) < \delta$ and $S'$ is a stationary subset of
6309: $\delta$ hence by Fodor lemma for some $\beta(*) < \theta$ the set $S'' =
6310: \{\delta \in S':\sup(w_\delta) = \beta(*)\}$ is a stationary subset of
6311: $\theta$ and so $[\beta(*),\theta)$ is an end segment of $\theta$ and is
6312: equal to $\cup\{[\beta(*),\delta):\delta \in S''\}$ which is included
6313: in $\cup\{\delta \backslash w_\delta:\delta \in S'\}$, as required in
6314: $(\zeta)$ from $(f)'$, so sub-clause $(\zeta)$ really holds.
6315:
6316: To prove sub-clause $(\eta)$ of clause $(f)'$ note that what it says is
6317: what is said in $(f)$.
6318: \nl
6319: 3) Should be clear. Given $f_1,f_2 \in {\Cal F}$; by sub-clause
6320: $(\eta)$ of $(f)'$ for each $\delta \in S$ there are $w_\delta \in
6321: J_\delta$ and $\ell_\alpha < 3$ such that $\ell_0 = 0 \wedge \alpha
6322: \in \delta \backslash w_\delta \Rightarrow f_1(\alpha) < f_2(\alpha)$
6323: and $\ell_\delta = 1 \wedge \alpha \in \delta \backslash w_\delta
6324: \Rightarrow f_1(\alpha) = f_2(\alpha)$ and $\ell_\delta = 2 \wedge
6325: \alpha \in \delta \backslash w_\delta \Rightarrow f_1(\alpha) >
6326: f_2(\alpha)$. So for some $\ell < 2$ the set $S' := \{\delta \in
6327: S:\ell_\delta = \ell\}$ is stationary, hence $\cup\{\delta \backslash
6328: w_\delta:\delta \in S'\}$ include an end segment of $\theta$ and we
6329: are easily done. \hfill$\square_{\scite{p.3.1}}$
6330: \enddemo
6331: \bigskip
6332:
6333: \demo{Proof of \scite{p.3A}} Without loss of generality
6334: \mr
6335: \item "{$(*)_0$}" $(a) \quad (\forall f \in {\Cal F})
6336: (\exists^\infty g \in {\Cal F})\bigl(f \restriction [1,\theta) = g
6337: \restriction [1,\theta)\bigr)$;
6338: \nl
6339:
6340: \hskip25pt moreover for $f \in {\Cal F}$ we have
6341: \nl
6342:
6343: \hskip25pt $\omega = \{g(0):g \in {\Cal F}$ and $g \restriction [1,\theta) -
6344: f \restriction [1,\theta)\}$
6345: \sn
6346: \item "{${{}}$}" $(b) \quad \alpha < \beta < \theta \Rightarrow
6347: {\Cal F}_\alpha = \{f \restriction \alpha:f \in {\Cal F}_\beta\}$;
6348: moreover $\alpha < \theta \Rightarrow {\Cal F}_\alpha =$
6349: \nl
6350:
6351: \hskip25pt $\{f \restriction \alpha:f \in {\Cal F}\}$
6352: \sn
6353: \item "{${{}}$}" $(c) \quad$ if $f \in {\Cal F}$, \ub{then} $f+1 \in {\Cal F}$
6354: \sn
6355: \item "{${{}}$}" $(d) \quad$ the
6356: $f \in{}^\theta\{0\}$, the constantly zero function, belongs to ${\Cal F}$.
6357: \ermn
6358: [Why? Let ${\Cal F}' = \{f \in {}^\theta\kappa$: for some $n,(\forall
6359: \alpha < \theta)(f(1 + \alpha)=n) \wedge f(0) < \omega$
6360: or for some $f' \in{\Cal F}$ and $n
6361: < \omega$ we have $(\forall \alpha < \theta)(f(1 + \alpha)= \omega
6362: (1+f'(\alpha))+n) \wedge f(0) < \omega\}$
6363: and for $\alpha < \theta$, replace ${\Cal F}_\alpha$
6364: by ${\Cal F}'_\alpha =\{f \restriction \alpha:f \in {\Cal F}'\}$. Now
6365: check that $(a)-(e),(f)'$ of the assumption still holds.]
6366:
6367: We define ${\frak s} = (J,\bar I,\bar \pi)$ as follows:
6368: \mr
6369: \item "{$(*)_1$}" $(a) \quad J = (\theta +1;<)$
6370: \sn
6371: \item "{${{}}$}" $(b)(\alpha) \quad$ let $I_\theta =
6372: ({\Cal F},<_{J^{\text{bd}}_\theta})$ and
6373: \sn
6374: \item "{${{}}$}" $\quad (\beta) \quad I_\alpha =
6375: ({\Cal F}_{1 +\alpha +1},<_{\alpha +1})$ for $\alpha < \theta$ where
6376: $$
6377: f_1 <_{\alpha +1} f_2 \Leftrightarrow f_1(1 + \alpha) < f_2(1 +\alpha)
6378: $$
6379: \sn
6380: \item "{${{}}$}" $\quad (c) \quad$ for $\alpha < \beta < \theta +1$ let
6381: $\pi_{\alpha,\beta}:I_\beta \rightarrow I_\alpha$ be
6382: $$
6383: \pi_{\alpha,\beta}(f) = f \restriction (1 +\alpha +1).
6384: $$
6385: \ermn
6386: Note that
6387: \mr
6388: \item "{$(*)_2$}" $I_\alpha$ is a non-trivial (see Definition
6389: \scite{m.1}(6)).
6390: \ermn
6391: [Why? By $(*)_0(a)$ and the choice of $<_{I_\alpha}$ in $(*)_1(b)(\beta)$.]
6392: \mr
6393: \item "{$(*)_3$}" ${\frak s} = (J,I,\bar \pi)$ is a p.o.w.i.s. even
6394: nice
6395: \nl
6396: [Note clause (d) of Definition \scite{p.1} holds by clause (e) of
6397: Theorem \scite{p.3}.]
6398: \sn
6399: \item "{$(*)_4$}" ${\frak s}$ is a limit of ${\frak t} =: {\frak
6400: s} \restriction \theta = ((\theta,<),\bar I \restriction
6401: \theta,\bar \pi \restriction \theta)$.
6402: \nl
6403: [Why? Note that clause (d) of Definition \scite{p.1} holds by clause
6404: (f) here and Fodor lemma. Easy to check the other clauses.]
6405: \sn
6406: \item "{$(*)_5$}" ${\frak t}$ is a $\kappa$-p.o.w.i.s.
6407: \nl
6408: [Why? Check, as $\alpha < \theta \Rightarrow |{\Cal F}_\alpha| \le
6409: \kappa$.]
6410: \ermn
6411: Now $G^{\frak s}_\theta$ is an almost $\kappa$-automorphism group by
6412: Claim \scite{p.2}, the ``existential limit" holds by $(*)_6$
6413: below (note: $J$ is linear). Now rk$(I^{\frak s}_\theta)
6414: = \gamma$ and $H^{\frak s}_\theta$ is a subgroup of $G^{\frak
6415: s}_\theta$ of cardinality $2 \le \kappa$.
6416:
6417: By \scite{m.9}
6418:
6419: $$
6420: \tau^{\text{nlg}}_{G^{\frak s}_\theta,G^{<1,{\frak s}}_\theta} =
6421: \text{ rk}(I^{\frak s}_\theta) = \gamma
6422: $$
6423: \mn
6424: and nor$^{< \infty}_{G^{\frak s}_\theta}
6425: (H^{\frak s}_\theta) = G^{\frak s}_\theta$ and by \scite{nx.3}(4),
6426: $\tau^{\text{nlf}}_{G^{\frak s}_\theta,H^{\frak s}_\theta} = \gamma$.
6427:
6428: We still have to check
6429: \mr
6430: \item "{$(*)_6$}" ``${\frak s}$ is an existential limit of
6431: ${\frak t}$", see Definition \scite{p.1.7}.
6432: \ermn
6433: That is we have to prove clause (f) of \scite{p.1.7}, so we should
6434: prove its conclusion, assuming its assumption which means in our case
6435: \mr
6436: \item "{$\circledast_1$}" $(a) \quad k=k_1 + k_2,{\Cal E}$ is an equivalence
6437: relation on ${\Cal S}^k$
6438: \sn
6439: \item "{${{}}$}" $(b) \quad \bar f \in {}^{k_1}({\Cal F}_\theta)$ and
6440: $\alpha(*) < \delta$
6441: \sn
6442: \item "{${{}}$}" $(c) \quad \bar e = \langle e_\alpha \in
6443: [\alpha(*),\theta)\rangle$ is such that $e_\alpha \in {\Cal S}^k/{\Cal E}$
6444: \sn
6445: \item "{${{}}$}" $(d) \quad \langle \bar g^\alpha:\alpha \in
6446: [\alpha(*),\theta)\rangle$ is such that $\bar g^\alpha \in
6447: {}^{(k_2)}({\Cal F}_\alpha)$
6448: \sn
6449: \item "{${{}}$}" $(e) \quad$ if $\alpha(*) \le \alpha < \beta$ then:
6450: $$
6451: e_\alpha \text{ is the }
6452: {\Cal E}\text{-equivalence class of tp}_{\text{qf}}
6453: (\langle f_\ell(1+\alpha):\ell <
6454: k_1\rangle \char 94 \langle g^\beta_\ell(1+\alpha):\ell <
6455: k_2\rangle,\emptyset,\kappa).
6456: $$
6457: \ermn
6458: Without loss of generality [recalling clause (e) of the assumption and
6459: $(*)_0(c)$]
6460: \mr
6461: \item "{$\circledast_2$}" $(f) \quad \langle f_\ell:\ell < k_1\rangle$
6462: is $\le_{J^{\text{bd}}_\theta}$-increasing
6463: \sn
6464: \item "{${{}}$}" $(g) \quad f_0$ is constantly zero
6465: \sn
6466: \item "{${{}}$}" $(h) \quad$ for each $\ell < k_1-1$ we have:
6467: $f_{\ell +1} = f_\ell$ mod
6468: $J^{\text{bd}}_\theta$ or $f_{\ell +1} = f_\ell +1$
6469: \nl
6470:
6471: \hskip25pt mod $J^{\text{bd}}_\theta$ or
6472: $f_\ell + \omega \le f_{\ell +1}$ mod $J^{\text{bd}}_\omega$
6473: \sn
6474: \item "{${{}}$}" $(i) \quad \langle f_\ell:\ell < k_1\rangle$ is
6475: without repetition
6476: \sn
6477: \item "{${{}}$}" $(j) \quad \langle f_\ell(0):\ell < k_1\rangle$ is
6478: without repetition.
6479: \ermn
6480: Possibly increasing $\alpha(*) < \theta$ \wilog \,
6481: \mr
6482: \item "{$\circledast_3$}" if $\alpha \in [\alpha(*),\theta)$ and
6483: $\ell_1,\ell_2 < k_1$ then $f_{\ell_1}(\alpha) < f_{\ell_2}(\alpha)
6484: \Leftrightarrow f_{\ell_1}(\alpha(*)) < f_{\ell_2}(\alpha(*))$.
6485: \ermn
6486: Hence by clause (f) of $\circledast_2$
6487: \mr
6488: \item "{$\circledast_4$}" $\langle f_\ell(\alpha(*)):\ell <
6489: k_1\rangle$ is non-decreasing.
6490: \ermn
6491: For notational simplicity
6492: \mr
6493: \item "{$\circledast_5$}" $(a) \quad \langle f_e \restriction
6494: \delta:\ell < k_1\rangle = \langle g^\delta_\ell:\ell < k_1\rangle$ so
6495: $k_1 < k_2$
6496: \sn
6497: \item "{${{}}$}" $(b) \quad$ if $\ell_1 < k_2,\ell_2 \in [k_1,k_2)$
6498: then $g^\delta_{\ell_1} = g^\delta_{\ell_2} \equiv
6499: g^\delta_{\ell_1}(0)= g^\delta_{\ell_2}(0)$.
6500: \ermn
6501: Next for some $p^*$
6502: \mr
6503: \item "{$\circledast_6$}" $p^* \in {\Cal S}^k$ and for some $S'
6504: \subseteq S$ from $D^+$, for every $\delta \in S'$ for the
6505: $J_\delta$-majority of $\alpha < \delta$, say $\alpha \in \delta
6506: \backslash w_\alpha,w_\alpha \in J_\delta$,
6507: we have $p^* = \text{ tp}_{\text{qf}}
6508: (\langle g^\delta_\ell \restriction (1 + \alpha +1):\ell <
6509: k_2\rangle,\emptyset,I_\alpha)$.
6510: \ermn
6511: [Why? By sub-clause $(\eta)$ of clause $(f)'$, as $J_\delta$ is an
6512: ideal (applied to $(g^\delta_{\ell_1},g^\delta_{\ell_2})$ for every
6513: $\ell_1,\ell_2 < k_2$) for
6514: each $\delta \in S$ we can choose $w_\delta \in J_\delta$
6515: and $q_\delta \in {\Cal S}^k$ such that for every $\alpha \in (\delta
6516: \backslash w)$ we have tp$_{\text{qf}}
6517: (\langle g^\delta_\ell(1 + \alpha):\ell < k_2\rangle,
6518: \emptyset,I_\alpha)$ is equal to
6519: $q_\delta$. For each $p \in {\Cal S}^k$ let
6520: $S_p = \{\delta \in S:q_\delta = p\}$. So $S = \cup\{S_p:p \in {\Cal S}^k\}$,
6521: hence for some $p$ we have $S_p \in D^+$. So let $S' = S_p,p^* = p$.]
6522:
6523: So \wilog \, considering the way $I_\alpha$ was defined by $\circledast_5$
6524: \mr
6525: \item "{$\circledast_7$}" there are $E^*_1,E^*_2,<_*$ such that
6526: {\roster
6527: \itemitem{ $(a)$ } $E^*_1$ is an equivalence relation on $k_2 =
6528: \{0,\dotsc,k_2-1\}$
6529: \sn
6530: \itemitem{ $(b)$ } $E^*_2$ is an equivalence relation on $k_2$
6531: refining $E^*_1$
6532: \sn
6533: \itemitem{ $(c)$ } $<_*$ linearly order $k_2$
6534: \sn
6535: \itemitem{ $(d)$ } if $\delta \in S',\alpha \in \delta \backslash
6536: w_\delta$ so $p^* = \text{ tp}_{\text{qf}}(\langle
6537: g^\delta_\ell(\alpha):\ell < k_2\rangle$ then:
6538: \sn
6539: \itemitem{ ${{}}$ } $(\alpha) \quad \ell_1 E^*_2 \ell_2$ iff
6540: $g^\delta_{\ell_1}(1 + \alpha) = g^\delta_{\ell_2}(1 + \alpha)$
6541: \sn
6542: \itemitem{ ${{}}$ } $(\beta) \quad \ell_1 E^*_2 \ell_2$ iff
6543: $g^\delta_{\ell_1} \restriction (1 + \alpha +1) =
6544: g^\delta_{\ell_2} \restriction (1 + \alpha +1)$
6545: \sn
6546: \itemitem{ ${{}}$ } $(\gamma) \quad (\ell_1/E^*_1) <_* (\ell_2/E^*_1)$ iff
6547: $g^\delta_{\ell_1}(1 + \alpha) < g^\delta_{\ell_2}(1 + \alpha)$.
6548: \endroster}
6549: \ermn
6550: Let $\langle u_0,\dotsc,u_{m-1}\rangle$ list the $E^*_1$-equivalence
6551: classes in $<_*$-increasing order. Necessary $0 \in u_0$.
6552:
6553: Let $\alpha_* = \text{ min}(\delta_* \backslash w_{\delta_*})$ where
6554: $\delta_* = \text{ min}(S')$. We now define $g_\ell \in {}^\theta
6555: \kappa$ for $\ell < k_2$ as follows. So necessarily
6556: for a unique $i=i(\ell),\ell \in u_i$ and let $i_1 =
6557: i_1(\ell) \le i$ be maximal such that $u_{i_1} \cap
6558: \{0,\dotsc,k_1-1\} \ne \emptyset,j_2 = j_2(\ell) = \text{ min}(\{u_1
6559: \cap \{0,\dotsc,k_1-1\})$. It is well defined as necessary $0 \in
6560: u_0$ because $f_0$ is constantly zero. Now we let
6561: \mr
6562: \item "{$\boxdot_0$}" $g_\ell = (g^{\alpha_*}_\ell \restriction
6563: \{0\}) \cup ((f_{j_2} + (i-i_1)) \restriction [1,\theta))$.
6564: \ermn
6565: Now
6566: \mr
6567: \item "{$\boxdot_1$}" if $\ell < k_1$ then $g_\ell = f_\ell$
6568: \nl
6569: [Why? Check the definition $g^{\alpha_*}_\ell(0) = f_\ell(0)$ as
6570: $g^{\alpha_*}_\ell = f_\ell$.]
6571: \sn
6572: \item "{$\boxdot_2$}" $g_\ell \in {\Cal F}$ for $\ell < k_2$
6573: \nl
6574: [Why? As $f_{j_2} \in {\Cal F}$ and clauses (a)+(c) of $(*)_0$.]
6575: \sn
6576: \item "{$\boxdot_3$}" if $\ell_1 E^*_2 \ell_2$ then $g_{\ell_1} =
6577: g_{i_2}$
6578: \nl
6579: [Why? First, as $\ell_1 E^*_2 \ell_2$ we have $g_\ell(0) =
6580: g^{\alpha_*}_{\ell_1}(0) = g^{\alpha_*}_{\ell_2}(0) = g_\ell(0)$.
6581: Second, clearly $i(\ell_1) = i(\ell_2),i_1(\ell_1) = i_1(\ell_2)$ and
6582: $j_2(\ell_1) = j_2(\ell_2)$ hence for $\alpha \in [1,\theta)$ we have
6583: $$
6584: \align
6585: g_{\ell_1}(\alpha) = (&f_{j_2(\ell_1)}(\alpha) +
6586: (i(\ell_1)- i_1(\ell_1)) = \\
6587: &f_{j_2(\ell_1)}(\alpha) + (i(\ell_2) - i_1(\ell_2)) =
6588: g_{\ell_2}(\alpha).
6589: \endalign
6590: $$
6591: \mn
6592: So we are done.]
6593: \sn
6594: \item "{$\boxdot_4$}" if $\ell_1,\ell_2 < k_2$ but $\neg(\ell_1 E^*_2
6595: \ell_2)$ then $g_{\ell_1} \ne g_{\ell_2}$
6596: \nl
6597: [Why? If $\ell_1,\ell_2 < k_1$ then $g_{\ell_1} = f_{\ell_1} \ne
6598: f_{\ell_2} = g_{\ell_2}$. If $\ell_1 < k_2,\ell_2 \in [k_1,k_2)$ as
6599: $\neg(\ell_1 E^*_1 \ell_2)$ by $(*)_5(b)$ we have
6600: $g^{\alpha_*}_{\ell_1}(0) \ne g^{\alpha_*}_{\ell_2}(0)$, hence
6601: $g_{\ell_1}(0) = g^{\alpha_*}_{\ell_1}(0) \ne g^{\alpha_*}_{\ell_2}(0)
6602: = g_\ell(0)$ hence $g_{\ell_1} \ne g_{\ell_2}$. Lastly, if $\ell_1
6603: \in [k_1,k_2),\ell_2 < k_2$ the proof is similar.]
6604: \sn
6605: \item "{$\boxdot_5$}" if $\ell_1,\ell_2 < k_2,\ell_1 E^*_1 \ell_2$
6606: then $\neg(g_{\ell_1} <_{I_\theta} g_{\ell_2})$
6607: \nl
6608: [Why? As $g_{\ell_1} \restriction [1,\theta) = g_{\ell_2}
6609: \restriction [1,\theta)$, so $g_{\ell_1} = g_{\ell_2}$ mod
6610: $J^{\text{bd}}_\theta$, so $I_\theta \models \neg(g_{\ell_1} <
6611: g_{\ell_2})$.]
6612: \sn
6613: \item "{$\boxdot_6$}" if $\ell_1,\ell_2 < k_2$ and $(\ell_1/E^*_1)
6614: <_* (\ell_2/E^*_2)$ then $g_{\ell_1} <_{I_\theta} g_{\ell_2}$
6615: \nl
6616: [Why? If $f_{j_2(\ell_1)} + \omega \le f_{j_2(\ell_2)}$ mod
6617: $J^{\text{bd}}_\theta$ then easily $g_{\ell_1}
6618: <_{J^{\text{bd}}_\theta} f_{j_2(\ell_1)} + w
6619: \le_{J^{\text{bd}}_\theta} f_{j_2(\ell)} \le_{J^{\text{bd}}_\theta}
6620: g_{\ell_2}$ so we are done.
6621: If $j_2(\ell_1) = j_2(\ell_2)$ then as still $i(\ell_1) < i(\ell_2)$
6622: we have $g_{\ell_1} =_{J^{\text{bd}}_\theta} f_{j_2(\ell_1)} +
6623: (i(\ell_1)-j_2(\ell_1) < f_{j_2(\ell_1)} + (i(\ell_2) = g_2(\ell_2))
6624: =_{J^{\text{bd}}_\theta} g_{\ell_2}$ as required.
6625: If $j_2(\ell_1) \ne j_2(\ell_2)$ then necessarily $j_2(\ell_1) <
6626: j_2(\ell_2),i_1(\ell_1) < i_1(\ell_2)$ moreover $i_1(\ell_1) \le
6627: i(\ell_1) < j_2(\ell_2) \le i(\ell_2)$ but by $\circledast(h)$ we have
6628: $f_{j_1(\ell_1)} + (j_2(\ell_1) - i_1(\ell_1))
6629: \le_{J^{\text{bd}}_\theta} f_{j_2(\ell_2)}$ so we are easily done.]
6630: \ermn
6631: Together $\langle g_\ell:\ell < k_2\rangle$ is as required for proving
6632: $(f)'$ of \scite{p.1.7}, the definition of existential limit,
6633: i.e. $(*)_6$. \hfill$\square_{\scite{p.3}} \quad
6634: \square_{\scite{p.3A}}$
6635: \enddemo
6636: \bn
6637: We quote
6638: \proclaim{\stag{p.3C} Claim} Assume {\rm cf}$(\kappa) = \theta >
6639: \aleph_0,\alpha < \kappa \Rightarrow (\alpha)^\theta < \kappa$ and
6640: $\lambda = \kappa^\theta$. \ub{Then} we can find $\langle {\Cal
6641: F}_i:i \le \theta\rangle,S,D$ satisfying the conditions from
6642: \scite{p.3A} with $\gamma = \lambda$ (and more).
6643: \endproclaim
6644: \bigskip
6645:
6646: \demo{Proof} By \scite{p.3B} and \cite{Sh:g}.
6647: \hfill$\square_{\scite{p.3C}}$
6648: \enddemo
6649: \bigskip
6650:
6651: \proclaim{\stag{p.3B} Claim} Assume
6652: \mr
6653: \item "{$\circledast$}" $(a) \quad \bar \lambda = \langle \lambda_i:i
6654: < \theta \rangle$ is an increasing sequence of regular cardinals with
6655: \nl
6656:
6657: \hskip25pt limit $\kappa$
6658: \sn
6659: \item "{${{}}$}" $(b) \quad \lambda = \text{\rm tcf}(\dsize \prod_{i
6660: < \theta} \lambda_i,<_{J^{\text{bd}}_\theta})$
6661: \sn
6662: \item "{${{}}$}" $(c) \quad$ {\rm max pcf}$\{\lambda_i:i < j_*\} < \kappa$
6663: for every $j < \theta$.
6664: \ermn
6665: 1) \ub{Then} there are $D,S^*,u$ such that
6666: \mr
6667: \item "{$(\alpha)$}" $u \in [\theta]^\theta,S^* \subseteq \theta$ is
6668: stationary
6669: \sn
6670: \item "{$(\beta)$}" there are no $\zeta < \theta,u_\varepsilon \in
6671: [u]^\theta$ for $\varepsilon < \theta$ such that for a club of $\delta
6672: < \theta$ if $\delta \in S^*$ then for at least one $\varepsilon <
6673: \delta$ we have {\rm max pcf}$\{\lambda_i:i \in\delta \cap u_\varepsilon\}
6674: < \text{\rm max pcf}\{\lambda_i:i \in \delta\}$ hence
6675: \sn
6676: \item "{$(\gamma)$}" $D$ is a normal filter on $\theta$ where: $D$ is
6677: $\{S \subseteq \theta$: for some sequence $\langle
6678: u_\varepsilon:\varepsilon < \theta\rangle$ of subsets of $\theta$ each
6679: of cardinality $\theta$ and for some club $E$ of $\theta$, if
6680: $\delta \in E \cap S \cap S^*$ then for every $\varepsilon < \delta$
6681: we have {\rm max pcf}$\{\lambda_i:i \in \delta \cap u_\varepsilon\} =
6682: \text{\rm max pcf}\{\lambda_i:i \in \delta \cap u\}\}$
6683: \sn
6684: \item "{$(\delta)$}" by renaming $u=\theta$ and for $\delta \in S^*$
6685: let $J_\delta = \{u \subseteq \delta:\,\text{\rm max pcf}\{\lambda_i:i
6686: \in \delta \backslash u\} < \text{\rm max pcf}\{\lambda_i:i <
6687: \delta\}$.
6688: \ermn
6689: 2) We can choose ${\Cal F}_i \subseteq \dsize \prod_{j<i} \lambda_i$
6690: for $i \le \theta$ such that all the conditions in \scite{p.3A} holds.
6691: \endproclaim
6692: \bigskip
6693:
6694: \demo{Proof} By \cite[II,3.5]{Sh:g}, see on this \cite[\S18]{Sh:E12}.
6695: \enddemo
6696: \bigskip
6697:
6698: \demo{\stag{p.5} Conclusion} If $\kappa$ is strong limit singular of
6699: uncountable cofinality \ub{then} $\tau^{\text{atw}}_\kappa \ge
6700: \tau^{\text{nlg}}_\kappa \ge \tau^{\text{nlf}}_\kappa > 2^\kappa$.
6701: \enddemo
6702: \bigskip
6703:
6704: \demo{Proof} By \scite{p.3A} and \scite{p.3B}. \hfill$\square_{\scite{p.5}}$
6705: \enddemo
6706: \bigskip
6707:
6708: \remark{\stag{5.7} Remark} 1) If $\kappa = \kappa^{\aleph_0}$ do we have
6709: $\tau^{\text{atw}}_\kappa \ge \tau^{\text{nlg}}_\kappa \ge
6710: \tau^{\text{nlf}}_\kappa > \kappa^+$? But if $\kappa = \kappa^{<
6711: \kappa} > \aleph_0$ then quite easily yes.
6712: \nl
6713: 2) In \scite{p.5} we can weaken ``$\kappa$ is strong limit". E.g. if
6714: $\kappa$ has uncountable cofinality and $\alpha < \kappa \Rightarrow
6715: |\alpha|^{\text{cf}(\kappa)} < \kappa$, then $\tau^{\text{nlf}}_\kappa
6716: > \kappa^{\text{cf}(\kappa)}$; see more in \cite[\S18]{Sh:E12}.
6717: \nl
6718: 3) We elsewhere will weaken the assumption in \scite{p.3},
6719: \scite{p.3A} but deduce only that $\tau^{\text{nlg}}_\kappa$ is large.
6720: \endremark
6721: \newpage
6722:
6723:
6724: % PRIVATE excursion starts here
6725: % back from PRIVATE part number 1/1
6726:
6727: \nocite{ignore-this-bibtex-warning}
6728: %% you may want to move the following lines up a bit
6729: \newpage
6730:
6731: REFERENCES.
6732: \bibliographystyle{lit-plain}
6733: \bibliography{lista,listb,listx,listf,liste}
6734:
6735: \enddocument %%
6736:
6737:
6738:
6739:
6740:
6741: