Undo errornous commit of Statespace change
authorhoelzl
Wed Sep 23 13:31:38 2009 +0200 (2009-09-23)
changeset 32651af55ccf865a4
parent 32650 34bfa2492298
child 32653 7feb35deb6f6
Undo errornous commit of Statespace change
src/HOL/Statespace/state_space.ML
     1.1 --- a/src/HOL/Statespace/state_space.ML	Wed Sep 23 13:17:17 2009 +0200
     1.2 +++ b/src/HOL/Statespace/state_space.ML	Wed Sep 23 13:31:38 2009 +0200
     1.3 @@ -321,17 +321,14 @@
     1.4       |> interprete_parent name dist_thm_full_name parent_expr
     1.5    end;
     1.6  
     1.7 -fun encode_dot x =
     1.8 -    if x= #"." then #"_" else x;
     1.9 +fun encode_dot x = if x= #"." then #"_" else x;
    1.10  
    1.11  fun encode_type (TFree (s, _)) = s
    1.12    | encode_type (TVar ((s,i),_)) = "?" ^ s ^ string_of_int i
    1.13    | encode_type (Type (n,Ts)) =
    1.14        let
    1.15          val Ts' = fold1' (fn x => fn y => x ^ "_" ^ y) (map encode_type Ts) "";
    1.16 -        val n' = if n = "*" then "Prod" else
    1.17 -                   if n = "+" then "Sum" else
    1.18 -                     String.map encode_dot n;
    1.19 +        val n' = String.map encode_dot n;
    1.20        in if Ts'="" then n' else Ts' ^ "_" ^ n' end;
    1.21  
    1.22  fun project_name T = projectN ^"_"^encode_type T;
    1.23 @@ -695,4 +692,4 @@
    1.24  
    1.25  end;
    1.26  
    1.27 -end;
    1.28 +end;
    1.29 \ No newline at end of file