src/Pure/Isar/args.ML
changeset 45290 f599ac41e7f5
parent 44357 5f5649ac8235
child 48992 0518bf89c777
equal deleted inserted replaced
45289:25e9e7f527b4 45290:f599ac41e7f5
    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)));