%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% army7.dist : version portable (plain d'army) utilisant les polices 
% cm et un encodage OT1 (tex), bref ce qui doit se trouver dans toute
% installation de TeX. Ces macros supposent du apier a4 et une impression avec 
% magnification de 1100 (dvips -x 1100 p. exemple)
%
\newlinechar`\^^J%
\message{^^J Attention, vous compilez un fichier comportant de nombreuses ^^J 
macros specifiques a l'Institut Fourier, il est recommande de lire ^^J
les commentaires figurant au debut de ce fichier. Ce sera  ^^J
necessaire si la compilation vous indique des erreurs.^^J^^J}
\message{ Please learn french and read the included comments in case of trouble.^^J
This file should compile with *plain* TeX. It inputs two files from the ^^J
AMS TeX distribution and requires AMS fonts: euler, symbol and extracm.^^J^^J}
% Pour le francais, ceci repose normalement sur la distribution french, si
% vous l'avez, décommentez la ligne  \input french.sty dans la
% d{\'e}finition de \francais, un
% remplacement acceptable pour la gestion de la ponctuation est :    
%
%\newskip\LastSkip
%\def\nobreakatskip{\relax\ifhmode\ifdim\lastskip>0pt
%  \LastSkip\lastskip\unskip
%  \nobreak\hskip\LastSkip
%  \fi\fi}
%\catcode`\;=\active \def;{\nobreakatskip\string;}%
%\catcode`\:=\active \def:{\nobreakatskip\string:}%
%\catcode`\!=\active \def!{\nobreakatskip\string!}%
%\catcode`\?=\active \def?{\nobreakatskip\string?}%
%\frenchspacing
% 
% Enfin, pour les maths, on utilise les fontes de l'ams, le plus
% simple pour ce faire est de les installer en m{\^e}me temps qu'amstex,
% ce qui suit suppose amstex install{\'e}.
% Il y a aussi plus bas des macros de type \bfmu pour avoir les
% caract{\`e}res maths en gras, chercher boldmath et commenter tout ce qui
% suit. (jusqu'a fin de boldmath) si vous n'avez pas la famille de police cmmib.
\input amssym.def
\input amssym  
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%debut fourier(7)
\catcode`\|=13 % sera commente plus tard dans le fichier
% Charge des fontes de 8 et 6 points :
% Ne marche qu'avec les .vf de 'psfonts'
% \font\helvb=phvb7t
\font\helvb=cmssbx10
\font\eightrm=cmr8
\font\eighti=cmmi8
\font\eightsy=cmsy8
\font\eightbf=cmbx8
\font\eighttt=cmtt8
\font\eightit=cmti8
\font\eightsl=cmsl8
\font\sixrm=cmr6
\font\sixi=cmmi6
\font\sixsy=cmsy6
\font\sixbf=cmbx6
\skewchar\eighti='177 \skewchar\sixi='177
\skewchar\eightsy='60 \skewchar\sixsy='60

\def\tenpoint{%
  \textfont0=\tenrm \scriptfont0=\sevenrm \scriptscriptfont0=\fiverm
  \def\rm{\fam0\tenrm}%
  \textfont1=\teni \scriptfont1=\seveni \scriptscriptfont1=\fivei
  \def\mit{\fam\@ne}\def\oldstyle{\fam1\teni}%
  \textfont2=\tensy \scriptfont2=\sevensy \scriptscriptfont2=\fivesy
    \def\itfam{4}\textfont\itfam=\tenit
  \def\it{\fam\itfam\tenit}%
  \def\slfam{5}\textfont\slfam=\tensl
  \def\sl{\fam\slfam\tensl}%
  \def\bffam{6}\textfont\bffam=\tenbf \scriptfont\bffam=\sevenbf
  \scriptscriptfont\bffam=\fivebf
  \def\bf{\fam\bffam\tenbf}%
  \def\ttfam{7}\textfont\ttfam=\tentt
  \def\tt{\fam\ttfam\tentt}%
%  \font\petcap=cmcsc10
  \abovedisplayskip=6pt plus 2pt minus 6pt
  \abovedisplayshortskip=0pt plus 3pt
  \belowdisplayskip=6pt plus 2pt minus 6pt
  \belowdisplayshortskip=7pt plus 3pt minus 4pt
  \smallskipamount=3pt plus 1pt minus 1pt
  \medskipamount=6pt plus 2pt minus 2pt
  \bigskipamount=12pt plus 4pt minus 4pt
  \normalbaselineskip=12pt
  \setbox\strutbox=\hbox{\vrule height8.5pt depth3.5pt width0pt}%
  \normalbaselines\rm}

\def\eightpoint{%
  \textfont0=\eightrm \scriptfont0=\sixrm \scriptscriptfont0=\fiverm
  \def\rm{\fam0\eightrm}%
  \textfont1=\eighti \scriptfont1=\sixi \scriptscriptfont1=\fivei
  \def\oldstyle{\fam1\eighti}%
  \textfont2=\eightsy \scriptfont2=\sixsy \scriptscriptfont2=\fivesy
  \textfont\slfam=\eightit
  \def\sl{\fam\itfam\eightit}%
  \textfont\slfam=\eightsl
  \def\sl{\fam\slfam\eightsl}%
  \textfont\bffam=\eightbf \scriptfont\bffam=\sixbf
  \scriptscriptfont\bffam=\fivebf
  \def\bf{\fam\bffam\eightbf}%
  \textfont\ttfam=\eighttt
  \def\tt{\fam\ttfam\eighttt}%
%  \font\petcap=cmcsc8
  \abovedisplayskip=9pt plus 2pt minus 6pt
  \abovedisplayshortskip=0pt plus 2pt
  \belowdisplayskip=9pt plus 2pt minus 6pt
  \belowdisplayshortskip=5pt plus 2pt minus 3pt
  \smallskipamount=2pt plus 1pt minus 1pt
  \medskipamount=4pt plus 2pt minus 1pt
  \bigskipamount=9pt plus 3pt minus 3pt
  \normalbaselineskip=9pt
  \setbox\strutbox=\hbox{\vrule height7pt depth2pt width0pt}%
  \normalbaselines\rm}

\font\petcap=cmcsc10

\tenpoint
\hsize=12.5cm
\vsize=19cm
\parskip 5pt plus 1pt
\parindent=1cm
\baselineskip=13pt
\hoffset=-0.1cm %si impression en 120
\def\footnoterule{\kern-6pt
  \hrule width 2truein \kern 5.6pt} % the \hrule is .4pt high

\def\apri{{\sl a priori$\;$ }}
\def\afor{{\sl a fortiori$\;$ }}
\def\ie{{\sl i.e.\ }}
\def\cf{{\rm cf.\ }}
\def\etc{{\rm etc.\ }}
 
\def\omini{\raise 1ex\hbox{\ept o}}
\def\emini{\raise 1ex\hbox{\ept e}}
\def\ermini{\raise 1ex\hbox{\ept er}}
\def\remini{\raise 1ex\hbox{\ept re}}
\def\cobl{\hbox{\tt \char'134 }}
\let\pe=\petcap

%pour editer le sommaire :
\def\lead{\leaders\hbox to 10pt{\hss.\hss}\hfill}
\def\somt#1|#2|{\vskip 8pt plus1pt minus 1pt
                \line{#1\lead #2}}
\def\soms#1|#2|{\vskip 2pt
                \line{\qquad #1\lead #2}}  
\def\somss#1|#2|{\vskip 1pt   
                 \line{\qquad\qquad #1\lead #2}} 

%en-tete papier a lettre Institut Fourier
\def\IF{{ \eightpoint 
      \line{Universit\'e de Grenoble I\hfill}\vskip0.2cm
      \line{{\bf Institut Fourier\hfill}}
      \line{UMR 5582\hfill}
      \line{UFR de Math\'ematiques\hfill}
      }}

% La macro \aujour met la date automatiquement i.e. ecrit
% "25 septembre 1986" (Cette macro a ete introduite
% aujour d'hui, qui est le vingt-cinq septembre dix-...)
% la macro \today en est la version anglaise
\def\aujour{\ifnum\day=1 1\ermini\else\number\day\fi\
\ifcase\month\or janvier\or f\'evrier\or mars\or avril\or mai\or juin\or
juillet\or aout\or septembre\or octobre\or novembre\or d\'ecembre\fi\
\number\year}
\def\today{\ifcase\month\or january \or february \or march \or april
\or may \or june\or july\or august \or september\or october\or november\or
december\fi\ \number\day , \number\year}


% cette definition permet aux \section etc.
% de savoir s'il y a du texte continuant
% le \egroup permet de specifier p.ex. un changement
% de fonte prenant effet APRES le \pointir (cf. \th)
% il doit correpondre a un \bgroup dans
% la definition qui appelle \pointir
\newskip\afterskip
\catcode`\@=11
\def\p@int{.\par\vskip\afterskip\penalty100} % il y a un \par immediatement
%apres
\def\p@intir{\discretionary{.}{}{.\kern.35em---\kern.7em}}
\def\pointir{\afterassignment\pointir@\global\let\next=}
\def\pointir@{\ifx\next\par\p@int\else\p@intir\fi\egroup\next}
\catcode`\@=12
% cette definition permet d'utiliser | en math
% sans que cela termine les definitions
% le \relax permet de ne pas avoir de probleme dans \halign
%\catcode`\|=13 % a ete defini en tete de fichier
\def|{\relax\ifmmode\vert\else\findef\fi}
\def\findef{\errhelp{Cette barre verticale ne correspond ni a un \vert
mathematique
                        ni a une fin de definition, le contexte doit vous
indiquer ce qui manque.
                        Si vous vouliez inserer un long tiret, le codage
recommande est ---,
                        dans tous les cas, la barre fautive a ete supprimee.}%
                        \errmessage{Une barre verticale a ete trouvee en
mode texte}}







\def\TITR#1|{\null{\mss\baselineskip=17pt
                           \vskip 3.25ex plus 1ex minus .2ex
                           \leftskip=0pt plus \hsize
                           \rightskip=\leftskip
                           \parfillskip=0pt
                           \noindent #1
                           \par\vskip 2.3ex plus .2ex}}
 
\def\auteur#1|{\penalty 500
               \vbox{\centerline{\si
                 \iffrance par \else by \fi #1}
                \vskip 10pt}\penalty 500}

\def\resume#1|{\penalty 100
                           {\leftskip=\parindent
                            \rightskip=\leftskip
                            \eightpoint\bgroup\petcap \skip\afterskip=0pt
                             \iffrance R\'esum\'e \else Abstract \fi\pointir
                            #1 \par}
                           \penalty -100}

\def\titre#1|{\null\baselineskip14pt
                           {\helvb
                           \vskip 3.25ex plus 1ex minus .2ex
                           \leftskip=0pt plus \hsize
                           \rightskip=\leftskip
                           \parfillskip=0pt
                           \noindent #1
                           \par\vskip 2.3ex plus .2ex}}

%pour les titres o\`u il y a des formules \'ecrire:
%\titre\mathtitre 1. D\'emonstration dans le cas $p>1$|
\def\mathtitre{\font\tenii=cmmi12 at 12pt %math italic
\font\sevenii=cmmi10  
\font\fiveii=cmmi8  
% polices de l'ams
\font\tenmsa=msam10 at 12pt %math italic
\font\sevenmsa=msam10  
\font\fivemsa=msam8  
\font\tenmsb=msbm10 at 12pt %math italic
\font\sevenmsb=msbm10  
\font\fivemsb=msbm8  
\textfont1=\tenii \scriptfont1=\sevenii \scriptscriptfont1=\fiveii
  \textfont\msafam=\tenmsa \scriptfont\msafam=\sevenmsa
  \scriptscriptfont\msafam=\fivemsa
  \textfont\msbfam=\tenmsb \scriptfont\msbfam=\sevenmsb
  \scriptscriptfont\msbfam=\fivemsb
  \textfont\eufmfam=\teneufm \scriptfont\eufmfam=\seveneufm
  \scriptscriptfont\eufmfam=\fiveeufm
}

\def\section#1|{
                                \bgroup\bf
                                 \par\penalty -500
                                 \vskip 3.25ex plus 1ex minus .2ex
                                 \skip\afterskip=1.5ex plus .2ex
                                  #1\pointir}

\def\ssection#1|{
                                 \bgroup\petcap
                                  \par\penalty -200
                                  \vskip 3.25ex plus 1ex minus .2ex
                          \skip\afterskip=1.5ex plus .2ex
                                   #1\pointir}
 
%l'astuce consiste a considerer que la fonte du nom du
 %theoreme est inseree dans celle de son enonce.
 %\pointir termine la seconde, \findef (|) termine la premiere.

\def\th#1|{ 
                   \bgroup \sl
                        \def\findef{\egroup\par}
                        \bgroup\petcap
                         \par\vskip 2ex plus 1ex minus .2ex
                         \skip\afterskip=0pt
                           #1\pointir}

\def\defi#1|{ 
                   \bgroup \rm
                        \def\findef{\egroup\par}
                        \bgroup\petcap
                         \par\vskip 2ex plus 1ex minus .2ex
                         \skip\afterskip=0pt
                           #1\pointir}

\def\rque#1|{\bgroup \sl
                          \par\vskip 2ex plus 1ex minus .2ex\skip\afterskip=0pt
                          #1\pointir}

\def\dem{\bgroup \sl
                  \par\vskip 2ex plus 1ex minus .2ex\skip\afterskip=0pt
                  \iffrance D\'emonstration\else Proof\fi\pointir}

\def\preuve{\bgroup \sl
                  \par\vskip 2ex plus 1ex minus .2ex\skip\afterskip=0pt
                  \iffrance Preuve\else Proof\fi\pointir}

\def\qed{\quad\hbox{\hskip 1pt\vrule width 4pt height 6pt
          depth 1.5pt\hskip 1pt}}
\def\findem{\penalty 500 \hbox{\qed}\par\vskip 3pt}
\def\carre{\hbox{\font\ppreu=cmsy10\ppreu\char'164\hskip-6.66666pt\char'165}}
\def\finpreuve{{\penalty 500\carre\par\vskip3pt}}
\def\finpr{\ \hbox{\vrule height 1.2ex width 1.1ex depth 0ex}}

% ces definitions permettent de couper une formule en plusieurs morceaux
% ou d'utiliser des indices multiples
\def\negqquad{\hskip-2em}
\def\split#1{\vtop{\halign{\qquad$\displaystyle{}##$\hfil\cr
             \negqquad #1\crcr}}}
\def\_#1{_{\baselineskip=.7 \baselineskip
                                                                       
\vtop{\halign{\hfil$\scriptstyle{##}$\hfil\cr #1\crcr}}}}

\def\build#1#2\fin{\mathrel{\mathop{\kern0pt#1}\limits#2}}

\def\frac#1/#2{\leavevmode\kern.1em
   \raise.5ex\hbox{$\scriptstyle #1$}\kern-.1em
      /\kern-.15em\lower.25ex\hbox{$\scriptstyle #2$}}

{\obeylines
\gdef\iffin{\parskip0pt\parindent0pt 
            \vskip1cm
            \centerline{--$~\diamondsuit~$--}
            \vskip1cm
            \eightpoint
            Universit\'e de Grenoble I
            {\bf Institut Fourier}
	    UMR 5582 
	   %du CNRS et de l'UJF
	    UFR de Math\'ematiques
            B.P. 74
            38402 ST MARTIN D'H\`ERES Cedex (France)
            \vskip1cm
            (\aujour)
            }}
 
\def\decale#1{\par\noindent\hskip 4em
               \llap{#1\enspace}\ignorespaces}
%Pour les bibliographies
%variables pour la biblio chiffre/lettre
\newif\ifchiffre
\def\chiffre{\chiffretrue}
\chiffre
\newdimen\laenge
\def\lettre#1|{\setbox3=\hbox{#1}\laenge=\wd3\advance\laenge by 3mm
\chiffrefalse}
%reference pour un article :
\def\article#1|#2|#3|#4|#5|#6|#7|%
    {{\ifchiffre\leftskip=7mm\noindent
     \hangindent=2mm\hangafter=1
\llap{[#1]\hskip1.35em}\bgroup\petcap #2\pointir {\sl #3}, {\rm #4}
\nobreak{\bf #5}
({\oldstyle #6}), \nobreak #7.\par\else\noindent \advance\laenge by 4mm
\hangindent=\laenge\advance\laenge by -4mm\hangafter=1
\rlap{[#1]}\hskip\laenge\bgroup\petcap #2\pointir {\sl #3}, #4 {\bf #5}
({\oldstyle
#6}), #7.\par\fi}} %reference pour un livre :
\def\livre#1|#2|#3|#4|#5|%
    {{\ifchiffre\leftskip=7mm\noindent
    \hangindent=2mm\hangafter=1
\llap{[#1]\hskip1.35em}\bgroup\petcap #2\pointir{\sl #3}, #4, {\oldstyle
#5}.\par
\else\noindent
\advance\laenge by 4mm \hangindent=\laenge\advance\laenge by -4mm
\hangafter=1
\rlap{[#1]}\hskip\laenge\bgroup\petcap #2\pointir
{\sl  #3}, #4, {\oldstyle #5}.\par\fi}}
%reference complementaire :
\def\divers#1|#2|#3|#4|%
    {{\ifchiffre\leftskip=7mm\noindent
    \hangindent=2mm\hangafter=1
     \llap{[#1]\hskip1.35em}\bgroup\petcap #2\pointir #3, {\oldstyle #4}.\par
\else\noindent
\advance\laenge by 4mm \hangindent=\laenge\advance\laenge by -4mm
\hangafter=1
\rlap{[#1]}\hskip\laenge\bgroup\petcap #2\pointir #3,{\oldstyle #4}.\par\fi}}
%
\def\div#1|#2|#3|#4|
{{\ifchiffre\leftskip=7mm\noindent
\hangindent=2mm\hangafter=1
\llap{[#1]\hskip1.35em}\bgroup\petcap #2\pointir {\sl  #3},{\oldstyle #4}.\par
\else\noindent
\advance\laenge by 4mm \hangindent=\laenge\advance\laenge by -4mm
\hangafter=1
\rlap{[#1]}\hskip\laenge\bgroup\petcap #2\pointir {\sl  #3},{\oldstyle
#4}.\par\fi}}

% fontes army
\font\sdc=cmssdc10
\font\sdcc=cmssdc10 at 12pt
\font\si=cmssi10
\let\ssi\si
\font\dunh=cmdunh10
\font\ms=cmss10
\font\mss=cmss12 scaled \magstep1 % at 14.4pt
\font\bx=cmssbx10
\font\bxx= cmssbx10 at 12pt

% macros army
\hsize=12.5cm
\vsize=19cm
\parskip 5pt plus 1pt
\parindent=1cm
\baselineskip=13pt
 %\hoffset=-0.1cm %si impression en 120

%pour impression en 110 
  \hoffset=0.7cm
 \voffset=0.8cm

\font\cms=cmbsy10 at 5pt
\font\gros=cmex10 at 17.28pt


\newif\iffrance
\def\francais{\francetrue % Si on est en fran{\c c}ais, on devrait inclure french
% \input french.sty 
%si on ne l'a pas, on fait ceci. 
\frenchspacing
% et on s'attend a des difficultes de coupures...
\emergencystretch3em
}

\def\anglais{\francefalse}






\def\TITR#1|{\null{\mss\baselineskip=17pt
                           \vskip 3.25ex plus 1ex minus .2ex
                           \leftskip=0pt plus \hsize
                           \rightskip=\leftskip
                           \parfillskip=0pt
                           \noindent #1
                           \par\vskip 2.3ex plus .2ex}}
 
\def\auteur#1|{\penalty 500
               \vbox{\centerline{\si
                 \iffrance par \else by \fi #1}
                \vskip 10pt}\penalty 500}

\def\resume#1|{\penalty 100
                           {\leftskip=\parindent
                            \rightskip=\leftskip
                            \eightpoint\bgroup\petcap \skip\afterskip=0pt
                             \iffrance R\'esum\'e \else Abstract \fi\pointir
                            #1 \par}
                           \penalty -100}

\def\titre#1|{\null\penalty-500\baselineskip14pt
                           {\helvb
                           \vskip 3.25ex plus 1ex minus .2ex
                           \leftskip=0pt plus \hsize
                           \rightskip=\leftskip
                           \parfillskip=0pt
                           \noindent #1
                           \par\nobreak\vskip 2.3ex plus .2ex}\penalty 5000}

% Pour de TRES gros titres avec des maths.
\def\Mathtitre{\font\tenii=cmmi12 scaled \magstep1 %math italic
\font\sevenii=cmmi12 
\font\fiveii=cmmi9
\textfont1=\tenii \scriptfont1=\sevenii \scriptscriptfont1=\fiveii  
% polices de l'ams
\font\tenmsa=msam10 scaled \magstep2
\font\sevenmsa=msam10  scaled \magstep1
\font\fivemsa=msam9 
\font\tenmsb=msbm10 scaled \magstep2
\font\sevenmsb=msbm10  scaled \magstep1
\font\fivemsb=msbm9  
\textfont\msafam=\tenmsa \scriptfont\msafam=\sevenmsa
  \scriptscriptfont\msafam=\fivemsa
  \textfont\msbfam=\tenmsb \scriptfont\msbfam=\sevenmsb
  \scriptscriptfont\msbfam=\fivemsb
  \textfont\eufmfam=\teneufm \scriptfont\eufmfam=\seveneufm
  \scriptscriptfont\eufmfam=\fiveeufm
}

\def\prodd{\mathop{\prod}\limits}
\def\summ{ \mathop{\sum}\limits}
\def\cupp{\mathop{\bigcup}\limits}
\def\capp{\mathop{\bigcap}\limits}
\def\opp{\mathop{\bigoplus}\limits}
\def\ott{\mathop{\bigotimes}\limits}

\def\hfl{{\hbox to 12mm{\rightarrowfill}}}
              
\def\vfl#1#2{\llap{$\scriptstyle #1$}\left\downarrow
             \vbox to 6mm{}\right.\rlap{$\scriptstyle #2$}}

\def\egal{{{\lower5pt\hbox to 0.5cm{$\hrulefill$}}\atop 
{\raise10pt\hbox to 0.5cm{$\hrulefill$}}}}

\def\simtrait{\wr \Big|}
\def\simflecheup{\wr\Big\uparrow}
\def\simflechedown{\wr\Big\downarrow}

\def\upuparrow{\eqalign{&\big\uparrow\cr\noalign{\vskip-14pt}&\kern-1.8pt
               \uparrow\cr}}
\def\ddarrow{\eqalign{&\raise15pt\hbox{$\big\downarrow$}\cr
             \noalign{\vskip-25pt} &\big\downarrow\cr}}

\def\longhook{\lhook\joinrel\longrightarrow}


\def\cu{\hbox{\cms\char'133}}
\def\ca{\hbox{\cms\char'134}}  
 \def\hookup{{\lower6.3pt\hbox{\cu}\kern-4.32pt\big\uparrow}}
 \def\hookdown{\raise5.3pt\hbox{\ca}\kern-4.32pt\lower3pt\hbox{\big\downarrow}}


\def\grtilde{\kern10pt\hbox{\gros\char'147}}
\def\overtilde{\rlap{$\grtilde$}}
\let\le=\leq %\def\le{\leqslant}
\let\ge=\geq %\def\ge{\geqslant}
\def\bdot#1{{\bf\dot{{\mit #1}}}}
\def\S{\mathhexbox278\kern.15em}
\def\\ {\smallsetminus}
\def\cad{c'est-\`a-dire~}
\def\wt{\widetilde}
\def\wh{\widehat}
\def\ept{\eightpoint}
\def\dis{\displaystyle}
\def\la{\longrightarrow}
\def\ld {, \ldots,}
\def\simto{\build \la^ {\vbox to 0pt{\hbox{$_{\,\displaystyle\sim}$}}}\fin}
\def\unn{1\llap{$\Bbb I$}}
\def\coin{\mathrel{\raise2pt\hbox{$\scriptstyle
|$}\kern-2pt\lower2pt\hbox{$-$}}}
\def\rect{\mathrel{\lower2pt\hbox{$-$}\kern-2pt\raise2pt\hbox{$\scriptstyle
|$}}} 

% pour encercler un num\'ero
\def\numcer#1{\bigcirc\hskip-7.5pt\scriptstyle #1~}
 \def\num{n$^\circ$~}
\def\Ker{\mathop{\rm Ker}\nolimits}
\def\Log{\mathop{\rm Log}\nolimits}
\def\im{\mathop{\rm Im}\nolimits}
\def\resp{\mathop{\rm resp.}\nolimits}
 
{\obeylines
\gdef\iffin{\parskip0pt\parindent0pt 
            \vskip1cm
            \centerline{--$~\diamondsuit~$--}
            \vskip1cm
            \eightpoint
            Universit\'e de Grenoble I
            {\bf Institut Fourier}
	    UMR 5582 
	   %du CNRS et de l'UJF
	    UFR de Math\'ematiques
            B.P. 74
            38402 ST MARTIN D'H\`ERES Cedex (France)
            \vskip1cm
            (\aujour)
            }}
            
\def\grigri{\vskip1cm \centerline{--$~\diamondsuit~$--}\vfill
            \noindent{\eightrm (\aujour)}}

%pour les sommaires (si plusieurs lignes)
\def\ttt{\vskip8pt plus1pt minus1pt\vskip-0.3cm}
\def\ts{\hskip21pt plus 1pt minus1pt} 

\long\def\nomm#1|#2|#3|{\line{$\vtop{\hsize2.5cm #1~}\vtop{\hsize1cm #2~}
\vtop{\hsize=9cm\normalbaselines\parshape 1 0cm 9cm #3.}$}
\medskip}

\long\def\nom#1|#2|{\centerline{$\vtop{\hsize=3cm{\bf #1}~: }
\vtop{\hsize=9.5cm\normalbaselines\parshape 1 0cm 9.5cm #2.}$}
\medskip}

\def\decale#1{\par\noindent\hskip 4em
               \llap{#1\enspace}\ignorespaces}



\def\lnms{~Lecture Notes in Math. Springer-Verlag, Berlin, New York}
\def\lnm{~Lecture Notes in Math.~}
\def\cm{~Compositio Math.}
\def\cmh{~Comment. Math. Helv.}
\def\aif{~Ann. Inst. Fourier (Grenoble)~}
\def\aom{~Ann. of Math.}
\def\jmpa{~J. Math. Pures Appl.}
\def\jfa{~J. Funct. Anal.}
\def\cras{~C. R. Acad. Sci.  Paris S\'er. I Math.}
\def\asens{~Ann. Sci. \'Ecole Norm. Sup.}
\def\jdg{~J. Differential Geom.}
\def\inm{~Invent. Math.}
\def\pspm{~Proc. Sympos. Pure Math.}
\def\bsmf{~Bull. Soc. Math. France~}
\def\bams{~Bull. Amer. Math. Soc.}
\def\prepub #1{~Pr\'e\-pu\-bli\-ca\-tion de l'Institut Fourier n$^\circ$ {#1},
Grenoble} \def\pja{~Proc. Japan Acad. Ser. A Math.}
\def\cpde{~Comm. Partial Differential Equations~}
\def\prsl{~Proc. Roy. Soc. London Ser. A~}
\def\cpam{~Comm. Pure Appl. Math.}
\def\pams{~Proc. Amer. Math. Soc.}

 


%pour encadrement d'une formule
\def\boxit#1#2{\hbox{\vrule
 \vbox{\hrule\kern#1
  \vtop{\hbox{\kern#1 #2\kern#1}%
   \kern#1\hrule}}%
 \vrule}}
\def\boxmat#1#2{\boxit{#1}{$#2$}}
 
 

% pour encadrement de texte
% ces macros permettent de creer une \vbox, nommee \texte, qu'on peut
% placer n'importe ou dans la page avec des \hskip \vskip,\hfill, \hbox 
% Si on veut placer deux encadrements simultanement, il faut
% creer une boite \premiercadre en ecrivant \newbox\premiercadre,
% vider le premier encadrement dedans 
% (\setbox\premiercadre=\vbox{\unvbox\texte}) puis creer le second
% encadrement
% et les disposer, par exemple :
% \hfil\hbox{\copy\premiertexte}\hfil\hbox{\copy\texte}\hfil
\newbox\texte
\def\texteencadre#1|#2|#3|{\setbox1=\vbox{#3}
\setbox\texte=\vbox{\hrule height#1pt%
\hbox{\vrule width#1pt\kern#2pt\vbox{\kern#2pt \hbox{\box1}\kern#2pt}%
\kern#2pt\vrule width#1pt}\hrule height#1pt}}

 


% Macros pour les tableaux
\def\blanc{\hbox to 0pt{\vrule height13pt depth5pt width0pt}}
\def\blancs{\hbox to 0pt{\vrule height9pt depth5pt width0pt}}
\def\blan{\hbox to 0pt{\vrule height6pt depth5pt width0pt}}
\def\bla{\hbox to 0pt{\vrule height7pt depth5pt width0pt}}
\def\hrulefill{\leaders\hrule height0.2pt\hfill}
\def\trait{\noalign{\hrule}}
\def\traith{\noalign{\hrule height1pt}}
\def\traitv{\vrule width1pt}

% Macros pour tableaux avec colonnes d'\'egale dimension
\def\bb#1&#2\cr{
\hbox to 1cm{\hfil\strut#1~\vrule}
\hbox to 1cm{\hfil\strut#2~\vrule}
}
\def\aa#1&#2&#3&#4&#5&#6&#7&#8&#9\cr{\line{$
\hbox to 3cm{\vrule width 1pt \strut~#1\hfil\vrule}
\hbox to 1cm{\hfil\strut#2~\vrule}
\hbox to 1cm{\hfil\strut#3~\vrule}
\hbox to 1cm{\hfil\strut#4~\vrule}
\hbox to 1cm{\hfil\strut#5~\vrule}
\hbox to 1cm{\hfil\strut#6~\vrule}
\hbox to 1cm{\hfil\strut#7~\vrule}
\hbox to 1cm{\hfil\strut#8~\vrule width 1pt}
\bb#9\cr
$\hfil}}













%Alphabet rond``\cal"     %Alphabet double``\ Bbb"      %Alphabet gras``\bf"  
\def\ac{{\cal A}}           \def\ab{{\Bbb A}}            \def\aaf{{\bf A}}
\def\bc{{\cal B}}           \def\bbb{{\Bbb B}}           \def\bbf{{\bf B}}
\def\cc{{\cal C}}           \def\cb{{\Bbb C}}            \def\ccf{{\bf C}}
\def\dc{{\cal D}}           \def\db{{\Bbb D}}            \def\ddf{{\bf D}}
\def\ec{{\cal E}}           \def\eb{{\Bbb E}}            \def\eef{{\bf E}}
\def\fc{{\cal F}}           \def\fb{{\Bbb F}}            \def\fff{{\bf F}}
\def\gc{{\cal G}}           \def\gb{{\Bbb G}}            \def\ggf{{\bf G}}
\def\hc{{\cal H}}           \def\hb{{\Bbb H}}            \def\hhf{{\bf H}}
\def\ic{{\cal I}}           \def\ib{{\Bbb I}}            \def\iif{{\bf I}}
\def\jc{{\cal J}}           \def\jb{{\Bbb J}}            \def\jjf{{\bf J}}
\def\kc{{\cal K}}           \def\kb{{\Bbb K}}            \def\kkf{{\bf K}}
\def\lc{{\cal L}}           \def\lb{{\Bbb L}}            \def\llf{{\bf L}}
\def\mc{{\cal M}}           \def\mb{{\Bbb M}}            \def\mmf{{\bf M}}
\def\nc{{\cal N}}           \def\nb{{\Bbb N}}            \def\nnf{{\bf N}}
\def\oc{{\cal O}}           \def\obb{{\Bbb O}}           \def\oof{{\bf O}}
\def\pcc{{\cal P}}          \def\pb{{\Bbb P}}            \def\ppf{{\bf P}}
\def\qc{{\cal Q}}           \def\qb{{\Bbb Q}}            \def\qqf{{\bf Q}}
\def\rc{{\cal R}}           \def\rb{{\Bbb R}}            \def\rrf{{\bf R}}
\def\scc{{\cal S}}          \def\sbb{{\Bbb S}}           \def\ssf{{\bf S}}
\def\tc{{\cal T}}           \def\tb{{\Bbb T}}            \def\ttf{{\bf T}}
\def\uc{{\cal U}}           \def\ub{{\Bbb U}}            \def\uuf{{\bf U}}
\def\vc{{\cal V}}           \def\vb{{\Bbb V}}            \def\vvf{{\bf V}}
\def\wc{{\cal W}}           \def\wb{{\Bbb W}}            \def\wwf{{\bf W}}
\def\xc{{\cal X}}           \def\xb{{\Bbb X}}            \def\xxf{{\bf X}}
\def\yc{{\cal Y}}           \def\yb{{\Bbb Y}}            \def\yyf{{\bf Y}}
\def\zc{{\cal Z}}           \def\zb{{\Bbb Z}}            \def\zzf{{\bf Z}}

%Alphabet gothique ``\goth" MAJUSCULE   %Alphabet gothique ``\goth" minuscule
\def\Ag{{\goth A}}                      \def\ag{{\goth a}}
\def\Bg{{\goth B}}                      \def\bg{{\goth b}}
\def\Cg{{\goth C}}                      \def\cg{{\goth c}}
\def\Dg{{\goth D}}                      \def\dg{{\goth d}}
\def\Eg{{\goth E}}                      \def\eg{{\goth e}}
\def\Fg{{\goth F}}                      \def\fg{{\goth f}}
\def\Gg{{\goth G}}                      \def\ggg{{\goth g}}
\def\Hg{{\goth H}}                      \def\hg{{\goth h}}
\def\Ig{{\goth I}}                      \def\ig{{\goth i}}
\def\Jg{{\goth J}}                      \def\jg{{\goth j}}
\def\Kg{{\goth K}}                      \def\kg{{\goth k}}
\def\Lg{{\goth L}}                      \def\lgg{{\goth l}}
\def\Mg{{\goth M}}                      \def\mg{{\goth m}}
\def\Ng{{\goth N}}                      \def\ng{{\goth n}}
\def\Og{{\goth O}}                      \def\og{{\goth o}}
\def\Pg{{\goth P}}                      \def\pg{{\goth p}}
\def\Qg{{\goth Q}}                      \def\qg{{\goth q}}
\def\Rg{{\goth R}}                      \def\rg{{\goth r}}
\def\Sg{{\goth S}}                      \def\sg{{\goth s}}
\def\Tg{{\goth T}}                      \def\tg{{\goth t}}
\def\Ug{{\goth U}}                      \def\ug{{\goth u}}                      
\def\Vg{{\goth V}}                      \def\vg{{\goth v}}
\def\Wg{{\goth W}}                      \def\wg{{\goth w}}
\def\Xg{{\goth X}}                      \def\xg{{\goth x}}
\def\Yg{{\goth Y}}                      \def\yg{{\goth y}}
\def\Zg{{\goth Z}}                      \def\zg{{\goth z}}

% boldmath.tex : macros pour definir les caract{\`e}res de maths gras. attention 
% ne marche qu'avec les polices de l'ams...
\font\tenmib=cmmib10 % math italic
%\font\preloaded=cmmib9
%\font\preloaded=cmmib8
\font\sevenmib=cmmib7
%\font\preloaded=cmmib6
\font\fivemib=cmmib5
\expandafter\chardef\csname pre boldmath.tex at\endcsname=\the\catcode`\@
\catcode`\@=11
\def\hexanumber@#1{\ifcase#1 0\or 1\or 2\or 3\or 4\or 5\or 6\or 7\or 8\or
 9\or A\or B\or C\or D\or E\or F\fi}

\skewchar\tenmib='177 \skewchar\sevenmib='177 \skewchar\fivemib='177

\newfam\mibfam  \def\mib{\fam\mibfam\tenmib} % \mib is family \mibfam
\textfont\mibfam=\tenmib \scriptfont\mibfam=\sevenmib
\scriptscriptfont\mibfam=\fivemib
\def\mib@hex{\hexanumber@\mibfam}
\mathchardef\bfalpha="0\mib@hex 0B
\mathchardef\bfbeta="0\mib@hex 0C
\mathchardef\bfgamma="0\mib@hex 0D
\mathchardef\bfdelta="0\mib@hex 0E
\mathchardef\bfepsilon="0\mib@hex 0F
\mathchardef\bfzeta="0\mib@hex 10
\mathchardef\bfeta="0\mib@hex 11
\mathchardef\bftheta="0\mib@hex 12
\mathchardef\bfiota="0\mib@hex 13
\mathchardef\bfkappa="0\mib@hex 14
\mathchardef\bflambda="0\mib@hex 15
\mathchardef\bfmu="0\mib@hex 16
\mathchardef\bfnu="0\mib@hex 17
\mathchardef\bfxi="0\mib@hex 18
\mathchardef\bfpi="0\mib@hex 19
\mathchardef\bfrho="0\mib@hex 1A
\mathchardef\bfsigma="0\mib@hex 1B
\mathchardef\bftau="0\mib@hex 1C
\mathchardef\bfupsilon="0\mib@hex 1D
\mathchardef\bfphi="0\mib@hex 1E
\mathchardef\bfchi="0\mib@hex 1F
\mathchardef\bfpsi="0\mib@hex 20
\mathchardef\bfomega="0\mib@hex 21
\mathchardef\bfvarepsilon="0\mib@hex 22
\mathchardef\bfvartheta="0\mib@hex 23
\mathchardef\bfvarpi="0\mib@hex 24
\mathchardef\bfvarrho="0\mib@hex 25
\mathchardef\bfvarsigma="0\mib@hex 26
\mathchardef\bfvarphi="0\mib@hex 27
\mathchardef\bfimath="0\mib@hex 7B
\mathchardef\bfjmath="0\mib@hex 7C
\mathchardef\bfell="0\mib@hex 60
\mathchardef\bfwp="0\mib@hex 7D
\mathchardef\bfpartial="0\mib@hex 40
\mathchardef\bfflat="0\mib@hex 5B
\mathchardef\bfnatural="0\mib@hex 5C
\mathchardef\bfsharp="0\mib@hex 5D
\mathchardef\bftriangleleft="2\mib@hex 2F
\mathchardef\bftriangleright="2\mib@hex 2E
\mathchardef\bfstar="2\mib@hex 3F
\mathchardef\bfsmile="3\mib@hex 5E
\mathchardef\bffrown="3\mib@hex 5F
\mathchardef\bfleftharpoonup="3\mib@hex 28
\mathchardef\bfleftharpoondown="3\mib@hex 29
\mathchardef\bfrightharpoonup="3\mib@hex 2A
\mathchardef\bfrightharpoondown="3\mib@hex 2B
\mathchardef\bflhook="3\mib@hex 2C %\def\hookrightarrow{\lhook\joinrel\rightarrow}
\mathchardef\bfrhook="3\mib@hex 2D %\def\hookleftarrow{\leftarrow\joinrel\rhook}
\mathchardef\bfldotp="6\mib@hex 3A % ldot as a punctuation mark
\catcode`\@=\csname pre boldmath.tex at\endcsname
% fin de boldmath
%% debut du texte a proprement parler