diff -r f04b33ce250f -r a4dc62a46ee4 IOA/example/Correctness.thy --- a/IOA/example/Correctness.thy Tue Oct 24 14:59:17 1995 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,22 +0,0 @@ -(* Title: HOL/IOA/example/Correctness.thy - ID: $Id$ - Author: Tobias Nipkow & Konrad Slind - Copyright 1994 TU Muenchen - -The main correctness proof: Impl implements Spec -*) - -Correctness = Solve + Impl + Spec + - -consts - -hom :: "'m impl_state => 'm list" - -defs - -hom_def -"hom(s) == rq(rec(s)) @ if(rbit(rec(s)) = sbit(sen(s)), - sq(sen(s)), - ttl(sq(sen(s))))" - -end