35 val widthN: string |
35 val widthN: string |
36 val breakN: string val break: int -> T |
36 val breakN: string val break: int -> T |
37 val fbreakN: string val fbreak: T |
37 val fbreakN: string val fbreak: T |
38 val tclassN: string val tclass: string -> T |
38 val tclassN: string val tclass: string -> T |
39 val tyconN: string val tycon: string -> T |
39 val tyconN: string val tycon: string -> T |
|
40 val fixed_declN: string val fixed_decl: string -> T |
40 val fixedN: string val fixed: string -> T |
41 val fixedN: string val fixed: string -> T |
41 val constN: string val const: string -> T |
42 val constN: string val const: string -> T |
|
43 val fact_declN: string val fact_decl: string -> T |
42 val factN: string val fact: string -> T |
44 val factN: string val fact: string -> T |
43 val dynamic_factN: string val dynamic_fact: string -> T |
45 val dynamic_factN: string val dynamic_fact: string -> T |
|
46 val local_fact_declN: string val local_fact_decl: string -> T |
44 val local_factN: string val local_fact: string -> T |
47 val local_factN: string val local_fact: string -> T |
45 val tfreeN: string val tfree: T |
48 val tfreeN: string val tfree: T |
46 val tvarN: string val tvar: T |
49 val tvarN: string val tvar: T |
47 val freeN: string val free: T |
50 val freeN: string val free: T |
48 val skolemN: string val skolem: T |
51 val skolemN: string val skolem: T |
177 |
180 |
178 (* logical entities *) |
181 (* logical entities *) |
179 |
182 |
180 val (tclassN, tclass) = markup_string "tclass" nameN; |
183 val (tclassN, tclass) = markup_string "tclass" nameN; |
181 val (tyconN, tycon) = markup_string "tycon" nameN; |
184 val (tyconN, tycon) = markup_string "tycon" nameN; |
|
185 val (fixed_declN, fixed_decl) = markup_string "fixed_decl" nameN; |
182 val (fixedN, fixed) = markup_string "fixed" nameN; |
186 val (fixedN, fixed) = markup_string "fixed" nameN; |
183 val (constN, const) = markup_string "const" nameN; |
187 val (constN, const) = markup_string "const" nameN; |
|
188 val (fact_declN, fact_decl) = markup_string "fact_decl" nameN; |
184 val (factN, fact) = markup_string "fact" nameN; |
189 val (factN, fact) = markup_string "fact" nameN; |
185 val (dynamic_factN, dynamic_fact) = markup_string "dynamic_fact" nameN; |
190 val (dynamic_factN, dynamic_fact) = markup_string "dynamic_fact" nameN; |
|
191 val (local_fact_declN, local_fact_decl) = markup_string "local_fact_decl" nameN; |
186 val (local_factN, local_fact) = markup_string "local_fact" nameN; |
192 val (local_factN, local_fact) = markup_string "local_fact" nameN; |
187 |
193 |
188 |
194 |
189 (* inner syntax *) |
195 (* inner syntax *) |
190 |
196 |