]> matita.cs.unibo.it Git - helm.git/blob - matita/components/binaries/matex/test/ground_1.sty
- matex: minor improvements
[helm.git] / matita / components / binaries / matex / test / ground_1.sty
1 \NeedsTeXFormat{LaTeX2e}[1995/12/01]
2 \ProvidesPackage{ground_1}[2016/06/21 Notation for "cic:/matita/lambdadelta/ground_1/"]
3 \RequirePackage{matex}
4 \ExecuteOptions{}
5 \ProcessOptions*
6
7 \makeatletter
8
9 \newcommand*\ld@cm[1]{\mathpunct{,}}
10 \newcommand*\ld@oa[1]{\mathopen{\langle}}
11 \newcommand*\ld@ca[1]{\mathclose{\rangle}}
12
13 \newcommand*\ld@append[1]{\setbinlink{\oplus}{#1}{}}
14 \newcommand*\ld@cocons[1]{\setbinlink{\opluslhrim}{#1}{}}
15 \newcommand*\ld@cons[1]{\setbinlink{\oplusrhrim}{#1}{}}
16 \newcommand*\ld@funlt[1]{\setbinlink{\olessthan}{#1}{}}
17
18 \newcommand*\ld@tuple@b[3]{\ld@oa{#1}#2\ld@cm{#1}#3\ld@ca{#1}}
19
20 \newcommand*\Append[3]{#2\ld@append{#1}#3}
21 \newcommand*\CoConsB[4]{#2\ld@cocons{#1}\ld@tuple@b{#1}{#3}{#4}}
22 \newcommand*\ConsB[4]{\ld@tuple@b{#1}{#2}{#3}\ld@cons{#1}#4}
23 \newcommand*\FunLt[3]{#2\ld@funlt{#1}#3}
24
25 \makeatother
26
27 \endinput