1 (**************************************************************************)
4 (* ||A|| A project by Andrea Asperti *)
6 (* ||I|| Developers: *)
7 (* ||T|| The HELM team. *)
8 (* ||A|| http://helm.cs.unibo.it *)
10 (* \ / This file is distributed under the terms of the *)
11 (* v GNU General Public License Version 2 *)
13 (**************************************************************************)
15 (* NOTATION FOR THE LAMBDA CALCULUS *******************************************)
19 notation "hvbox(a break ≅ b)"
20 non associative with precedence 45
23 notation "hvbox(a break (≅ ^ term 90 c) b)"
24 non associative with precedence 45
27 (* lifting, substitution *)
29 notation "hvbox(M break [ l ])"
30 non associative with precedence 90
35 notation "hvbox(〚term 90 T〛)"
36 non associative with precedence 50
39 notation "hvbox(〚term 90 T〛 break _ [term 90 E])"
40 non associative with precedence 50
43 notation "hvbox(〚term 90 T〛 break _ [term 90 E1 break , term 90 E2])"
44 non associative with precedence 50
45 for @{'IInt2 $T $E1 $E2}.
47 notation "hvbox(《term 90 T》)"
48 non associative with precedence 50
51 notation "hvbox(《term 90 T》 break _ [term 90 E])"
52 non associative with precedence 50
55 notation "hvbox(《term 90 T》 break _ [term 90 E1 break , term 90 E2])"
56 non associative with precedence 50
57 for @{'EInt2 $T $E1 $E2}.