prefer structure Parse_Spec;
authorwenzelm
Sun May 16 00:02:11 2010 +0200 (2010-05-16)
changeset 36954ef698bd61057
parent 36953 2af1ad9aa1a3
child 36955 226fb165833e
child 36962 5fb251d1c32f
child 36965 67ae217c6b5c
prefer structure Parse_Spec;
src/HOL/Mirabelle/Tools/mirabelle_sledgehammer.ML
src/HOL/Nominal/nominal_primrec.ML
src/HOL/Tools/Function/function_common.ML
src/HOL/Tools/Quotient/quotient_def.ML
src/HOL/Tools/choice_specification.ML
src/HOL/Tools/inductive.ML
src/HOL/Tools/primrec.ML
src/HOL/Tools/recdef.ML
src/HOLCF/Tools/fixrec.ML
src/ZF/Tools/datatype_package.ML
src/ZF/Tools/ind_cases.ML
src/ZF/Tools/induct_tacs.ML
src/ZF/Tools/inductive_package.ML
src/ZF/Tools/primrec_package.ML
     1.1 --- a/src/HOL/Mirabelle/Tools/mirabelle_sledgehammer.ML	Sat May 15 23:40:00 2010 +0200
     1.2 +++ b/src/HOL/Mirabelle/Tools/mirabelle_sledgehammer.ML	Sun May 16 00:02:11 2010 +0200
     1.3 @@ -337,7 +337,7 @@
     1.4      |> Symbol.source {do_recover=false}
     1.5      |> OuterLex.source {do_recover=SOME false} lex Position.start
     1.6      |> OuterLex.source_proper
     1.7 -    |> Source.source OuterLex.stopper (SpecParse.xthms1 >> get) NONE
     1.8 +    |> Source.source OuterLex.stopper (Parse_Spec.xthms1 >> get) NONE
     1.9      |> Source.exhaust
    1.10    end
    1.11  
     2.1 --- a/src/HOL/Nominal/nominal_primrec.ML	Sat May 15 23:40:00 2010 +0200
     2.2 +++ b/src/HOL/Nominal/nominal_primrec.ML	Sun May 16 00:02:11 2010 +0200
     2.3 @@ -410,7 +410,7 @@
     2.4  val _ =
     2.5    OuterSyntax.local_theory_to_proof "nominal_primrec"
     2.6      "define primitive recursive functions on nominal datatypes" OuterKeyword.thy_goal
     2.7 -    (options -- P.fixes -- P.for_fixes -- SpecParse.where_alt_specs
     2.8 +    (options -- P.fixes -- P.for_fixes -- Parse_Spec.where_alt_specs
     2.9        >> (fn ((((invs, fctxt), fixes), params), specs) =>
    2.10          add_primrec_cmd invs fctxt fixes params specs));
    2.11  
     3.1 --- a/src/HOL/Tools/Function/function_common.ML	Sat May 15 23:40:00 2010 +0200
     3.2 +++ b/src/HOL/Tools/Function/function_common.ML	Sun May 16 00:02:11 2010 +0200
     3.3 @@ -355,7 +355,7 @@
     3.4       >> (fn opts => fold apply_opt opts default)
     3.5  in
     3.6    fun function_parser default_cfg =
     3.7 -      config_parser default_cfg -- P.fixes -- SpecParse.where_alt_specs
     3.8 +      config_parser default_cfg -- P.fixes -- Parse_Spec.where_alt_specs
     3.9  end
    3.10  
    3.11  
     4.1 --- a/src/HOL/Tools/Quotient/quotient_def.ML	Sat May 15 23:40:00 2010 +0200
     4.2 +++ b/src/HOL/Tools/Quotient/quotient_def.ML	Sun May 16 00:02:11 2010 +0200
     4.3 @@ -99,7 +99,7 @@
     4.4  
     4.5  val quotdef_parser =
     4.6    Scan.optional quotdef_decl (NONE, NoSyn) -- 
     4.7 -    P.!!! (SpecParse.opt_thm_name ":" -- (P.term --| P.$$$ "is" -- P.term))
     4.8 +    P.!!! (Parse_Spec.opt_thm_name ":" -- (P.term --| P.$$$ "is" -- P.term))
     4.9  end
    4.10  
    4.11  val _ =
     5.1 --- a/src/HOL/Tools/choice_specification.ML	Sat May 15 23:40:00 2010 +0200
     5.2 +++ b/src/HOL/Tools/choice_specification.ML	Sun May 16 00:02:11 2010 +0200
     5.3 @@ -239,7 +239,7 @@
     5.4  
     5.5  val specification_decl =
     5.6    P.$$$ "(" |-- Scan.repeat1 (opt_name -- P.term -- opt_overloaded) --| P.$$$ ")" --
     5.7 -          Scan.repeat1 ((SpecParse.opt_thm_name ":" >> apfst Binding.name_of) -- P.prop)
     5.8 +          Scan.repeat1 ((Parse_Spec.opt_thm_name ":" >> apfst Binding.name_of) -- P.prop)
     5.9  
    5.10  val _ =
    5.11    OuterSyntax.command "specification" "define constants by specification" K.thy_goal
    5.12 @@ -250,7 +250,7 @@
    5.13  val ax_specification_decl =
    5.14      P.name --
    5.15      (P.$$$ "(" |-- Scan.repeat1 (opt_name -- P.term -- opt_overloaded) --| P.$$$ ")" --
    5.16 -           Scan.repeat1 ((SpecParse.opt_thm_name ":" >> apfst Binding.name_of) -- P.prop))
    5.17 +           Scan.repeat1 ((Parse_Spec.opt_thm_name ":" >> apfst Binding.name_of) -- P.prop))
    5.18  
    5.19  val _ =
    5.20    OuterSyntax.command "ax_specification" "define constants by specification" K.thy_goal
     6.1 --- a/src/HOL/Tools/inductive.ML	Sat May 15 23:40:00 2010 +0200
     6.2 +++ b/src/HOL/Tools/inductive.ML	Sun May 16 00:02:11 2010 +0200
     6.3 @@ -977,8 +977,8 @@
     6.4  
     6.5  fun gen_ind_decl mk_def coind =
     6.6    P.fixes -- P.for_fixes --
     6.7 -  Scan.optional SpecParse.where_alt_specs [] --
     6.8 -  Scan.optional (P.$$$ "monos" |-- P.!!! SpecParse.xthms1) []
     6.9 +  Scan.optional Parse_Spec.where_alt_specs [] --
    6.10 +  Scan.optional (P.$$$ "monos" |-- P.!!! Parse_Spec.xthms1) []
    6.11    >> (fn (((preds, params), specs), monos) =>
    6.12        (snd oo gen_add_inductive mk_def true coind preds params specs monos));
    6.13  
    6.14 @@ -995,7 +995,7 @@
    6.15  val _ =
    6.16    OuterSyntax.local_theory "inductive_cases"
    6.17      "create simplified instances of elimination rules (improper)" K.thy_script
    6.18 -    (P.and_list1 SpecParse.specs >> (snd oo inductive_cases));
    6.19 +    (P.and_list1 Parse_Spec.specs >> (snd oo inductive_cases));
    6.20  
    6.21  end;
    6.22  
     7.1 --- a/src/HOL/Tools/primrec.ML	Sat May 15 23:40:00 2010 +0200
     7.2 +++ b/src/HOL/Tools/primrec.ML	Sun May 16 00:02:11 2010 +0200
     7.3 @@ -315,9 +315,10 @@
     7.4        P.name >> pair false) --| P.$$$ ")")) (false, "");
     7.5  
     7.6  val old_primrec_decl =
     7.7 -  opt_unchecked_name -- Scan.repeat1 ((SpecParse.opt_thm_name ":" >> apfst Binding.name_of) -- P.prop);
     7.8 +  opt_unchecked_name --
     7.9 +    Scan.repeat1 ((Parse_Spec.opt_thm_name ":" >> apfst Binding.name_of) -- P.prop);
    7.10  
    7.11 -val primrec_decl = P.opt_target -- P.fixes -- SpecParse.where_alt_specs;
    7.12 +val primrec_decl = P.opt_target -- P.fixes -- Parse_Spec.where_alt_specs;
    7.13  
    7.14  val _ =
    7.15    OuterSyntax.command "primrec" "define primitive recursive functions on datatypes" K.thy_decl
     8.1 --- a/src/HOL/Tools/recdef.ML	Sat May 15 23:40:00 2010 +0200
     8.2 +++ b/src/HOL/Tools/recdef.ML	Sun May 16 00:02:11 2010 +0200
     8.3 @@ -298,7 +298,7 @@
     8.4  
     8.5  val recdef_decl =
     8.6    Scan.optional (P.$$$ "(" -- P.!!! (P.$$$ "permissive" -- P.$$$ ")") >> K false) true --
     8.7 -  P.name -- P.term -- Scan.repeat1 (SpecParse.opt_thm_name ":" -- P.prop)
     8.8 +  P.name -- P.term -- Scan.repeat1 (Parse_Spec.opt_thm_name ":" -- P.prop)
     8.9      -- Scan.option hints
    8.10    >> (fn ((((p, f), R), eqs), src) => #1 o add_recdef p f R (map P.triple_swap eqs) src);
    8.11  
    8.12 @@ -309,7 +309,7 @@
    8.13  
    8.14  val defer_recdef_decl =
    8.15    P.name -- Scan.repeat1 P.prop --
    8.16 -  Scan.optional (P.$$$ "(" |-- P.$$$ "congs" |-- P.!!! (SpecParse.xthms1 --| P.$$$ ")")) []
    8.17 +  Scan.optional (P.$$$ "(" |-- P.$$$ "congs" |-- P.!!! (Parse_Spec.xthms1 --| P.$$$ ")")) []
    8.18    >> (fn ((f, eqs), congs) => #1 o defer_recdef f eqs congs);
    8.19  
    8.20  val _ =
    8.21 @@ -319,7 +319,7 @@
    8.22  val _ =
    8.23    OuterSyntax.local_theory_to_proof' "recdef_tc" "recommence proof of termination condition (TFL)"
    8.24      K.thy_goal
    8.25 -    ((SpecParse.opt_thm_name ":" >> apfst Binding.name_of) -- P.xname --
    8.26 +    ((Parse_Spec.opt_thm_name ":" >> apfst Binding.name_of) -- P.xname --
    8.27          Scan.option (P.$$$ "(" |-- P.nat --| P.$$$ ")")
    8.28        >> (fn ((thm_name, name), i) => recdef_tc thm_name name i));
    8.29  
     9.1 --- a/src/HOLCF/Tools/fixrec.ML	Sat May 15 23:40:00 2010 +0200
     9.2 +++ b/src/HOLCF/Tools/fixrec.ML	Sun May 16 00:02:11 2010 +0200
     9.3 @@ -446,11 +446,11 @@
     9.4  local structure P = OuterParse and K = OuterKeyword in
     9.5  
     9.6  val _ = OuterSyntax.local_theory "fixrec" "define recursive functions (HOLCF)" K.thy_decl
     9.7 -  ((P.opt_keyword "permissive" >> not) -- P.fixes -- SpecParse.where_alt_specs
     9.8 +  ((P.opt_keyword "permissive" >> not) -- P.fixes -- Parse_Spec.where_alt_specs
     9.9      >> (fn ((strict, fixes), specs) => add_fixrec_cmd strict fixes specs));
    9.10  
    9.11  val _ = OuterSyntax.command "fixpat" "define rewrites for fixrec functions" K.thy_decl
    9.12 -  (SpecParse.specs >> (Toplevel.theory o add_fixpat_cmd));
    9.13 +  (Parse_Spec.specs >> (Toplevel.theory o add_fixpat_cmd));
    9.14  
    9.15  end;
    9.16  
    10.1 --- a/src/ZF/Tools/datatype_package.ML	Sat May 15 23:40:00 2010 +0200
    10.2 +++ b/src/ZF/Tools/datatype_package.ML	Sun May 16 00:02:11 2010 +0200
    10.3 @@ -431,9 +431,9 @@
    10.4  val datatype_decl =
    10.5    (Scan.optional ((P.$$$ "\<subseteq>" || P.$$$ "<=") |-- P.!!! P.term) "") --
    10.6    P.and_list1 (P.term -- (P.$$$ "=" |-- P.enum1 "|" con_decl)) --
    10.7 -  Scan.optional (P.$$$ "monos" |-- P.!!! SpecParse.xthms1) [] --
    10.8 -  Scan.optional (P.$$$ "type_intros" |-- P.!!! SpecParse.xthms1) [] --
    10.9 -  Scan.optional (P.$$$ "type_elims" |-- P.!!! SpecParse.xthms1) []
   10.10 +  Scan.optional (P.$$$ "monos" |-- P.!!! Parse_Spec.xthms1) [] --
   10.11 +  Scan.optional (P.$$$ "type_intros" |-- P.!!! Parse_Spec.xthms1) [] --
   10.12 +  Scan.optional (P.$$$ "type_elims" |-- P.!!! Parse_Spec.xthms1) []
   10.13    >> (Toplevel.theory o mk_datatype);
   10.14  
   10.15  val coind_prefix = if coind then "co" else "";
    11.1 --- a/src/ZF/Tools/ind_cases.ML	Sat May 15 23:40:00 2010 +0200
    11.2 +++ b/src/ZF/Tools/ind_cases.ML	Sun May 16 00:02:11 2010 +0200
    11.3 @@ -69,7 +69,7 @@
    11.4  val _ =
    11.5    OuterSyntax.command "inductive_cases"
    11.6      "create simplified instances of elimination rules (improper)" K.thy_script
    11.7 -    (P.and_list1 (SpecParse.opt_thm_name ":" -- Scan.repeat1 P.prop)
    11.8 +    (P.and_list1 (Parse_Spec.opt_thm_name ":" -- Scan.repeat1 P.prop)
    11.9        >> (Toplevel.theory o inductive_cases));
   11.10  
   11.11  end;
    12.1 --- a/src/ZF/Tools/induct_tacs.ML	Sat May 15 23:40:00 2010 +0200
    12.2 +++ b/src/ZF/Tools/induct_tacs.ML	Sun May 16 00:02:11 2010 +0200
    12.3 @@ -191,10 +191,10 @@
    12.4  val _ = List.app OuterKeyword.keyword ["elimination", "induction", "case_eqns", "recursor_eqns"];
    12.5  
    12.6  val rep_datatype_decl =
    12.7 -  (P.$$$ "elimination" |-- P.!!! SpecParse.xthm) --
    12.8 -  (P.$$$ "induction" |-- P.!!! SpecParse.xthm) --
    12.9 -  (P.$$$ "case_eqns" |-- P.!!! SpecParse.xthms1) --
   12.10 -  Scan.optional (P.$$$ "recursor_eqns" |-- P.!!! SpecParse.xthms1) []
   12.11 +  (P.$$$ "elimination" |-- P.!!! Parse_Spec.xthm) --
   12.12 +  (P.$$$ "induction" |-- P.!!! Parse_Spec.xthm) --
   12.13 +  (P.$$$ "case_eqns" |-- P.!!! Parse_Spec.xthms1) --
   12.14 +  Scan.optional (P.$$$ "recursor_eqns" |-- P.!!! Parse_Spec.xthms1) []
   12.15    >> (fn (((x, y), z), w) => rep_datatype x y z w);
   12.16  
   12.17  val _ =
    13.1 --- a/src/ZF/Tools/inductive_package.ML	Sat May 15 23:40:00 2010 +0200
    13.2 +++ b/src/ZF/Tools/inductive_package.ML	Sun May 16 00:02:11 2010 +0200
    13.3 @@ -588,11 +588,11 @@
    13.4    (P.$$$ "domains" |-- P.!!! (P.enum1 "+" P.term --
    13.5        ((P.$$$ "\<subseteq>" || P.$$$ "<=") |-- P.term))) --
    13.6    (P.$$$ "intros" |--
    13.7 -    P.!!! (Scan.repeat1 (SpecParse.opt_thm_name ":" -- P.prop))) --
    13.8 -  Scan.optional (P.$$$ "monos" |-- P.!!! SpecParse.xthms1) [] --
    13.9 -  Scan.optional (P.$$$ "con_defs" |-- P.!!! SpecParse.xthms1) [] --
   13.10 -  Scan.optional (P.$$$ "type_intros" |-- P.!!! SpecParse.xthms1) [] --
   13.11 -  Scan.optional (P.$$$ "type_elims" |-- P.!!! SpecParse.xthms1) []
   13.12 +    P.!!! (Scan.repeat1 (Parse_Spec.opt_thm_name ":" -- P.prop))) --
   13.13 +  Scan.optional (P.$$$ "monos" |-- P.!!! Parse_Spec.xthms1) [] --
   13.14 +  Scan.optional (P.$$$ "con_defs" |-- P.!!! Parse_Spec.xthms1) [] --
   13.15 +  Scan.optional (P.$$$ "type_intros" |-- P.!!! Parse_Spec.xthms1) [] --
   13.16 +  Scan.optional (P.$$$ "type_elims" |-- P.!!! Parse_Spec.xthms1) []
   13.17    >> (Toplevel.theory o mk_ind);
   13.18  
   13.19  val _ = OuterSyntax.command (co_prefix ^ "inductive")
    14.1 --- a/src/ZF/Tools/primrec_package.ML	Sat May 15 23:40:00 2010 +0200
    14.2 +++ b/src/ZF/Tools/primrec_package.ML	Sun May 16 00:02:11 2010 +0200
    14.3 @@ -198,7 +198,7 @@
    14.4  
    14.5  val _ =
    14.6    OuterSyntax.command "primrec" "define primitive recursive functions on datatypes" K.thy_decl
    14.7 -    (Scan.repeat1 (SpecParse.opt_thm_name ":" -- P.prop)
    14.8 +    (Scan.repeat1 (Parse_Spec.opt_thm_name ":" -- P.prop)
    14.9        >> (Toplevel.theory o (#1 oo (add_primrec o map P.triple_swap))));
   14.10  
   14.11  end;