# HG changeset patch
# User wenzelm
# Date 1007229341 -3600
# Node ID f0b62ad4e1a6cace50a1c6bcba7b8403a1b983a9
# Parent  de0f4a63baa58dce50c9a2073cd024d46ea2c06e
removed dead code;

diff -r de0f4a63baa5 -r f0b62ad4e1a6 src/HOLCF/IOA/meta_theory/ioa_package.ML
--- a/src/HOLCF/IOA/meta_theory/ioa_package.ML	Sat Dec 01 18:52:32 2001 +0100
+++ b/src/HOLCF/IOA/meta_theory/ioa_package.ML	Sat Dec 01 18:55:41 2001 +0100
@@ -5,31 +5,20 @@
 
 signature IOA_PACKAGE =
 sig
-  val add_ioa: string -> string ->
+ val add_ioa: string -> string ->
 		 (string) list -> (string) list -> (string) list ->
 		(string * string) list -> string ->
 		(string * string * (string * string)list) list
 	-> theory -> theory
- val add_ioa_i : string -> string ->
-                 (string) list -> (string) list -> (string) list ->
-                (string * string) list -> string ->
-                (string * string * (string * string)list) list
-	-> theory -> theory
  val add_composition : string -> (string)list -> theory -> theory
- val add_composition_i : string -> (string)list -> theory -> theory
  val add_hiding : string -> string -> (string)list -> theory -> theory
- val add_hiding_i : string -> string -> (string)list -> theory -> theory
  val add_restriction : string -> string -> (string)list -> theory -> theory
- val add_restriction_i : string -> string -> (string)list -> theory -> theory
  val add_rename : string -> string -> string -> theory -> theory
- val add_rename_i : string -> string -> string -> theory -> theory
 end;
 
 structure IoaPackage: IOA_PACKAGE =
 struct
 
-local
-
 exception malformed;
 
 (* stripping quotes *)
@@ -274,7 +263,7 @@
 write_alts thy ("","") inp out int cl ttr
 end;
 
-(* used in gen_add_ioa *)
+(* used in add_ioa *)
 fun check_free_primed (Free(a,_)) = 
 let
 val (f::r) = rev(explode a)
@@ -334,9 +323,10 @@
 clist [a] = a |
 clist (a::r) = a ^ " || " ^ (clist r);
 
-(* gen_add_ioa *)
 
-fun gen_add_ioa prep_term automaton_name action_type inp out int statetupel ini trans thy =
+(* add_ioa *)
+
+fun add_ioa automaton_name action_type inp out int statetupel ini trans thy =
 (writeln("Constructing automaton " ^ automaton_name ^ " ...");
 let
 val state_type_string = type_product_of_varlist(statetupel);
@@ -385,7 +375,7 @@
 )
 end)
 
-fun gen_add_composition prep_term automaton_name aut_list thy =
+fun add_composition automaton_name aut_list thy =
 (writeln("Constructing automaton " ^ automaton_name ^ " ...");
 let
 val acttyp = check_ac thy aut_list; 
@@ -406,7 +396,7 @@
 automaton_name ^ " == " ^ comp_list)]
 end)
 
-fun gen_add_restriction prep_term automaton_name aut_source actlist thy =
+fun add_restriction automaton_name aut_source actlist thy =
 (writeln("Constructing automaton " ^ automaton_name ^ " ...");
 let
 val auttyp = aut_type_of thy aut_source;
@@ -420,7 +410,7 @@
 [(automaton_name ^ "_def",
 automaton_name ^ " == restrict " ^ aut_source ^ " " ^ rest_set)] 
 end)
-fun gen_add_hiding prep_term automaton_name aut_source actlist thy =
+fun add_hiding automaton_name aut_source actlist thy =
 (writeln("Constructing automaton " ^ automaton_name ^ " ...");
 let
 val auttyp = aut_type_of thy aut_source;
@@ -446,7 +436,7 @@
 handle malformed => error ("could not extract argument type of renaming function term")
 end;
  
-fun gen_add_rename prep_term automaton_name aut_source fun_name thy =
+fun add_rename automaton_name aut_source fun_name thy =
 (writeln("Constructing automaton " ^ automaton_name ^ " ...");
 let
 val auttyp = aut_type_of thy aut_source;
@@ -467,30 +457,6 @@
 automaton_name ^ " == rename " ^ aut_source ^ " (" ^ fun_name ^ ")")]
 end)
 
-(* external interfaces *)
-
-fun read_term sg str =
-  read_cterm sg (str, HOLogic.termT);
-
-fun cert_term sg tm =
-  cterm_of sg tm handle TERM (msg, _) => error msg;
-
-in
-
-val add_ioa = gen_add_ioa read_term;
-val add_ioa_i = gen_add_ioa cert_term;
-val add_composition = gen_add_composition read_term;
-val add_composition_i = gen_add_composition cert_term;
-val add_hiding = gen_add_hiding read_term;
-val add_hiding_i = gen_add_hiding cert_term;
-val add_restriction = gen_add_restriction read_term;
-val add_restriction_i = gen_add_restriction cert_term;
-val add_rename = gen_add_rename read_term;
-val add_rename_i = gen_add_rename cert_term;
-
-end
-
-
 
 (** outer syntax **)