src/Pure/term.ML
changeset 16035 31bd65f7b22a
parent 15986 db3cd4fa9b19
child 16108 cf468b93a02e
     1.1 --- a/src/Pure/term.ML	Sun May 22 18:59:05 2005 +0200
     1.2 +++ b/src/Pure/term.ML	Sun May 22 19:26:15 2005 +0200
     1.3 @@ -193,6 +193,7 @@
     1.4    val no_dummy_patterns: term -> term
     1.5    val replace_dummy_patterns: int * term -> int * term
     1.6    val is_replaced_dummy_pattern: indexname -> bool
     1.7 +  val show_dummy_patterns: term -> term
     1.8    val adhoc_freeze_vars: term -> term * string list
     1.9    val string_of_vname: indexname -> string
    1.10    val string_of_vname': indexname -> string
    1.11 @@ -1103,6 +1104,11 @@
    1.12  fun is_replaced_dummy_pattern ("_dummy_", _) = true
    1.13    | is_replaced_dummy_pattern _ = false;
    1.14  
    1.15 +fun show_dummy_patterns (Var (("_dummy_", _), T)) = Const ("dummy_pattern", T)
    1.16 +  | show_dummy_patterns (t $ u) = show_dummy_patterns t $ show_dummy_patterns u
    1.17 +  | show_dummy_patterns (Abs (x, T, t)) = Abs (x, T, show_dummy_patterns t)
    1.18 +  | show_dummy_patterns a = a;
    1.19 +
    1.20  
    1.21  (* adhoc freezing *)
    1.22