# HG changeset patch
# User blanchet
# Date 1384187933 -3600
# Node ID bc24e1ccfd35c7b7c46b8366070ee00e5c7d930e
# Parent  347c3b0cab444525f23c4a3c189e9b2d2c27d7ad
tuned signature

diff -r 347c3b0cab44 -r bc24e1ccfd35 src/HOL/BNF/Tools/bnf_fp_rec_sugar_util.ML
--- a/src/HOL/BNF/Tools/bnf_fp_rec_sugar_util.ML	Mon Nov 11 16:41:08 2013 +0100
+++ b/src/HOL/BNF/Tools/bnf_fp_rec_sugar_util.ML	Mon Nov 11 17:38:53 2013 +0100
@@ -10,7 +10,7 @@
 sig
   val indexed: 'a list -> int -> int list * int
   val indexedd: 'a list list -> int -> int list list * int
-  val indexeddd: ''a list list list -> int -> int list list list * int
+  val indexeddd: 'a list list list -> int -> int list list list * int
   val indexedddd: 'a list list list list -> int -> int list list list list * int
   val find_index_eq: ''a list -> ''a -> int
   val finds: ('a * 'b -> bool) -> 'a list -> 'b list -> ('a * 'b list) list * 'b list