author | wenzelm |
Sat, 03 Sep 2005 16:50:22 +0200 | |
changeset 17244 | 0b2ff9541727 |
parent 14981 | e73f8140af78 |
child 19739 | c58ef2aa5430 |
permissions | -rw-r--r-- |
(* Title: HOL/IOA/NTP/Correctness.thy ID: $Id$ Author: Tobias Nipkow & Konrad Slind *) header {* The main correctness proof: Impl implements Spec *} theory Correctness imports Impl Spec begin 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)))" ML {* use_legacy_bindings (the_context ()) *} end