matita/components/binaries/matex/test/matex.sty

   1 \makeatletter
   2
   3 \newcommand*\setlabel[1]{\protected@edef\@currentlabel{#1}}
   4
   5 \newcommand*\ObjLabel[1]{\label{obj:#1}}
   6 \newcommand*\ObjRef[1]{\ref{obj:#1}}
   7
   8 \newtheorem{prop}{Proposition}
   9
  10 \newcommand*\Object[3]{\begin{prop}[#1]\hfil\\\setlabel{#1}\ObjLabel{#2}#3\end{prop}}
  11
  12 \newcommand*\ma@tmp{}
  13 \newcommand*\ma@skip[4]{}
  14 \newcommand*\ma@next[5]{\def\ma@tmp{#5}\ifx\ma@tmp\empty #4\let\ma@tmp=\ma@skip\else #1#2{#5}\let\ma@tmp=\ma@next\fi\ma@tmp #3#2#3#4}
  15
  16 \newcommand*\ma@space{ }
  17 \newcommand*\ma@arg[1]{#1}
  18
  19 \newcommand*\PROP{PROP}
  20 \newcommand*\CROP[1]{CROP}
  21 \newcommand*\TYPE[1]{TYPE}
  22 \newcommand*\LREF[2]{#1}
  23 \newcommand*\GREF[2]{#1}
  24 \newcommand*\ABBR[3]{(D #1 #2 #3) }
  25 \newcommand*\ABST[2]{(I #1 #2) }
  26 \newcommand*\PROD[2]{(P #1 #2) }
  27 \newcommand*\APPL{(A)\ma@next\ma@space\ma@arg\ma@space\relax}
  28 \newcommand*\CASE[3]{(C #1 #2 #3)\ma@next\ma@space\ma@arg\ma@space\relax}
  29
  30 \newcommand*\ma@with{ with }
  31 \newcommand*\ma@comma{, }
  32 \newcommand*\ma@stop{.\vskip10pt}
  33
  34 \newcommand*\DECL[3]{\textbf{#1} : #3\vskip10pt}
  35 \newcommand*\PRIM{}
  36 \newcommand*\BODY[1]{is #1\vskip10pt}
  37 \newcommand*\STEP[1]{by #1\ma@next\ma@with\ma@arg\ma@comma\ma@stop}
  38 \newcommand*\DEST[1]{by cases on #1\ma@next\ma@with\ma@arg\ma@comma\ma@stop}
  39
  40 \makeatother