src/HOL/Nominal/nominal_fresh_fun.ML
changeset 42364 8c674b3b8e44
parent 42361 23f352990944
child 42806 4b660cdab9b7
     1.1 --- a/src/HOL/Nominal/nominal_fresh_fun.ML	Sat Apr 16 16:37:21 2011 +0200
     1.2 +++ b/src/HOL/Nominal/nominal_fresh_fun.ML	Sat Apr 16 18:11:20 2011 +0200
     1.3 @@ -55,7 +55,7 @@
     1.4     val thy = theory_of_thm thm;
     1.5  (* the parsing function returns a qualified name, we get back the base name *)
     1.6     val atom_basename = Long_Name.base_name atom_name;
     1.7 -   val goal = List.nth(prems_of thm, i-1);
     1.8 +   val goal = nth (prems_of thm) (i - 1);
     1.9     val ps = Logic.strip_params goal;
    1.10     val Ts = rev (map snd ps);
    1.11     fun is_of_fs_name T = Sign.of_sort thy (T, [Sign.intern_class thy ("fs_"^atom_basename)]);
    1.12 @@ -97,7 +97,7 @@
    1.13  
    1.14  fun generate_fresh_fun_tac i thm =
    1.15    let
    1.16 -    val goal = List.nth(prems_of thm, i-1);
    1.17 +    val goal = nth (prems_of thm) (i - 1);
    1.18      val atom_name_opt = get_inner_fresh_fun goal;
    1.19    in
    1.20    case atom_name_opt of