made SML/NJ quite happy;
authorwenzelm
Fri May 28 18:15:22 2010 +0200 (2010-05-28 ago)
changeset 37165c2e27ae53c2a
parent 37164 8b4617ad1593
child 37173 ece850d911a5
made SML/NJ quite happy;
src/HOL/Import/import_syntax.ML
src/HOL/Tools/SMT/smt_word.ML
src/HOLCF/Tools/Domain/domain_constructors.ML
src/HOLCF/Tools/Domain/domain_take_proofs.ML
     1.1 --- a/src/HOL/Import/import_syntax.ML	Fri May 28 17:48:18 2010 +0200
     1.2 +++ b/src/HOL/Import/import_syntax.ML	Fri May 28 18:15:22 2010 +0200
     1.3 @@ -39,11 +39,11 @@
     1.4                                        |> Sign.add_path thyname
     1.5                                        |> add_dump (";setup_theory " ^ thyname))
     1.6  
     1.7 -fun do_skip_import_dir s = (ImportRecorder.set_skip_import_dir (SOME s); I)
     1.8 +fun do_skip_import_dir s = (ImportRecorder.set_skip_import_dir (SOME s); I: theory -> theory)
     1.9  val skip_import_dir = Parse.string >> do_skip_import_dir
    1.10  
    1.11  val lower = String.map Char.toLower
    1.12 -fun do_skip_import s = (ImportRecorder.set_skip_import (case lower s of "on" => true | "off" => false | _ => Scan.fail ()); I)
    1.13 +fun do_skip_import s = (ImportRecorder.set_skip_import (case lower s of "on" => true | "off" => false | _ => Scan.fail ()); I: theory -> theory)
    1.14  val skip_import = Parse.short_ident >> do_skip_import
    1.15  
    1.16  fun end_import toks =
     2.1 --- a/src/HOL/Tools/SMT/smt_word.ML	Fri May 28 17:48:18 2010 +0200
     2.2 +++ b/src/HOL/Tools/SMT/smt_word.ML	Fri May 28 18:15:22 2010 +0200
     2.3 @@ -121,7 +121,7 @@
     2.4      else NONE
     2.5  in
     2.6  
     2.7 -val smtlib_builtins = {
     2.8 +val smtlib_builtins : SMTLIB_Interface.builtins = {
     2.9    builtin_typ = smtlib_builtin_typ,
    2.10    builtin_num = smtlib_builtin_num,
    2.11    builtin_func = (fn (n, T) => fn ts => smtlib_builtin_func n T ts),
     3.1 --- a/src/HOLCF/Tools/Domain/domain_constructors.ML	Fri May 28 17:48:18 2010 +0200
     3.2 +++ b/src/HOLCF/Tools/Domain/domain_constructors.ML	Fri May 28 18:15:22 2010 +0200
     3.3 @@ -571,7 +571,7 @@
     3.4          val defs = con_betas @ sel_defs;
     3.5          val rules = abs_inv :: @{thms sel_app_rules};
     3.6          val tacs = [asm_simp_tac (simple_ss addsimps rules) 1];
     3.7 -        fun sel_apps_of (i, (con, args)) =
     3.8 +        fun sel_apps_of (i, (con, args: (bool * term option * typ) list)) =
     3.9            let
    3.10              val Ts : typ list = map #3 args;
    3.11              val ns : string list = Datatype_Prop.make_tnames Ts;
     4.1 --- a/src/HOLCF/Tools/Domain/domain_take_proofs.ML	Fri May 28 17:48:18 2010 +0200
     4.2 +++ b/src/HOLCF/Tools/Domain/domain_take_proofs.ML	Fri May 28 18:15:22 2010 +0200
     4.3 @@ -452,7 +452,7 @@
     4.4  
     4.5      val decisive_lemma =
     4.6        let
     4.7 -        fun iso_locale info =
     4.8 +        fun iso_locale (info : iso_info) =
     4.9              @{thm iso.intro} OF [#abs_inverse info, #rep_inverse info];
    4.10          val iso_locale_thms = map iso_locale iso_infos;
    4.11          val decisive_abs_rep_thms =