equal
deleted
inserted
replaced
10 type src |
10 type src |
11 val src: (string * Token.T list) * Position.T -> src |
11 val src: (string * Token.T list) * Position.T -> src |
12 val dest_src: src -> (string * Token.T list) * Position.T |
12 val dest_src: src -> (string * Token.T list) * Position.T |
13 val pretty_src: Proof.context -> src -> Pretty.T |
13 val pretty_src: Proof.context -> src -> Pretty.T |
14 val map_name: (string -> string) -> src -> src |
14 val map_name: (string -> string) -> src -> src |
15 val morph_values: morphism -> src -> src |
15 val transform_values: morphism -> src -> src |
16 val assignable: src -> src |
16 val assignable: src -> src |
17 val closure: src -> src |
17 val closure: src -> src |
18 val context: Proof.context context_parser |
18 val context: Proof.context context_parser |
19 val theory: theory context_parser |
19 val theory: theory context_parser |
20 val $$$ : string -> string parser |
20 val $$$ : string -> string parser |
94 fun map_args f (Src ((s, args), pos)) = Src ((s, map f args), pos); |
94 fun map_args f (Src ((s, args), pos)) = Src ((s, map f args), pos); |
95 |
95 |
96 |
96 |
97 (* values *) |
97 (* values *) |
98 |
98 |
99 fun morph_values phi = map_args (Token.map_value |
99 fun transform_values phi = map_args (Token.map_value |
100 (fn Token.Text s => Token.Text s |
100 (fn Token.Text s => Token.Text s |
101 | Token.Typ T => Token.Typ (Morphism.typ phi T) |
101 | Token.Typ T => Token.Typ (Morphism.typ phi T) |
102 | Token.Term t => Token.Term (Morphism.term phi t) |
102 | Token.Term t => Token.Term (Morphism.term phi t) |
103 | Token.Fact ths => Token.Fact (Morphism.fact phi ths) |
103 | Token.Fact ths => Token.Fact (Morphism.fact phi ths) |
104 | Token.Attribute att => Token.Attribute (Morphism.transform phi att))); |
104 | Token.Attribute att => Token.Attribute (Morphism.transform phi att))); |