too much qualification is like too little
authorblanchet
Thu Jun 06 15:56:17 2013 +0200 (2013-06-06)
changeset 5232274315fe137ba
parent 52321 30d516bbf19f
child 52323 a11bbb5fef56
too much qualification is like too little
src/HOL/BNF/Tools/bnf_ctr_sugar.ML
     1.1 --- a/src/HOL/BNF/Tools/bnf_ctr_sugar.ML	Thu Jun 06 15:49:09 2013 +0200
     1.2 +++ b/src/HOL/BNF/Tools/bnf_ctr_sugar.ML	Thu Jun 06 15:56:17 2013 +0200
     1.3 @@ -207,7 +207,7 @@
     1.4      fun is_disc_binding_valid b =
     1.5        not (Binding.is_empty b orelse Binding.eq_name (b, equal_binding));
     1.6  
     1.7 -    val standard_disc_binding = qualify false o Binding.name o prefix isN o base_name_of_ctr;
     1.8 +    val standard_disc_binding = Binding.name o prefix isN o base_name_of_ctr;
     1.9  
    1.10      val disc_bindings =
    1.11        raw_disc_bindings'