src/HOL/UNITY/TimerArray.thy

new-style infix declaration for "image"

(*  Title:      HOL/UNITY/TimerArray.thy
    ID:         $Id$
    Author:     Lawrence C Paulson, Cambridge University Computer Laboratory
    Copyright   1998  University of Cambridge

A trivial example of reasoning about an array of processes
*)

TimerArray = PPROD +

constdefs
  decr  :: "(nat*nat) set"
    "decr == UN n. {(Suc n, n)}"
  
  Timer :: nat program
    "Timer == mk_program (UNIV, {decr})"

end