command 'print_term_bindings' supersedes 'print_binds';
authorwenzelm
Fri Jun 27 16:04:56 2014 +0200 (2014-06-27)
changeset 57415e721124f1b1e
parent 57414 fe1be2844fda
child 57416 9188d901209d
command 'print_term_bindings' supersedes 'print_binds';
NEWS
etc/isar-keywords-ZF.el
etc/isar-keywords.el
src/Doc/Isar_Ref/Misc.thy
src/Doc/JEdit/JEdit.thy
src/Pure/Isar/isar_syn.ML
src/Pure/Isar/proof_context.ML
src/Pure/Pure.thy
src/Pure/Tools/print_operation.ML
     1.1 --- a/NEWS	Fri Jun 27 15:41:26 2014 +0200
     1.2 +++ b/NEWS	Fri Jun 27 16:04:56 2014 +0200
     1.3 @@ -205,6 +205,9 @@
     1.4  (only makes sense in practice, if outer syntax is delimited
     1.5  differently).
     1.6  
     1.7 +* Command 'print_term_bindings' supersedes 'print_binds' for clarity,
     1.8 +but the latter is retained some time as Proof General legacy.
     1.9 +
    1.10  
    1.11  *** HOL ***
    1.12  
     2.1 --- a/etc/isar-keywords-ZF.el	Fri Jun 27 15:41:26 2014 +0200
     2.2 +++ b/etc/isar-keywords-ZF.el	Fri Jun 27 16:04:56 2014 +0200
     2.3 @@ -147,6 +147,7 @@
     2.4      "print_statement"
     2.5      "print_syntax"
     2.6      "print_tcset"
     2.7 +    "print_term_bindings"
     2.8      "print_theorems"
     2.9      "print_theory"
    2.10      "print_trans_rules"
    2.11 @@ -316,6 +317,7 @@
    2.12      "print_statement"
    2.13      "print_syntax"
    2.14      "print_tcset"
    2.15 +    "print_term_bindings"
    2.16      "print_theorems"
    2.17      "print_theory"
    2.18      "print_trans_rules"
     3.1 --- a/etc/isar-keywords.el	Fri Jun 27 15:41:26 2014 +0200
     3.2 +++ b/etc/isar-keywords.el	Fri Jun 27 16:04:56 2014 +0200
     3.3 @@ -213,6 +213,7 @@
     3.4      "print_state"
     3.5      "print_statement"
     3.6      "print_syntax"
     3.7 +    "print_term_bindings"
     3.8      "print_theorems"
     3.9      "print_theory"
    3.10      "print_trans_rules"
    3.11 @@ -445,6 +446,7 @@
    3.12      "print_state"
    3.13      "print_statement"
    3.14      "print_syntax"
    3.15 +    "print_term_bindings"
    3.16      "print_theorems"
    3.17      "print_theory"
    3.18      "print_trans_rules"
     4.1 --- a/src/Doc/Isar_Ref/Misc.thy	Fri Jun 27 15:41:26 2014 +0200
     4.2 +++ b/src/Doc/Isar_Ref/Misc.thy	Fri Jun 27 16:04:56 2014 +0200
     4.3 @@ -17,7 +17,7 @@
     4.4      @{command_def "thm_deps"}@{text "\<^sup>*"} & : & @{text "context \<rightarrow>"} \\
     4.5      @{command_def "unused_thms"}@{text "\<^sup>*"} & : & @{text "context \<rightarrow>"} \\
     4.6      @{command_def "print_facts"}@{text "\<^sup>*"} & : & @{text "context \<rightarrow>"} \\
     4.7 -    @{command_def "print_binds"}@{text "\<^sup>*"} & : & @{text "context \<rightarrow>"} \\
     4.8 +    @{command_def "print_term_bindings"}@{text "\<^sup>*"} & : & @{text "context \<rightarrow>"} \\
     4.9    \end{matharray}
    4.10  
    4.11    @{rail \<open>
    4.12 @@ -63,8 +63,8 @@
    4.13    current context, both named and unnamed ones; the ``@{text "!"}''
    4.14    option indicates extra verbosity.
    4.15    
    4.16 -  \item @{command "print_binds"} prints all term abbreviations
    4.17 -  present in the context.
    4.18 +  \item @{command "print_term_bindings"} prints all term bindings that
    4.19 +  are present in the context.
    4.20  
    4.21    \item @{command "find_theorems"}~@{text criteria} retrieves facts
    4.22    from the theory or proof context matching all of given search
     5.1 --- a/src/Doc/JEdit/JEdit.thy	Fri Jun 27 15:41:26 2014 +0200
     5.2 +++ b/src/Doc/JEdit/JEdit.thy	Fri Jun 27 16:04:56 2014 +0200
     5.3 @@ -960,8 +960,8 @@
     5.4    The \emph{Query} panel in \emph{Print Context} mode prints information from
     5.5    the theory or proof context, or proof state. See also the Isar commands
     5.6    @{command_ref print_context}, @{command_ref print_cases}, @{command_ref
     5.7 -  print_binds}, @{command_ref print_theorems}, @{command_ref print_state} in
     5.8 -  \cite{isabelle-isar-ref}.
     5.9 +  print_term_bindings}, @{command_ref print_theorems},
    5.10 +  @{command_ref print_state} in \cite{isabelle-isar-ref}.
    5.11  *}
    5.12  
    5.13  
     6.1 --- a/src/Pure/Isar/isar_syn.ML	Fri Jun 27 15:41:26 2014 +0200
     6.2 +++ b/src/Pure/Isar/isar_syn.ML	Fri Jun 27 16:04:56 2014 +0200
     6.3 @@ -897,9 +897,18 @@
     6.4      (Parse_Spec.xthms1 >> Isar_Cmd.thm_deps);
     6.5  
     6.6  val _ =
     6.7 -  Outer_Syntax.improper_command @{command_spec "print_binds"} "print term bindings of proof context"
     6.8 +  Outer_Syntax.improper_command @{command_spec "print_binds"}
     6.9 +    "print term bindings of proof context -- Proof General legacy"
    6.10      (Scan.succeed (Toplevel.unknown_context o
    6.11 -      Toplevel.keep (Pretty.writeln_chunks o Proof_Context.pretty_binds o Toplevel.context_of)));
    6.12 +      Toplevel.keep
    6.13 +        (Pretty.writeln_chunks o Proof_Context.pretty_term_bindings o Toplevel.context_of)));
    6.14 +
    6.15 +val _ =
    6.16 +  Outer_Syntax.improper_command @{command_spec "print_term_bindings"}
    6.17 +    "print term bindings of proof context"
    6.18 +    (Scan.succeed (Toplevel.unknown_context o
    6.19 +      Toplevel.keep
    6.20 +        (Pretty.writeln_chunks o Proof_Context.pretty_term_bindings o Toplevel.context_of)));
    6.21  
    6.22  val _ =
    6.23    Outer_Syntax.improper_command @{command_spec "print_facts"} "print facts of proof context"
     7.1 --- a/src/Pure/Isar/proof_context.ML	Fri Jun 27 15:41:26 2014 +0200
     7.2 +++ b/src/Pure/Isar/proof_context.ML	Fri Jun 27 16:04:56 2014 +0200
     7.3 @@ -161,7 +161,7 @@
     7.4    val generic_revert_abbrev: string -> string -> Context.generic -> Context.generic
     7.5    val print_syntax: Proof.context -> unit
     7.6    val print_abbrevs: Proof.context -> unit
     7.7 -  val pretty_binds: Proof.context -> Pretty.T list
     7.8 +  val pretty_term_bindings: Proof.context -> Pretty.T list
     7.9    val pretty_local_facts: Proof.context -> bool -> Pretty.T list
    7.10    val print_local_facts: Proof.context -> bool -> unit
    7.11    val pretty_cases: Proof.context -> Pretty.T list
    7.12 @@ -1257,7 +1257,7 @@
    7.13  
    7.14  (* term bindings *)
    7.15  
    7.16 -fun pretty_binds ctxt =
    7.17 +fun pretty_term_bindings ctxt =
    7.18    let
    7.19      val binds = Variable.binds_of ctxt;
    7.20      fun prt_bind (xi, (T, t)) = pretty_term_abbrev ctxt (Logic.mk_equals (Var (xi, T), t));
    7.21 @@ -1408,7 +1408,7 @@
    7.22      verb single (K pretty_thy) @
    7.23      pretty_ctxt ctxt @
    7.24      verb (pretty_abbrevs false) (K ctxt) @
    7.25 -    verb pretty_binds (K ctxt) @
    7.26 +    verb pretty_term_bindings (K ctxt) @
    7.27      verb (pretty_local_facts ctxt) (K true) @
    7.28      verb pretty_cases (K ctxt) @
    7.29      verb single (fn () => Pretty.big_list "type constraints:" (map prt_defT (Vartab.dest types))) @
     8.1 --- a/src/Pure/Pure.thy	Fri Jun 27 15:41:26 2014 +0200
     8.2 +++ b/src/Pure/Pure.thy	Fri Jun 27 16:04:56 2014 +0200
     8.3 @@ -85,10 +85,9 @@
     8.4      "print_interps" "print_dependencies" "print_attributes"
     8.5      "print_simpset" "print_rules" "print_trans_rules" "print_methods"
     8.6      "print_antiquotations" "print_ML_antiquotations" "thy_deps"
     8.7 -    "locale_deps" "class_deps" "thm_deps" "print_binds" "print_facts"
     8.8 -    "print_cases" "print_statement" "thm" "prf" "full_prf" "prop"
     8.9 -    "term" "typ" "print_codesetup" "unused_thms"
    8.10 -    :: diag
    8.11 +    "locale_deps" "class_deps" "thm_deps" "print_binds" "print_term_bindings"
    8.12 +    "print_facts" "print_cases" "print_statement" "thm" "prf" "full_prf"
    8.13 +    "prop" "term" "typ" "print_codesetup" "unused_thms" :: diag
    8.14    and "cd" :: control
    8.15    and "pwd" :: diag
    8.16    and "use_thy" "remove_thy" "kill_thy" :: control
     9.1 --- a/src/Pure/Tools/print_operation.ML	Fri Jun 27 15:41:26 2014 +0200
     9.2 +++ b/src/Pure/Tools/print_operation.ML	Fri Jun 27 16:04:56 2014 +0200
     9.3 @@ -70,7 +70,7 @@
     9.4  
     9.5  val _ =
     9.6    register "terms" "term bindings of proof context"
     9.7 -    (Pretty.string_of o Pretty.chunks o Proof_Context.pretty_binds o Toplevel.context_of);
     9.8 +    (Pretty.string_of o Pretty.chunks o Proof_Context.pretty_term_bindings o Toplevel.context_of);
     9.9  
    9.10  val _ =
    9.11    register "theorems" "theorems of local theory or proof context"