src/HOL/Statespace/state_space.ML
changeset 29291 d3cc5398bad5
parent 29247 95d3a82857e5
child 29360 a5be60c3674e
     1.1 --- a/src/HOL/Statespace/state_space.ML	Thu Jan 01 14:23:39 2009 +0100
     1.2 +++ b/src/HOL/Statespace/state_space.ML	Thu Jan 01 17:47:12 2009 +0100
     1.3 @@ -1,5 +1,4 @@
     1.4  (*  Title:      HOL/Statespace/state_space.ML
     1.5 -    ID:         $Id$
     1.6      Author:     Norbert Schirmer, TU Muenchen
     1.7  *)
     1.8  
     1.9 @@ -421,7 +420,10 @@
    1.10  
    1.11          val expr = ([(suffix valuetypesN name, 
    1.12                       (("",false),Expression.Positional (map SOME pars)))],[]);
    1.13 -      in prove_interpretation_in (K all_tac) (suffix valuetypesN name, expr) thy end;
    1.14 +      in
    1.15 +        prove_interpretation_in (ALLGOALS o solve_tac o Assumption.prems_of)
    1.16 +          (suffix valuetypesN name, expr) thy
    1.17 +      end;
    1.18  
    1.19      fun interprete_parent (_, pname, rs) =
    1.20        let