src/HOL/Statespace/StateSpaceEx.thy
changeset 28611 983c1855a7af
parent 25171 4a9c25bffc9b
child 29235 2d62b637fa80
     1.1 --- a/src/HOL/Statespace/StateSpaceEx.thy	Thu Oct 16 17:07:20 2008 +0200
     1.2 +++ b/src/HOL/Statespace/StateSpaceEx.thy	Thu Oct 16 17:19:47 2008 +0200
     1.3 @@ -201,10 +201,12 @@
     1.4  implemented correctly in future Isabelle versions. *}
     1.5  
     1.6  lemma 
     1.7 - includes foo
     1.8 - shows True
     1.9 +  assumes "foo f a b c p1 i1 p2 i2 p3 i3 p4 i4"
    1.10 +  shows True
    1.11 +proof
    1.12 +  interpret foo [f a b c p1 i1 p2 i2 p3 i3 p4 i4] by fact
    1.13    term "s<a := i>\<cdot>a = i"
    1.14 -  by simp
    1.15 +qed
    1.16  
    1.17  (*
    1.18  lemma