PccFor d "" true false
-GROUND NOTATION, GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ
+GROUND NOTATION
RELATIONS
FUNCTIONS
LOGIC
| "FUNCTIONS" :: tl -> k T.OK ("FUNCTIONS" :: outs) tl
| "RELATIONS" :: tl -> k T.OK ("RELATIONS" :: outs) tl
| "GROUND" :: "NOTATION" :: tl -> k T.OK ("NOTATION" :: "GROUND" :: outs) tl
- | "GENERAL" :: "NOTATION" :: "USED" :: "BY" :: "THE" :: "FORMAL" :: "SYSTEM" :: "\206\187\206\180" :: tl -> k T.OK ("NOTATION" :: "GROUND" :: outs) tl
| _ -> k T.OO outs ins
let main =
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "hvbox( l1 @@ break l2 )"
right associative with precedence 47
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "hvbox( f @❨ break term 46 a ❩ )"
non associative with precedence 60
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "hvbox( 𝐁❨ term 46 l, break term 46 h ❩ )"
non associative with precedence 90
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation < "hvbox( Ⓔ )"
- non associative with precedence 55
- for @{ 'CircledE $S }.
+ non associative with precedence 55
+ for @{ 'CircledE $S }.
notation > "hvbox( Ⓔ )"
- non associative with precedence 55
- for @{ 'CircledE ? }.
+ non associative with precedence 55
+ for @{ 'CircledE ? }.
notation > "hvbox( Ⓔ{ term 46 C } )"
- non associative with precedence 55
- for @{ 'CircledE $S }.
+ non associative with precedence 55
+ for @{ 'CircledE $S }.
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "hvbox( f2 ~∘ break f1 )"
right associative with precedence 60
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "◊"
non associative with precedence 55
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "hvbox( ↓ term 70 T )"
- non associative with precedence 70
- for @{ 'DownArrow $T }.
+ non associative with precedence 70
+ for @{ 'DownArrow $T }.
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation < "hvbox( ⫰ term 46 a )"
- non associative with precedence 46
- for @{ 'DownSpoon $S $a }.
+ non associative with precedence 46
+ for @{ 'DownSpoon $S $a }.
notation > "hvbox( ⫰ term 46 a )"
- non associative with precedence 46
- for @{ 'DownSpoon ? $a }.
+ non associative with precedence 46
+ for @{ 'DownSpoon ? $a }.
notation > "hvbox( ⫰{ term 46 S } break term 46 a )"
- non associative with precedence 46
- for @{ 'DownSpoon $S $a }.
+ non associative with precedence 46
+ for @{ 'DownSpoon $S $a }.
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation < "hvbox( ⫰*[ break term 46 n ] break term 46 a )"
- non associative with precedence 46
- for @{ 'DownSpoonStar $S $n $a }.
+ non associative with precedence 46
+ for @{ 'DownSpoonStar $S $n $a }.
notation > "hvbox( ⫰*[ break term 46 n ] break term 46 a )"
- non associative with precedence 46
- for @{ 'DownSpoonStar ? $n $a }.
+ non associative with precedence 46
+ for @{ 'DownSpoonStar ? $n $a }.
notation > "hvbox( ⫰*{ term 46 S }[ break term 46 n ] break term 46 a )"
- non associative with precedence 46
- for @{ 'DownSpoonStar $S $n $a }.
+ non associative with precedence 46
+ for @{ 'DownSpoonStar $S $n $a }.
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "hvbox( ⫱ term 46 T )"
- non associative with precedence 46
- for @{ 'DropPred $T }.
+ non associative with precedence 46
+ for @{ 'DropPred $T }.
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "hvbox( ⫱ *[ term 46 n ] break term 46 T )"
- non associative with precedence 46
- for @{ 'DropPreds $n $T }.
+ non associative with precedence 46
+ for @{ 'DropPreds $n $T }.
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation < "hvbox( f ^ break x )"
left associative with precedence 75
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "hvbox( 𝐈𝐝 )"
- non associative with precedence 90
- for @{ 'Identity }.
+ non associative with precedence 90
+ for @{ 'Identity }.
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "∞"
- non associative with precedence 55
- for @{ 'Infinity }.
+ non associative with precedence 55
+ for @{ 'Infinity }.
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "Ⓕ"
non associative with precedence 55
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "𝟏"
non associative with precedence 55
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "𝟙𝟘"
- non associative with precedence 55
- for @{ 'OneZero }.
+ non associative with precedence 55
+ for @{ 'OneZero }.
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation < "hvbox( hd ⨮ break tl )"
right associative with precedence 47
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "hvbox( ❨ term 46 hd1, break term 46 hd2 ❩; break term 46 tl )"
non associative with precedence 47
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "hvbox ( 〈 term 46 x1, break term 46 x2 , break term 46 x3, break term 46 x4 〉 )"
non associative with precedence 55
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "𝟐"
non associative with precedence 55
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "hvbox( 𝐔 ❨ break term 46 a ❩ )"
non associative with precedence 90
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "hvbox( ↑ term 70 T )"
- non associative with precedence 70
- for @{ 'UpArrow $T }.
+ non associative with precedence 70
+ for @{ 'UpArrow $T }.
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "hvbox( ↑*[ term 46 n ] break term 70 T )"
- non associative with precedence 70
- for @{ 'UpArrowStar $n $T }.
+ non associative with precedence 70
+ for @{ 'UpArrowStar $n $T }.
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "hvbox( ↕* term 46 T )"
- non associative with precedence 46
- for @{ 'UpDownArrowStar $T }.
+ non associative with precedence 46
+ for @{ 'UpDownArrowStar $T }.
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "hvbox( ⫯ term 46 T )"
- non associative with precedence 46
- for @{ 'UpSpoon $T }.
+ non associative with precedence 46
+ for @{ 'UpSpoon $T }.
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "hvbox( ⫯*[ term 46 n ] break term 46 T )"
- non associative with precedence 46
- for @{ 'UpSpoonStar $n $T }.
+ non associative with precedence 46
+ for @{ 'UpSpoonStar $n $T }.
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "Ⓣ"
non associative with precedence 55
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "𝟎"
non associative with precedence 55
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "𝟘𝟙"
- non associative with precedence 55
- for @{ 'ZeroOne }.
+ non associative with precedence 55
+ for @{ 'ZeroOne }.
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "𝟘𝟘"
- non associative with precedence 55
- for @{ 'ZeroZero }.
+ non associative with precedence 55
+ for @{ 'ZeroZero }.
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation < "hvbox( f1 ≐ break term 46 f2 )"
- non associative with precedence 45
- for @{ 'DotEq $A $B $f1 $f2 }.
+ non associative with precedence 45
+ for @{ 'DotEq $A $B $f1 $f2 }.
notation > "hvbox( f1 ≐ break term 46 f2 )"
- non associative with precedence 45
- for @{ 'DotEq ? ? $f1 $f2 }.
+ non associative with precedence 45
+ for @{ 'DotEq ? ? $f1 $f2 }.
notation > "hvbox( f1 ≐{ break term 46 A, break term 46 B } break term 46 f2 )"
- non associative with precedence 45
- for @{ 'DotEq $A $B $f1 $f2 }.
+ non associative with precedence 45
+ for @{ 'DotEq $A $B $f1 $f2 }.
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "hvbox( f1 ≡ break term 46 f2 )"
- non associative with precedence 45
- for @{ 'IdEq $f1 $f2 }.
+ non associative with precedence 45
+ for @{ 'IdEq $f1 $f2 }.
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "hvbox( 𝛀❪ term 46 f ❫ )"
- non associative with precedence 45
- for @{ 'IsDivergent $f }.
+ non associative with precedence 45
+ for @{ 'IsDivergent $f }.
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "hvbox( 𝐅❪ term 46 f ❫ )"
- non associative with precedence 45
- for @{ 'IsFinite $f }.
+ non associative with precedence 45
+ for @{ 'IsFinite $f }.
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "hvbox( 𝐈❪ term 46 f ❫ )"
- non associative with precedence 45
- for @{ 'IsIdentity $f }.
+ non associative with precedence 45
+ for @{ 'IsIdentity $f }.
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "hvbox( 𝐌❪ term 46 n, break term 46 c ❫ )"
- non associative with precedence 45
- for @{ 'IsM $n $c }.
+ non associative with precedence 45
+ for @{ 'IsM $n $c }.
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "hvbox( 𝐓❪ term 46 f ❫ )"
- non associative with precedence 45
- for @{ 'IsT $f }.
+ non associative with precedence 45
+ for @{ 'IsT $f }.
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "hvbox( 𝐓❪ term 46 n, break term 46 c ❫ )"
- non associative with precedence 45
- for @{ 'IsT $n $c }.
+ non associative with precedence 45
+ for @{ 'IsT $n $c }.
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "hvbox( 𝐔❪ term 46 f ❫ )"
- non associative with precedence 45
- for @{ 'IsUniform $f }.
+ non associative with precedence 45
+ for @{ 'IsUniform $f }.
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "hvbox( f1 ∥ break term 46 f2 )"
- non associative with precedence 45
- for @{ 'Parallel $f1 $f2 }.
+ non associative with precedence 45
+ for @{ 'Parallel $f1 $f2 }.
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "hvbox( f1 ⊚ break term 46 f2 ≘ break term 46 f )"
- non associative with precedence 45
- for @{ 'RAfter $f1 $f2 $f }.
+ non associative with precedence 45
+ for @{ 'RAfter $f1 $f2 $f }.
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "hvbox( @❪ term 46 T1 , break term 46 f ❫ ≘ break term 46 T2 )"
- non associative with precedence 45
- for @{ 'RAt $T1 $f $T2 }.
+ non associative with precedence 45
+ for @{ 'RAt $T1 $f $T2 }.
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "hvbox( f1 ~⊚ break term 46 f2 ≘ break term 46 f )"
- non associative with precedence 45
- for @{ 'RCoAfter $f1 $f2 $f }.
+ non associative with precedence 45
+ for @{ 'RCoAfter $f1 $f2 $f }.
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "hvbox( 𝐂❪ term 46 f ❫ ≘ break term 46 n )"
- non associative with precedence 45
- for @{ 'RCoLength $f $n }.
+ non associative with precedence 45
+ for @{ 'RCoLength $f $n }.
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation < "hvbox( v1 ≗ break term 46 v2 )"
- non associative with precedence 45
- for @{ 'RingEq $M $v1 $v2 }.
+ non associative with precedence 45
+ for @{ 'RingEq $M $v1 $v2 }.
notation > "hvbox( v1 ≗ break term 46 v2 )"
- non associative with precedence 45
- for @{ 'RingEq ? $v1 $v2 }.
+ non associative with precedence 45
+ for @{ 'RingEq ? $v1 $v2 }.
notation > "hvbox( v1 ≗{ break term 46 M } break term 46 v2 )"
- non associative with precedence 45
- for @{ 'RingEq $M $v1 $v2 }.
+ non associative with precedence 45
+ for @{ 'RingEq $M $v1 $v2 }.
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "hvbox( L1 ⋒ break term 46 L2 ≘ break term 46 L )"
- non associative with precedence 45
- for @{ 'RIntersection $L1 $L2 $L }.
+ non associative with precedence 45
+ for @{ 'RIntersection $L1 $L2 $L }.
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "hvbox( T1 ▭ break term 46 T2 ≘ break term 46 T )"
- non associative with precedence 45
- for @{ 'RMinus $T1 $T2 $T }.
+ non associative with precedence 45
+ for @{ 'RMinus $T1 $T2 $T }.
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "hvbox( L1 ⋓ break term 46 L2 ≘ break term 46 L )"
- non associative with precedence 45
- for @{ 'RUnion $L1 $L2 $L }.
+ non associative with precedence 45
+ for @{ 'RUnion $L1 $L2 $L }.
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation > "hvbox(∧∧ term 34 P0 break & term 34 P1)"
- non associative with precedence 35
- for @{ 'and $P0 $P1 }.
+ non associative with precedence 35
+ for @{ 'and $P0 $P1 }.
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "⊥"
non associative with precedence 19
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation > "hvbox(∨∨ term 29 P0 break | term 29 P1)"
- non associative with precedence 30
- for @{ 'or $P0 $P1 }.
+ non associative with precedence 30
+ for @{ 'or $P0 $P1 }.
(* *)
(**************************************************************************)
-(* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
+(* GROUND NOTATION **********************************************************)
notation "⊤"
non associative with precedence 19