src/HOL/UNITY/Follows.thy
author paulson
Mon May 24 15:47:06 1999 +0200 (1999-05-24)
changeset 6706 d8067e272d4f
child 6809 5b8912f7bb69
permissions -rw-r--r--
Theory of the "Follows" relation
paulson@6706
     1
(*  Title:      HOL/UNITY/Follows
paulson@6706
     2
    ID:         $Id$
paulson@6706
     3
    Author:     Lawrence C Paulson, Cambridge University Computer Laboratory
paulson@6706
     4
    Copyright   1998  University of Cambridge
paulson@6706
     5
paulson@6706
     6
The Follows relation of Charpentier and Sivilotte
paulson@6706
     7
*)
paulson@6706
     8
paulson@6706
     9
Follows = Union +
paulson@6706
    10
paulson@6706
    11
constdefs
paulson@6706
    12
paulson@6706
    13
  Follows :: "['a => 'b::{order}, 'a => 'b::{order}] => 'a program set"
paulson@6706
    14
                 (infixl 65)
paulson@6706
    15
   "f Follows g == Increasing g Int Increasing f Int
paulson@6706
    16
                   Always {s. f s <= g s} Int
paulson@6706
    17
                   (INT k. {s. k <= g s} LeadsTo {s. k <= f s})"
paulson@6706
    18
paulson@6706
    19
paulson@6706
    20
end