Lexicon.read_indexname/nat/variable;
authorwenzelm
Mon Aug 13 18:10:22 2007 +0200 (2007-08-13)
changeset 24244d7ee11ba1534
parent 24243 08db58fd6374
child 24245 4ffeb1dd048a
Lexicon.read_indexname/nat/variable;
src/Pure/Isar/args.ML
src/Pure/Isar/rule_cases.ML
src/Pure/ProofGeneral/proof_general_emacs.ML
src/Pure/ProofGeneral/proof_general_pgip.ML
src/Pure/Thy/html.ML
src/Pure/tactic.ML
     1.1 --- a/src/Pure/Isar/args.ML	Mon Aug 13 18:10:20 2007 +0200
     1.2 +++ b/src/Pure/Isar/args.ML	Mon Aug 13 18:10:22 2007 +0200
     1.3 @@ -280,9 +280,9 @@
     1.4  val symbol = symbolic >> sym_of;
     1.5  val liberal_name = symbol || name;
     1.6  
     1.7 -val nat = some_ident Syntax.read_nat;
     1.8 +val nat = some_ident Lexicon.read_nat;
     1.9  val int = Scan.optional ($$$ "-" >> K ~1) 1 -- nat >> op *;
    1.10 -val var = some_ident Syntax.read_variable;
    1.11 +val var = some_ident Lexicon.read_variable;
    1.12  
    1.13  
    1.14  (* enumerations *)
     2.1 --- a/src/Pure/Isar/rule_cases.ML	Mon Aug 13 18:10:20 2007 +0200
     2.2 +++ b/src/Pure/Isar/rule_cases.ML	Mon Aug 13 18:10:22 2007 +0200
     2.3 @@ -217,7 +217,7 @@
     2.4    (case AList.lookup (op =) (Thm.get_tags th) (consumes_tagN) of
     2.5      NONE => NONE
     2.6    | SOME s =>
     2.7 -      (case Syntax.read_nat s of SOME n => SOME n
     2.8 +      (case Lexicon.read_nat s of SOME n => SOME n
     2.9        | _ => raise THM ("Malformed 'consumes' tag of theorem", 0, [th])));
    2.10  
    2.11  fun get_consumes th = the_default 0 (lookup_consumes th);
     3.1 --- a/src/Pure/ProofGeneral/proof_general_emacs.ML	Mon Aug 13 18:10:20 2007 +0200
     3.2 +++ b/src/Pure/ProofGeneral/proof_general_emacs.ML	Mon Aug 13 18:10:22 2007 +0200
     3.3 @@ -72,7 +72,7 @@
     3.4    | SOME x' => tagit skolem_tag x');
     3.5  
     3.6  fun var_or_skolem s =
     3.7 -  (case Syntax.read_variable s of
     3.8 +  (case Lexicon.read_variable s of
     3.9      SOME (x, i) =>
    3.10        (case try Name.dest_skolem x of
    3.11          NONE => tagit var_tag s
     4.1 --- a/src/Pure/ProofGeneral/proof_general_pgip.ML	Mon Aug 13 18:10:20 2007 +0200
     4.2 +++ b/src/Pure/ProofGeneral/proof_general_pgip.ML	Mon Aug 13 18:10:22 2007 +0200
     4.3 @@ -86,7 +86,7 @@
     4.4    | SOME x' => tagit skolem_tag x');
     4.5  
     4.6  fun var_or_skolem s =
     4.7 -  (case Syntax.read_variable s of
     4.8 +  (case Lexicon.read_variable s of
     4.9      SOME (x, i) =>
    4.10        (case try Name.dest_skolem x of
    4.11          NONE => tagit var_tag s
     5.1 --- a/src/Pure/Thy/html.ML	Mon Aug 13 18:10:20 2007 +0200
     5.2 +++ b/src/Pure/Thy/html.ML	Mon Aug 13 18:10:22 2007 +0200
     5.3 @@ -250,7 +250,7 @@
     5.4    | SOME x' => style "skolem" x');
     5.5  
     5.6  fun var_or_skolem s =
     5.7 -  (case Syntax.read_variable s of
     5.8 +  (case Lexicon.read_variable s of
     5.9      SOME (x, i) =>
    5.10        (case try Name.dest_skolem x of
    5.11          NONE => style "var" s
     6.1 --- a/src/Pure/tactic.ML	Mon Aug 13 18:10:20 2007 +0200
     6.2 +++ b/src/Pure/tactic.ML	Mon Aug 13 18:10:22 2007 +0200
     6.3 @@ -245,7 +245,7 @@
     6.4  end;
     6.5  
     6.6  fun lift_inst_rule (st, i, sinsts, rule) = lift_inst_rule'
     6.7 -  (st, i, map (apfst Syntax.read_indexname) sinsts, rule);
     6.8 +  (st, i, map (apfst Lexicon.read_indexname) sinsts, rule);
     6.9  
    6.10  (*
    6.11  Like lift_inst_rule but takes terms, not strings, where the terms may contain