--- a/Nominal/nominal_dt_alpha.ML Wed Nov 10 13:46:21 2010 +0000
+++ b/Nominal/nominal_dt_alpha.ML Fri Nov 12 01:20:53 2010 +0000
@@ -7,8 +7,9 @@
signature NOMINAL_DT_ALPHA =
sig
- val define_raw_alpha: string list -> typ list -> cns_info list -> bn_info -> bclause list list list ->
- term list -> Proof.context -> term list * term list * thm list * thm list * thm * local_theory
+ val define_raw_alpha: string list -> typ list -> cns_info list -> bn_info list ->
+ bclause list list list -> term list -> Proof.context ->
+ term list * term list * thm list * thm list * thm * local_theory
val mk_alpha_distincts: Proof.context -> thm list -> thm list ->
term list -> typ list -> thm list