equal
deleted
inserted
replaced
66 val positionN: string val position: T |
66 val positionN: string val position: T |
67 val position_properties: string list |
67 val position_properties: string list |
68 val position_property: Properties.entry -> bool |
68 val position_property: Properties.entry -> bool |
69 val def_name: string -> string |
69 val def_name: string -> string |
70 val notation_mixfixN: string |
70 val notation_mixfixN: string |
|
71 val notation_prefixN: string |
|
72 val notation_postfixN: string |
71 val notation_infixN: string |
73 val notation_infixN: string |
72 val notation_binderN: string |
74 val notation_binderN: string |
73 val notations: string list |
75 val notations: string list |
74 val notationN: string val notation: {kind: string, name: string} -> T |
76 val notationN: string val notation: {kind: string, name: string} -> T |
75 val notation0: T |
77 val notation0: T |
441 |
443 |
442 |
444 |
443 (* notation: mixfix annotations *) |
445 (* notation: mixfix annotations *) |
444 |
446 |
445 val notation_mixfixN = "mixfix"; |
447 val notation_mixfixN = "mixfix"; |
|
448 val notation_prefixN = "prefix"; |
|
449 val notation_postfixN = "postfix"; |
446 val notation_infixN = "infix"; |
450 val notation_infixN = "infix"; |
447 val notation_binderN = "binder"; |
451 val notation_binderN = "binder"; |
448 val notations = [notation_mixfixN, notation_infixN, notation_binderN]; |
452 val notations = |
|
453 [notation_mixfixN, notation_prefixN, notation_postfixN, notation_infixN, notation_binderN]; |
449 |
454 |
450 val notationN = "notation"; |
455 val notationN = "notation"; |
451 fun notation {kind, name} = (notationN, kind_proper kind @ name_proper name); |
456 fun notation {kind, name} = (notationN, kind_proper kind @ name_proper name); |
452 |
457 |
453 val notation0 = (notationN, []); |
458 val notation0 = (notationN, []); |