author | wenzelm |
Thu, 15 Nov 2001 23:25:46 +0100 | |
changeset 12218 | 6597093b77e7 |
parent 4816 | 64f075872f69 |
child 14981 | e73f8140af78 |
permissions | -rw-r--r-- |
(* Title: HOL/IOA/NTP/Correctness.thy ID: $Id$ Author: Tobias Nipkow & Konrad Slind License: GPL (GNU GENERAL PUBLIC LICENSE) The main correctness proof: Impl implements Spec. *) Correctness = Impl + Spec + constdefs hom :: 'm impl_state => 'm list "hom(s) == rq(rec(s)) @ (if rbit(rec s) = sbit(sen s) then sq(sen s) else tl(sq(sen s)))" end