1.1 --- a/src/HOL/BNF/Tools/bnf_fp_rec_sugar_util.ML	Mon Nov 11 16:41:08 2013 +0100
     1.2 +++ b/src/HOL/BNF/Tools/bnf_fp_rec_sugar_util.ML	Mon Nov 11 17:38:53 2013 +0100
     1.3 @@ -10,7 +10,7 @@
     1.4  sig
     1.5    val indexed: 'a list -> int -> int list * int
     1.6    val indexedd: 'a list list -> int -> int list list * int
     1.7 -  val indexeddd: ''a list list list -> int -> int list list list * int
     1.8 +  val indexeddd: 'a list list list -> int -> int list list list * int
     1.9    val indexedddd: 'a list list list list -> int -> int list list list list * int
    1.10    val find_index_eq: ''a list -> ''a -> int
    1.11    val finds: ('a * 'b -> bool) -> 'a list -> 'b list -> ('a * 'b list) list * 'b list